diff options
| -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) |