Commit df11cb7f authored by Jim Blandy's avatar Jim Blandy
Browse files

*** empty log message ***

parent 5277487d
...@@ -88,7 +88,7 @@ These supercede the values given in default-screen-alist.") ...@@ -88,7 +88,7 @@ These supercede the values given in default-screen-alist.")
;; If there was none, then we need to create the opening screen. ;; If there was none, then we need to create the opening screen.
(or screens (or screens
(setq global-minibuffer-screen (setq default-minibuffer-screen
(setq screen-initial-screen (setq screen-initial-screen
(new-screen initial-screen-alist)))) (new-screen initial-screen-alist))))
...@@ -119,8 +119,10 @@ These supercede the values given in default-screen-alist.") ...@@ -119,8 +119,10 @@ These supercede the values given in default-screen-alist.")
'(minibuffer . t))) '(minibuffer . t)))
'only) 'only)
(progn (progn
(setq global-minibuffer-screen (setq default-minibuffer-screen
(new-screen initial-screen-alist)) (new-screen
(append initial-screen-alist
(screen-parameters screen-initial-screen))))
(delete-screen screen-initial-screen)) (delete-screen screen-initial-screen))
(modify-screen-parameters screen-initial-screen (modify-screen-parameters screen-initial-screen
initial-screen-alist)))) initial-screen-alist))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment