to a call to `append', because the last list passed to `append' is
not copied, and so subsequent calls to assq-delete-all will modify
default-frame-alist.
;; the new parameters.
(let (newparms allparms tail)
(setq allparms (append initial-frame-alist
- default-frame-alist))
+ default-frame-alist nil))
(if (assq 'height frame-initial-geometry-arguments)
(setq allparms (assq-delete-all 'height allparms)))
(if (assq 'width frame-initial-geometry-arguments)