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

(previous-scroll-bar-mode): New variable

Browse source 
(set-scroll-bar-mode): Set previous-scroll-bar-mode.
(scroll-bar-mode): Use previous-scroll-bar-mode if set.
This commit is contained in:
Jan Djärv 2006-12-30 15:23:24 +00:00
parent 0fb7324a4d
commit f62c3ee200
1 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/scroll-bar.el
View file

@ -75,6 +75,7 @@ SIDE must be the symbol `left' or `right'."
;;;; Helpful functions for enabling and disabling scroll bars.
(defvar scroll-bar-mode)
(defvar previous-scroll-bar-mode nil)
(defvar scroll-bar-mode-explicit nil
"Non-nil means `set-scroll-bar-mode' should really do something.
@ -85,6 +86,9 @@ This is nil while loading `scroll-bar.el', and t afterward.")
(defun set-scroll-bar-mode (value)
"Set `scroll-bar-mode' to VALUE and put the new value into effect."
(if scroll-bar-mode
(setq previous-scroll-bar-mode scroll-bar-mode))
(setq scroll-bar-mode value)
(when scroll-bar-mode-explicit
@ -137,7 +141,8 @@ turn off scroll bars; otherwise, turn on scroll bars."
(not scroll-bar-mode)
(setq flag (prefix-numeric-value flag))
(or (not (numberp flag)) (>= flag 0)))
default-frame-scroll-bars)))
(or previous-scroll-bar-mode
default-frame-scroll-bars))))
(defun toggle-scroll-bar (arg)
"Toggle whether or not the selected frame has vertical scroll bars.