diff options
author | Juanma Barranquero <lekktu@gmail.com> | 2009-02-24 16:11:06 +0000 |
---|---|---|
committer | Juanma Barranquero <lekktu@gmail.com> | 2009-02-24 16:11:06 +0000 |
commit | 5f0e32eae1c50252096197728a2f0d8641bfda60 (patch) | |
tree | eb724716c0ebf98c130e858a542ecef073e03f3f | |
parent | a4bead12924447ab979dc70c922aaa2f4e44f90c (diff) | |
download | emacs-5f0e32eae1c50252096197728a2f0d8641bfda60.tar.gz |
* scroll-bar.el (scroll-bar-mode): Turn off scroll bars when
argument is 0. Doc fix. (Bug#1527)
-rw-r--r-- | lisp/ChangeLog | 3 | ||||
-rw-r--r-- | lisp/scroll-bar.el | 6 |
2 files changed, 6 insertions, 3 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 692e63470c5..90e6a3ab99f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2009-02-24 Juanma Barranquero <lekktu@gmail.com> + * scroll-bar.el (scroll-bar-mode): Turn off scroll bars when + argument is 0. Doc fix. (Bug#1527) + * w32-vars.el (w32-system-shells): Doc fix. * image.el (image-load-path-for-library, insert-sliced-image): diff --git a/lisp/scroll-bar.el b/lisp/scroll-bar.el index 37e7c0b65ce..eed6921b7e7 100644 --- a/lisp/scroll-bar.el +++ b/lisp/scroll-bar.el @@ -117,15 +117,15 @@ Setting the variable with a customization buffer also takes effect." "Toggle display of vertical scroll bars on all frames. This command applies to all frames that exist and frames to be created in the future. -With a numeric argument, if the argument is negative, -turn off scroll bars; otherwise, turn on scroll bars." +With a numeric argument, if the argument is positive +turn on scroll bars; otherwise turn off scroll bars." (interactive "P") ;; Tweedle the variable according to the argument. (set-scroll-bar-mode (if (if (null flag) (not scroll-bar-mode) (setq flag (prefix-numeric-value flag)) - (or (not (numberp flag)) (>= flag 0))) + (or (not (numberp flag)) (> flag 0))) (or previous-scroll-bar-mode default-frame-scroll-bars)))) |