Mercurial > emacs
changeset 74982:3b9c6c0ac744
(previous-scroll-bar-mode): New variable
(set-scroll-bar-mode): Set previous-scroll-bar-mode.
(scroll-bar-mode): Use previous-scroll-bar-mode if set.
| author | Jan Djärv <jan.h.d@swipnet.se> |
|---|---|
| date | Sat, 30 Dec 2006 15:23:24 +0000 |
| parents | caf623b2b269 |
| children | c0112a92bceb |
| files | lisp/scroll-bar.el |
| diffstat | 1 files changed, 6 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/scroll-bar.el Sat Dec 30 15:23:09 2006 +0000 +++ b/lisp/scroll-bar.el Sat Dec 30 15:23:24 2006 +0000 @@ -75,6 +75,7 @@ ;;;; 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 @@ (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 @@ (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.