mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(make-initial-minibuffer-frame): New function.

Browse source 
(frame-notice-user-settings): Call it.
This commit is contained in:
Karl Heuer 1995-05-30 06:54:44 +00:00
parent 2526c29004
commit 746bd2659a
1 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/frame.el
View file

@ -272,8 +272,7 @@ These supersede the values given in `default-frame-alist'.")
;; 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 @@ These supersede the values given in `default-frame-alist'.")
;; 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)