comparison lisp/frame.el @ 3647:cf5972f69f8a

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

3646:4b34cbec2058

	      (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)
			   (cons nil
				 (x-get-resource "reverseVideo" "ReverseVideo"))))

3647:cf5972f69f8a

	      (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)))
		  (setq tail (cdr tail))))
	      ;; Handle `reverse' as a parameter.
	      (if (cdr (or (assq 'reverse initial-frame-alist)
			   (assq 'reverse default-frame-alist)
			   (cons nil
				 (x-get-resource "reverseVideo" "ReverseVideo"))))