Mercurial > emacs
diff lisp/frame.el @ 8521:340ebdb14a0e
(frame-notice-user-settings): If we change the frame's font,
call frame-update-faces.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Thu, 11 Aug 1994 21:38:02 +0000 |
parents | 32880f6bd87a |
children | 0496b5d4173c |
line wrap: on
line diff
--- a/lisp/frame.el Thu Aug 11 21:00:10 1994 +0000 +++ b/lisp/frame.el Thu Aug 11 21:38:02 1994 +0000 @@ -323,8 +323,11 @@ (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)