# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 969465878 0
# Node ID 716c4876654b360882a26297cdabe8393c950213
# Parent  89fcb6926a975a5f122710a294b69ac7b678c145
(frame-notice-user-settings): Add a last parameter nil
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.

diff -r 89fcb6926a97 -r 716c4876654b lisp/frame.el
--- a/lisp/frame.el	Wed Sep 20 14:07:25 2000 +0000
+++ b/lisp/frame.el	Wed Sep 20 16:04:38 2000 +0000
@@ -360,7 +360,7 @@
 	  ;; 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)