Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 10:27:41 +00:00
Code Issues Projects Releases Packages 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
Show stats 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))))