# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1235491866 0
# Node ID 6a544631f99f67006d1793a06abc336e3e418e4a
# Parent  b4a117181d97edf279a804b89436cf952cb72ea4
* scroll-bar.el (scroll-bar-mode): Turn off scroll bars when
  argument is 0.  Doc fix.  (Bug#1527)

diff -r b4a117181d97 -r 6a544631f99f lisp/ChangeLog
--- 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):
diff -r b4a117181d97 -r 6a544631f99f lisp/scroll-bar.el
--- 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))))