# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 739048231 0
# Node ID 2f5a9b79edf7731d6a756c492bb5e94a4c975a4a
# Parent  972428ca06b6919096266fe9b2a0f0279b3b7058
(frame-initialize): Delete geometry parms from initial-frame-alist.

diff -r 972428ca06b6 -r 2f5a9b79edf7 lisp/frame.el
--- a/lisp/frame.el	Wed Jun 02 18:40:44 1993 +0000
+++ b/lisp/frame.el	Wed Jun 02 19:10:31 1993 +0000
@@ -98,6 +98,16 @@
 	      (setq default-minibuffer-frame
 		    (setq frame-initial-frame
 			  (new-frame initial-frame-alist)))
+	      ;; Delete any specifications for window geometry parameters
+	      ;; so that we won't reapply them in frame-notice-user-settings.
+	      ;; It would be wrong to reapply them then,
+	      ;; because that would override explicit user resizing.
+	      (setq initial-frame-alist
+		    (delq (assq 'height initial-frame-alist)
+			  (delq (assq 'width initial-frame-alist)
+				(delq (assq 'left initial-frame-alist)
+				      (delq (assq 'top initial-frame-alist)
+					    initial-frame-alist)))))
 	      ;; Handle `reverse' as a parameter.
 	      (if (cdr (or (assq 'reverse initial-frame-alist)
 			   (assq 'reverse default-frame-alist)