diff lisp/scroll-bar.el @ 49004:c70fd9638f43

* scroll-bar.el (toggle-scroll-bar, scroll-bar-mode): Have scroll bars correctly default to being on the right for Mac Carbon port

--- a/lisp/scroll-bar.el	Mon Dec 30 17:20:06 2002 +0000
+++ b/lisp/scroll-bar.el	Tue Dec 31 04:55:47 2002 +0000
@@ -88,7 +88,9 @@
 	(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 @@
   ;; 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 @@
    (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.