Mercurial > emacs
changeset 20129:a68db1ead5cf
(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.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Thu, 23 Oct 1997 06:44:15 +0000 |
| parents | a5d0f051dd57 |
| children | 422958809490 |
| files | lisp/scroll-bar.el |
| diffstat | 1 files changed, 6 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/scroll-bar.el Thu Oct 23 06:42:50 1997 +0000 +++ b/lisp/scroll-bar.el Thu Oct 23 06:44:15 1997 +0000 @@ -62,7 +62,10 @@ "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 @@ (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 @@ (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))))