# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 739798411 0
# Node ID cf5972f69f8a1c3431cb7c60fa8988ef9377c92a
# Parent  4b34cbec2058ccb41920ddc1edecb70f5b0ededd
	* frame.el (frame-initialize): Remember to actually traverse
	initial-frame-alist.

diff -r 4b34cbec2058 -r cf5972f69f8a lisp/frame.el
--- a/lisp/frame.el	Fri Jun 11 11:28:28 1993 +0000
+++ b/lisp/frame.el	Fri Jun 11 11:33:31 1993 +0000
@@ -108,7 +108,8 @@
 		  (if (and (consp (car tail))
 			   (memq (car (car tail)) '(height width top left)))
 		      (setq initial-frame-alist
-			    (delq tail initial-frame-alist)))))
+			    (delq tail initial-frame-alist)))
+		  (setq tail (cdr tail))))
 	      ;; Handle `reverse' as a parameter.
 	      (if (cdr (or (assq 'reverse initial-frame-alist)
 			   (assq 'reverse default-frame-alist)