Mercurial > emacs
changeset 49016:ac27fa84f239
* 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.
| author | Steven Tamm <steventamm@mac.com> |
|---|---|
| date | Thu, 02 Jan 2003 22:37:13 +0000 |
| parents | c49640262de0 |
| children | 09ff6e632947 |
| files | lisp/ChangeLog lisp/scroll-bar.el |
| diffstat | 2 files changed, 9 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Thu Jan 02 22:36:23 2003 +0000 +++ b/lisp/ChangeLog Thu Jan 02 22:37:13 2003 +0000 @@ -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):
--- a/lisp/scroll-bar.el Thu Jan 02 22:36:23 2003 +0000 +++ b/lisp/scroll-bar.el Thu Jan 02 22:37:13 2003 +0000 @@ -89,7 +89,7 @@ (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 @@ (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 @@ (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)