Mercurial > emacs

changeset 18892:fb7337970b45

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(frame-initialize): Don't alter vertical-scroll-bars parameter here.
author Richard M. Stallman <rms@gnu.org>
date Mon, 21 Jul 1997 05:59:08 +0000
parents 86c0d896480e
children de4c911119b4
files lisp/frame.el
diffstat 1 files changed, 1 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/frame.el	Mon Jul 21 05:58:34 1997 +0000
+++ b/lisp/frame.el	Mon Jul 21 05:59:08 1997 +0000
@@ -169,19 +169,13 @@
 	    (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)))
+			  (make-frame frame-initial-frame-alist)))
 	      ;; Delete any specifications for window geometry parameters
 	      ;; so that we won't reapply them in frame-notice-user-settings.
 	      ;; It would be wrong to reapply them then,