diff options
| author | Geoff Voelker <voelker@cs.washington.edu> | 1998-04-23 23:38:50 +0000 |
|---|---|---|
| committer | Geoff Voelker <voelker@cs.washington.edu> | 1998-04-23 23:38:50 +0000 |
| commit | 1032e793e71e7fe2668728b3c36943c2ce2373a8 (patch) | |
| tree | 6ea272bc98cb412de2b758c6e77830d3ab324c86 /lisp/scroll-bar.el | |
| parent | ec025f9d8dd7e07712f5faa2f68bb20a997a1fe2 (diff) | |
| download | emacs-1032e793e71e7fe2668728b3c36943c2ce2373a8.tar.gz | |
(scroll-bar-mode, toggle-scroll-bar): By default,
put scroll bars on the right on MS-Windows (since that is the
convention on Windows).
Diffstat (limited to 'lisp/scroll-bar.el')
| -rw-r--r-- | lisp/scroll-bar.el | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/lisp/scroll-bar.el b/lisp/scroll-bar.el index 2100a1f51ec..97cfa9d731f 100644 --- a/lisp/scroll-bar.el +++ b/lisp/scroll-bar.el @@ -86,7 +86,8 @@ This is nil while loading `scroll-bar.el', and t afterward.") (list (cons 'vertical-scroll-bars scroll-bar-mode))) (setq frames (cdr frames)))))) -(defcustom scroll-bar-mode 'left +(defcustom scroll-bar-mode + (if (eq system-type 'windows-nt) 'right '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). @@ -116,7 +117,7 @@ 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)) - 'left)))) + (if (eq system-type 'windows-nt) 'right 'left))))) (defun toggle-scroll-bar (arg) "Toggle whether or not the selected frame has vertical scroll bars. @@ -130,10 +131,12 @@ when they are turned on; if it is nil, they go on the left." (frame-parameters (selected-frame)))) -1 1)) (setq arg (prefix-numeric-value arg))) - (modify-frame-parameters (selected-frame) - (list (cons 'vertical-scroll-bars - (if (> arg 0) - (or scroll-bar-mode 'left)))))) + (modify-frame-parameters + (selected-frame) + (list (cons 'vertical-scroll-bars + (if (> arg 0) + (or scroll-bar-mode + (if (eq system-type 'windows-nt) 'right 'left))))))) (defun toggle-horizontal-scroll-bar (arg) "Toggle whether or not the selected frame has horizontal scroll bars. |