Mercurial > emacs

diff lisp/frame.el @ 428:a24ab90a6983

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Jim Blandy <jimb@redhat.com>
date Wed, 06 Nov 1991 16:05:22 +0000
parents f6c751f07c4a
children b99d4eb7ed93
line wrap: on
line diff
--- a/lisp/frame.el	Wed Nov 06 01:23:44 1991 +0000
+++ b/lisp/frame.el	Wed Nov 06 16:05:22 1991 +0000
@@ -88,7 +88,7 @@
 
 	;; If there was none, then we need to create the opening screen.
 	(or screens
-	    (setq global-minibuffer-screen
+	    (setq default-minibuffer-screen
 		  (setq screen-initial-screen
 			(new-screen initial-screen-alist))))
     
@@ -119,8 +119,10 @@
 			 '(minibuffer . t)))
 		     'only)
 	    (progn
-	      (setq global-minibuffer-screen
-		    (new-screen initial-screen-alist))
+	      (setq default-minibuffer-screen
+		    (new-screen
+		     (append initial-screen-alist
+			     (screen-parameters screen-initial-screen))))
 	      (delete-screen screen-initial-screen))
 	  (modify-screen-parameters screen-initial-screen
 				    initial-screen-alist))))