From: Jan Djärv <jan.h.d@swipnet.se>
Date: Sat, 30 Dec 2006 15:23:24 +0000 (+0000)
Subject: (previous-scroll-bar-mode): New variable
X-Git-Tag: emacs-pretest-22.0.93~347
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f62c3ee2001790189c37ff7ec53586ffabfd0ecb;p=emacs.git

(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.
---

diff --git a/lisp/scroll-bar.el b/lisp/scroll-bar.el
index 69d696f7741..438aa8f14dd 100644
--- a/lisp/scroll-bar.el
+++ b/lisp/scroll-bar.el
@@ -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.