mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
argument is 0.  Doc fix.  (Bug#1527)
This commit is contained in:
Juanma Barranquero 2009-02-24 16:11:06 +00:00
parent a4bead1292
commit 5f0e32eae1
2 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -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):

6
lisp/scroll-bar.el
View file

@ -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))))