# HG changeset patch # User Geoff Voelker <voelker@cs.washington.edu> # Date 893374730 0 # Node ID 807f4e7fa560706ce4e75e64165f88af5eb431f0 # Parent a373669e1196361f25ad437876f2f8253df87320 (scroll-bar-mode, toggle-scroll-bar): By default, put scroll bars on the right on MS-Windows (since that is the convention on Windows). diff -r a373669e1196 -r 807f4e7fa560 lisp/scroll-bar.el --- 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.