Commit 86e58378 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(frame-notice-user-settings): If we change the frame's font,

call frame-update-faces.
parent 985a7a04
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment