Mercurial > emacs
changeset 49004:c70fd9638f43
* scroll-bar.el (toggle-scroll-bar, scroll-bar-mode): Have
scroll bars correctly default to being on the right for Mac
Carbon port
| author | Steven Tamm <steventamm@mac.com> |
|---|---|
| date | Tue, 31 Dec 2002 04:55:47 +0000 |
| parents | 532fc9301fcd |
| children | 5c4e830c411b |
| files | lisp/ChangeLog lisp/scroll-bar.el |
| diffstat | 2 files changed, 15 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Mon Dec 30 17:20:06 2002 +0000 +++ b/lisp/ChangeLog Tue Dec 31 04:55:47 2002 +0000 @@ -1,3 +1,9 @@ +2002-12-30 Steven Tamm <steventamm@mac.com> + + * scroll-bar.el (toggle-scroll-bar, scroll-bar-mode): Have + scroll bars correctly default to being on the right for Mac + Carbon port + 2002-12-29 Nick Roberts <nick@nick.uklinux.net> * gdb-ui.el (gdb-delete-display): Rename (gdb-delete-expression).
--- a/lisp/scroll-bar.el Mon Dec 30 17:20:06 2002 +0000 +++ b/lisp/scroll-bar.el Tue Dec 31 04:55:47 2002 +0000 @@ -88,7 +88,9 @@ (setq frames (cdr frames)))))) (defcustom scroll-bar-mode - (if (eq system-type 'windows-nt) 'right 'left) + (cond ((eq system-type 'windows-nt) 'right) + ((eq window-system 'mac) 'right) + (t 'left)) "*Specify whether to have vertical scroll bars, and on which side. Possible values are nil (no scroll bars), `left' (scroll bars on left) and `right' (scroll bars on right). @@ -120,7 +122,9 @@ ;; Tweedle the variable according to the argument. (set-scroll-bar-mode (if (null flag) (not scroll-bar-mode) (and (or (not (numberp flag)) (>= flag 0)) - (if (eq system-type 'windows-nt) 'right 'left))))) + (cond ((eq system-type 'windows-nt) 'right) + ((eq window-system 'mac) 'right) + (t 'left)))))) (defun toggle-scroll-bar (arg) "Toggle whether or not the selected frame has vertical scroll bars. @@ -139,7 +143,9 @@ (list (cons 'vertical-scroll-bars (if (> arg 0) (or scroll-bar-mode - (if (eq system-type 'windows-nt) 'right 'left))))))) + (cond ((eq system-type 'windows-nt) 'right) + ((eq window-system 'mac) 'right) + (t 'left)))))))) (defun toggle-horizontal-scroll-bar (arg) "Toggle whether or not the selected frame has horizontal scroll bars.