# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 769684768 0
# Node ID d4796626508052bdbeb4224eab16b9696f619427
# Parent  ed3bbbdd9ef5f9d250e852c86c1a5aa21128367a
(frame-initialize): Record in frame-initial-frame-alist
the actual settings of vertical-scroll-bars.

diff -r ed3bbbdd9ef5 -r d47966265080 lisp/frame.el
--- a/lisp/frame.el	Mon May 23 08:23:03 1994 +0000
+++ b/lisp/frame.el	Mon May 23 09:19:28 1994 +0000
@@ -130,6 +130,16 @@
 	    (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)))