summaryrefslogtreecommitdiff
path: root/lisp/frame.el
diff options
context:
space:
mode:
authorJim Blandy <jimb@redhat.com>1993-06-11 11:33:31 +0000
committerJim Blandy <jimb@redhat.com>1993-06-11 11:33:31 +0000
commit72490652c201045626ba3363a6ff5cdb5e132ab1 (patch)
treef10033be19cfbadc75b70382022f4e8f0fb4f564 /lisp/frame.el
parent8b677dc23e5be138beac4fadd6e85e424c2bfe8b (diff)
downloademacs-72490652c201045626ba3363a6ff5cdb5e132ab1.tar.gz
* frame.el (frame-initialize): Remember to actually traverse
initial-frame-alist.
Diffstat (limited to 'lisp/frame.el')
-rw-r--r--lisp/frame.el3
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)