# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 739717800 0
# Node ID 05cf1ccf2ada22be133172fba6b6a85e45771b85
# Parent  57086acfac3e358ce8185610094cb9c495817ec9
	* frame.el (frame-initialize): When deleting geometry
	specifications from initial-frame-alist, remember that they may
	occur more than once, and do, if the -geometry option was
	specified as well as a .geometry resource.

diff -r 57086acfac3e -r 05cf1ccf2ada lisp/frame.el
--- a/lisp/frame.el	Thu Jun 10 12:52:31 1993 +0000
+++ b/lisp/frame.el	Thu Jun 10 13:10:00 1993 +0000
@@ -102,12 +102,13 @@
 	      ;; 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)))))
+	      ;; Remember that they may occur more than once.
+	      (let ((tail initial-frame-alist))
+		(while (consp tail)
+		  (if (and (consp (car tail))
+			   (memq (car (car tail)) '(height width top left)))
+		      (setq initial-frame-alist
+			    (delq tail initial-frame-alist)))))
 	      ;; Handle `reverse' as a parameter.
 	      (if (cdr (or (assq 'reverse initial-frame-alist)
 			   (assq 'reverse default-frame-alist)