From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 23 May 1994 09:19:28 +0000 (+0000)
Subject: (frame-initialize): Record in frame-initial-frame-alist
X-Git-Tag: emacs-19.34~8193
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a8bb588200d92f2719ef0cde3062f7778c53b24f;p=emacs.git

(frame-initialize): Record in frame-initial-frame-alist
the actual settings of vertical-scroll-bars.
---

diff --git a/lisp/frame.el b/lisp/frame.el
index 4d4a226d218..554eebaf7fa 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -130,6 +130,16 @@ These supersede the values given in `default-frame-alist'.")
 	    (progn
 	      (setq frame-initial-frame-alist
 		    (append initial-frame-alist default-frame-alist))
+	      ;; Record these with their default values
+	      ;; if they don't have any values explicitly.
+	      (or (assq 'vertical-scroll-bars frame-initial-frame-alist)
+		  (setq frame-initial-frame-alist
+			(cons '(vertical-scroll-bars . t)
+			      frame-initial-frame-alist)))
+	      (or (assq 'horizontal-scroll-bars frame-initial-frame-alist)
+		  (setq frame-initial-frame-alist
+			(cons '(horizontal-scroll-bars . t)
+			      frame-initial-frame-alist)))
 	      (setq default-minibuffer-frame
 		    (setq frame-initial-frame
 			  (make-frame initial-frame-alist)))