diff options
| author | Jim Blandy <jimb@redhat.com> | 1991-11-06 16:05:22 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1991-11-06 16:05:22 +0000 |
| commit | df11cb7fbdcba6790e86ae579160cbd9efc1fb42 (patch) | |
| tree | 8d704cb0e77d6d4c00502925cf5e5411632e13eb /lisp | |
| parent | 5277487d9cbe9bb326282c36689154324d8df887 (diff) | |
| download | emacs-df11cb7fbdcba6790e86ae579160cbd9efc1fb42.tar.gz | |
*** empty log message ***
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/frame.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/frame.el b/lisp/frame.el index 79df109bfd4..64b71a3f002 100644 --- a/lisp/frame.el +++ b/lisp/frame.el @@ -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)))) |