Mercurial > emacs
changeset 3616:05cf1ccf2ada
* 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.
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Thu, 10 Jun 1993 13:10:00 +0000 |
| parents | 57086acfac3e |
| children | 40506f2cd86c |
| files | lisp/frame.el |
| diffstat | 1 files changed, 7 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- 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)