* frame.el (frame-initialize): Remember to actually traverse

initial-frame-alist.

* frame.el (frame-initialize): Remember to actually traverse
initial-frame-alist.
3008ffb6 · Jim Blandy · 32ab4c10 · 3008ffb6
Commit 3008ffb6 authored Jun 11, 1993 by Jim Blandy
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 1 deletion

lisp/frame.el lisp/frame.el +2 -1

No files found.
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -108,7 +108,8 @@ These supersede the values given in `default-frame-alist'.")
 		  (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)