diff options
| author | Jim Blandy <jimb@redhat.com> | 1993-06-11 11:33:31 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1993-06-11 11:33:31 +0000 |
| commit | 3008ffb6cd5a286585c27161cfbb0b4a07c760f4 (patch) | |
| tree | ae975d9be2d294957fbe83c1081f7cd2893dd710 | |
| parent | 32ab4c10692ea7f1f1ed127fd7a0750ff977416f (diff) | |
| download | emacs-3008ffb6cd5a286585c27161cfbb0b4a07c760f4.tar.gz | |
* frame.el (frame-initialize): Remember to actually traverse
initial-frame-alist.
| -rw-r--r-- | lisp/frame.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/frame.el b/lisp/frame.el index 6abf8126032..b7553517240 100644 --- 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) |