From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 14 Jun 1995 16:16:04 +0000 (+0000)
Subject: (frame-notice-user-settings): When making a minibufferless
X-Git-Tag: emacs-19.34~3639
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=06d7dff28f565c8da149bf62720baf3f91355969;p=emacs.git

(frame-notice-user-settings): When making a minibufferless
frame, don't copy `name' parm explicitly unless it was explicit before.
---

diff --git a/lisp/frame.el b/lisp/frame.el
index e1fb765a13b..1fba93e184f 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -246,9 +246,13 @@ These supersede the values given in `default-frame-alist'.")
 	      (while (not (cdr (assq 'visibility
 				     (frame-parameters frame-initial-frame))))
 		(sleep-for 1))
+	      (setq parms (frame-parameters frame-initial-frame))
+	      ;; Get rid of `name' unless it was specified explicitly before.
+	      (or (assq 'name frame-initial-frame-alist)
+		  (setq parms (delq (assq 'name parms) parms)))
 	      (setq parms (append initial-frame-alist
 				  default-frame-alist
-				  (frame-parameters frame-initial-frame)
+				  parms
 				  nil))
 	      ;; Get rid of `reverse', because that was handled
 	      ;; when we first made the frame.