martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

Browse Source 
scroll bars correctly default to being on the right for Mac
        Carbon port by testing "mac-carbon" feature, not window-system.
This commit is contained in:
Steven Tamm
2003-01-02 22:37:13 +00:00
parent 8c609cffa6
commit 7413b888c0
2 changed files with 9 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@@ -1,3 +1,9 @@
2003-01-02 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 by testing "mac-carbon" feature, not window-system.
2003-01-02 Markus Rost <rost@math.ohio-state.edu>
* cus-edit.el (customize-group, customize-group-other-window):

6
lisp/scroll-bar.el
View File

@@ -89,7 +89,7 @@ This is nil while loading `scroll-bar.el', and t afterward.")
(defcustom scroll-bar-mode
(cond ((eq system-type 'windows-nt) 'right)
((eq window-system 'mac) 'right)
((featurep 'mac-carbon) '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)
@@ -123,7 +123,7 @@ turn off scroll bars; otherwise, turn on scroll bars."
(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)
((eq window-system 'mac) 'right)
((featurep 'mac-carbon) 'right)
(t 'left))))))
(defun toggle-scroll-bar (arg)
@@ -144,7 +144,7 @@ when they are turned on; if it is nil, they go on the left."
(if (> arg 0)
(or scroll-bar-mode
(cond ((eq system-type 'windows-nt) 'right)
((eq window-system 'mac) 'right)
((featurep 'mac-carbon) 'right)
(t 'left))))))))
(defun toggle-horizontal-scroll-bar (arg)