From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 30 May 1995 06:54:44 +0000 (+0000)
Subject: (make-initial-minibuffer-frame): New function.
X-Git-Tag: emacs-19.34~3846
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=746bd2659a6100d05dfaacec12661ecacae4d13f;p=emacs.git

(make-initial-minibuffer-frame): New function.
(frame-notice-user-settings): Call it.
---

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)