diff options
| author | Steven Tamm <steventamm@mac.com> | 2002-12-31 04:55:47 +0000 |
|---|---|---|
| committer | Steven Tamm <steventamm@mac.com> | 2002-12-31 04:55:47 +0000 |
| commit | ded8a54259a264e0d814392f3e83aa2d990c72be (patch) | |
| tree | 6468c6381e07efd5850a6580088ee782acaae2ac /lisp/scroll-bar.el | |
| parent | b37113a158b0c0728f372bf883602dae9c7a1dcb (diff) | |
| download | emacs-ded8a54259a264e0d814392f3e83aa2d990c72be.tar.gz | |
* scroll-bar.el (toggle-scroll-bar, scroll-bar-mode): Have
scroll bars correctly default to being on the right for Mac
Carbon port
Diffstat (limited to 'lisp/scroll-bar.el')
| -rw-r--r-- | lisp/scroll-bar.el | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/lisp/scroll-bar.el b/lisp/scroll-bar.el index 7230ca046a0..0c27e17510c 100644 --- a/lisp/scroll-bar.el +++ b/lisp/scroll-bar.el @@ -88,7 +88,9 @@ This is nil while loading `scroll-bar.el', and t afterward.") (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 @@ turn off scroll bars; otherwise, turn on scroll bars." ;; 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 @@ when they are turned on; if it is nil, they go on the left." (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. |