procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(frame-notice-user-settings):

Browse source 
Don't respecify an old value which was nil and remains nil.
This commit is contained in:
Richard M. Stallman 1995-04-18 19:26:11 +00:00
parent 3453f0b6ef
commit 66de157de0
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/frame.el
View file

@ -344,10 +344,10 @@ These supersede the values given in `default-frame-alist'.")
;; manually.
(while tail
(let (newval oldval)
(setq oldval (cdr (assq (car (car tail))
frame-initial-frame-alist)))
(setq oldval (assq (car (car tail))
frame-initial-frame-alist))
(setq newval (cdr (assq (car (car tail)) allparms)))
(or (eq oldval newval)
(or (and oldval (eq (cdr oldval) newval))
(setq newparms
(cons (cons (car (car tail)) newval) newparms))))
(setq tail (cdr tail)))