[Emacs-diffs] emacs/lisp ChangeLog scroll-bar.el

[Juanma Barranquero]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Juanma Barranquero <lektu>      09/02/24 16:11:10

Modified files:
        lisp           : ChangeLog scroll-bar.el 

Log message:
        * scroll-bar.el (scroll-bar-mode): Turn off scroll bars when
          argument is 0.  Doc fix.  (Bug#1527)

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15390&r2=1.15391
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/scroll-bar.el?cvsroot=emacs&r1=1.61&r2=1.62

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15390
retrieving revision 1.15391
diff -u -b -r1.15390 -r1.15391
--- ChangeLog   24 Feb 2009 11:53:33 -0000      1.15390
+++ ChangeLog   24 Feb 2009 16:11:06 -0000      1.15391
@@ -1,5 +1,8 @@
 2009-02-24  Juanma Barranquero  <address@hidden>
 
+       * 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):

Index: scroll-bar.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/scroll-bar.el,v
retrieving revision 1.61
retrieving revision 1.62
diff -u -b -r1.61 -r1.62
--- scroll-bar.el       5 Jan 2009 03:19:44 -0000       1.61
+++ scroll-bar.el       24 Feb 2009 16:11:10 -0000      1.62
@@ -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))))