Commit 5e901379 authored by Jim Blandy's avatar Jim Blandy
Browse files

* 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.
parent 2d52e48f
......@@ -102,12 +102,13 @@ These supersede the values given in `default-frame-alist'.")
;; 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)
;; 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)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment