Mercurial > emacs

changeset 52558:3fb606ea8bf6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(set-scroll-bar-mode): Initialize to new built-in variable default-frame-scroll-bars. (scroll-bar-mode): Use default-frame-scroll-bars when enabling scroll-bar-mode; notably, use it instead of t when we toggle scroll-bars on. (toggle-scroll-bar): Use default-frame-scroll-bars.
author Kim F. Storm <storm@cua.dk>
date Sat, 20 Sep 2003 23:33:37 +0000
parents 4a93216e6678
children f773f7b8fa3f
files lisp/scroll-bar.el
diffstat 1 files changed, 7 insertions(+), 14 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/scroll-bar.el	Sat Sep 20 23:26:20 2003 +0000
+++ b/lisp/scroll-bar.el	Sat Sep 20 23:33:37 2003 +0000
@@ -87,10 +87,7 @@
 	 (list (cons 'vertical-scroll-bars scroll-bar-mode)))
 	(setq frames (cdr frames))))))
 
-(defcustom scroll-bar-mode
-  (cond ((eq system-type 'windows-nt) 'right)
-	((featurep 'mac-carbon) 'right)
-	(t 'left))
+(defcustom scroll-bar-mode default-frame-scroll-bars
   "*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).
@@ -117,14 +114,13 @@
 With a numeric argument, if the argument is negative,
 turn off scroll bars; otherwise, turn on scroll bars."
   (interactive "P")
-  (if flag (setq flag (prefix-numeric-value flag)))
 
   ;; 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))
-			      (cond ((eq system-type 'windows-nt) 'right)
-				    ((featurep 'mac-carbon) 'right)
-				    (t 'left))))))
+  (set-scroll-bar-mode (if (if (null flag) 
+			       (not scroll-bar-mode)
+			     (setq flag (prefix-numeric-value flag))
+			     (or (not (numberp flag)) (>= flag 0)))
+			   default-frame-scroll-bars)))
 
 (defun toggle-scroll-bar (arg)
   "Toggle whether or not the selected frame has vertical scroll bars.
@@ -142,10 +138,7 @@
    (selected-frame)
    (list (cons 'vertical-scroll-bars
 	       (if (> arg 0)
-		   (or scroll-bar-mode
-		       (cond ((eq system-type 'windows-nt) 'right)
-			     ((featurep 'mac-carbon) 'right)
-			     (t 'left))))))))
+		   (or scroll-bar-mode default-frame-scroll-bars))))))
 
 (defun toggle-horizontal-scroll-bar (arg)
   "Toggle whether or not the selected frame has horizontal scroll bars.