# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 801816884 0
# Node ID 26aeed5ef5448b8dcf060d2bc8c8293fc733992d
# Parent  854e396aabed1644f9fbb577efa377ca36e81e80
(make-initial-minibuffer-frame): New function.
(frame-notice-user-settings): Call it.

diff -r 854e396aabed -r 26aeed5ef544 lisp/frame.el
--- a/lisp/frame.el	Tue May 30 06:53:25 1995 +0000
+++ b/lisp/frame.el	Tue May 30 06:54:44 1995 +0000
@@ -272,8 +272,7 @@
 	      ;; 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 @@
     ;; 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)