martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
Jim Blandy
1991-11-06 16:05:22 +00:00
parent 5277487d9c
commit df11cb7fbd
1 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/frame.el
View File

@@ -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.
(or screens
(setq global-minibuffer-screen
(setq default-minibuffer-screen
(setq screen-initial-screen
(new-screen initial-screen-alist))))
@@ -119,8 +119,10 @@ These supercede the values given in default-screen-alist.")
'(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))))