Mercurial > emacs
changeset 12012:26aeed5ef544
(make-initial-minibuffer-frame): New function.
(frame-notice-user-settings): Call it.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Tue, 30 May 1995 06:54:44 +0000 |
| parents | 854e396aabed |
| children | 0d5bb768982e |
| files | lisp/frame.el |
| diffstat | 1 files changed, 7 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/frame.el Tue May 30 06:53:25 1995 +0000 +++ b/lisp/frame.el Tue May 30 06:54:44 1995 +0000 @@ -272,8 +272,7 @@ ;; the only frame with a minibuffer. If it is, create a ;; new one. (or (delq frame-initial-frame (minibuffer-frame-list)) - (make-frame (append minibuffer-frame-alist - '((minibuffer . only))))) + (make-initial-minibuffer-frame nil)) ;; If the initial frame is serving as a surrogate ;; minibuffer frame for any frames, we need to wean them @@ -364,6 +363,12 @@ ;; Make sure frame-notice-user-settings does nothing if called twice. (setq frame-initial-frame nil))) +(defun make-initial-minibuffer-frame (display) + (let ((parms (append minibuffer-frame-alist '((minibuffer . only))))) + (if display + (make-frame-on-display display parms) + (make-frame parms)))) + ;; Delete from ALIST all elements whose car is KEY. ;; Return the modified alist. (defun frame-delete-all (key alist)