From 746bd2659a6100d05dfaacec12661ecacae4d13f Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Tue, 30 May 1995 06:54:44 +0000 Subject: [PATCH] (make-initial-minibuffer-frame): New function. (frame-notice-user-settings): Call it. --- lisp/frame.el | 9 +++++++-- 1 file 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) -- 2.39.2