summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/frame.el5
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/frame.el b/lisp/frame.el
index b529afc8981..e61e9a4c1d7 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -323,8 +323,11 @@ These supersede the values given in `default-frame-alist'.")
(setq newparms
(cons (cons (car (car tail)) newval) newparms))))
(setq tail (cdr tail)))
+ (setq newparms (nreverse newparms))
(modify-frame-parameters frame-initial-frame
- (nreverse newparms)))))
+ newparms)
+ (if (assq 'font newparms)
+ (frame-update-faces frame-initial-frame)))))
;; Restore the original buffer.
(set-buffer old-buffer)