diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-08-11 21:38:02 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-08-11 21:38:02 +0000 |
| commit | 11cd12c50196e33065c66c4f7bc5c4674df061fa (patch) | |
| tree | 9e60c2a45720e51be8d2e86bb14bbf51a58a502d /lisp/frame.el | |
| parent | a1e5e7c99677b0cb199e2a2ea0fd15a75354fc68 (diff) | |
| download | emacs-11cd12c50196e33065c66c4f7bc5c4674df061fa.tar.gz | |
(frame-notice-user-settings): If we change the frame's font,
call frame-update-faces.
Diffstat (limited to 'lisp/frame.el')
| -rw-r--r-- | lisp/frame.el | 5 |
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) |