Commit 746bd265 authored by Karl Heuer's avatar Karl Heuer

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

(frame-notice-user-settings): Call it.
parent 2526c290
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment