* scroll-bar.el (scroll-bar-mode): Turn off scroll bars when

  argument is 0.  Doc fix.  (Bug#1527)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 692e63470c5af950fc5ac03d7d369304f56a0a22..90e6a3ab99f6c24e210a3a2df20f380c670dbdcf 100644 (file)
--- 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 37e7c0b65ced1c3552b093431d742c260a36dd93..eed6921b7e7e0d253585f96a5a97f6bce4017894 100644 (file)
--- 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))))