diff options
| author | Karl Heuer <kwzh@gnu.org> | 1997-10-23 06:44:15 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1997-10-23 06:44:15 +0000 |
| commit | e4b201bbbbf0d6177c21fa2db508feb16520b7fe (patch) | |
| tree | 2c9f1bf0f3bfb6f2240e8f8ed52508061afd8e6d /lisp/scroll-bar.el | |
| parent | dafcda2057593bd38f4519b0e46980ae9b558d28 (diff) | |
| download | emacs-e4b201bbbbf0d6177c21fa2db508feb16520b7fe.tar.gz | |
(set-scroll-bar-mode): Take just one arg.
(set-scroll-bar-mode-1): Take 2 args, as set-scroll-bar-mode used to.
(scroll-bar-mode variable): Use set-scroll-bar-mode-1.
(scroll-bar-mode command): Pass 1 arg to set-scroll-bar-mode.
Diffstat (limited to 'lisp/scroll-bar.el')
| -rw-r--r-- | lisp/scroll-bar.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/lisp/scroll-bar.el b/lisp/scroll-bar.el index ccdf34909c7..f94fc6754af 100644 --- a/lisp/scroll-bar.el +++ b/lisp/scroll-bar.el @@ -62,7 +62,10 @@ that scroll bar position." "Non-nil means `set-scroll-bar-mode' should really do something. This is nil while loading `scroll-bar.el', and t afterward.") -(defun set-scroll-bar-mode (ignore value) +(defun set-scroll-bar-mode-1 (ignore value) + (set-scroll-bar-mode value)) + +(defun set-scroll-bar-mode (value) "Set `scroll-bar-mode' to VALUE and put the new value into effect." (setq scroll-bar-mode value) @@ -95,7 +98,7 @@ it takes effect immediately for all frames." (const left) (const right)) :group 'frames - :set 'set-scroll-bar-mode) + :set 'set-scroll-bar-mode-1) ;; We just set scroll-bar-mode, but that was the default. ;; If it is set again, that is for real. @@ -111,8 +114,7 @@ turn off scroll bars; otherwise, turn on scroll bars." (if flag (setq flag (prefix-numeric-value flag))) ;; Tweedle the variable according to the argument. - (set-scroll-bar-mode nil - (if (null flag) (not scroll-bar-mode) + (set-scroll-bar-mode (if (null flag) (not scroll-bar-mode) (and (or (not (numberp flag)) (>= flag 0)) 'left)))) |