From 5f0e32eae1c50252096197728a2f0d8641bfda60 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Tue, 24 Feb 2009 16:11:06 +0000 Subject: [PATCH] * scroll-bar.el (scroll-bar-mode): Turn off scroll bars when argument is 0. Doc fix. (Bug#1527) --- lisp/ChangeLog | 3 +++ 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 + * 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)))) -- 2.39.5