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

(frame-notice-user-settings): Call it.

1 files changed, 7 insertions, 2 deletions

diff --git a/lisp/frame.el b/lisp/frame.el
index 87a898d51e5..4e9fee8ec2a 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -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)