Mercurial > emacs
changeset 21734:807f4e7fa560
(scroll-bar-mode, toggle-scroll-bar): By default,
put scroll bars on the right on MS-Windows (since that is the
convention on Windows).
| author | Geoff Voelker <voelker@cs.washington.edu> |
|---|---|
| date | Thu, 23 Apr 1998 23:38:50 +0000 |
| parents | a373669e1196 |
| children | 711a61942023 |
| files | lisp/scroll-bar.el |
| diffstat | 1 files changed, 9 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/scroll-bar.el Thu Apr 23 23:38:28 1998 +0000 +++ b/lisp/scroll-bar.el Thu Apr 23 23:38:50 1998 +0000 @@ -86,7 +86,8 @@ (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 @@ ;; 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 @@ (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.