Mercurial > emacs
changeset 102248:6a544631f99f
* scroll-bar.el (scroll-bar-mode): Turn off scroll bars when
argument is 0. Doc fix. (Bug#1527)
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Tue, 24 Feb 2009 16:11:06 +0000 |
| parents | b4a117181d97 |
| children | 3dbaa6c4f4cb |
| files | lisp/ChangeLog lisp/scroll-bar.el |
| diffstat | 2 files changed, 6 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue Feb 24 14:01:21 2009 +0000 +++ b/lisp/ChangeLog Tue Feb 24 16:11:06 2009 +0000 @@ -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):
--- a/lisp/scroll-bar.el Tue Feb 24 14:01:21 2009 +0000 +++ b/lisp/scroll-bar.el Tue Feb 24 16:11:06 2009 +0000 @@ -117,15 +117,15 @@ "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))))