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

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

diff --git a/lisp/frame.el b/lisp/frame.el
index 87a898d51e56ea899602cc334dbd7de2cc408d76..4e9fee8ec2a9fe6daf307220f91ef3a810000a81 100644 (file)
--- 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)