Commit ded8a542 authored by Steven Tamm's avatar Steven Tamm
Browse files

* scroll-bar.el (toggle-scroll-bar, scroll-bar-mode): Have

	scroll bars correctly default to being on the right for Mac
	Carbon port
parent b37113a1
2002-12-30 Steven Tamm <steventamm@mac.com>
* scroll-bar.el (toggle-scroll-bar, scroll-bar-mode): Have
scroll bars correctly default to being on the right for Mac
Carbon port
2002-12-29 Nick Roberts <nick@nick.uklinux.net>
 
* gdb-ui.el (gdb-delete-display): Rename (gdb-delete-expression).
......
......@@ -88,7 +88,9 @@ This is nil while loading `scroll-bar.el', and t afterward.")
(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 @@ 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))
(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 @@ when they are turned on; if it is nil, they go on the left."
(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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment