diff options
| author | Richard M. Stallman <[email protected]> | 1994-08-11 21:38:02 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 1994-08-11 21:38:02 +0000 |
| commit | 86e58378af08663d10166252ed1c54a70564c351 (patch) | |
| tree | 3d403cbc7bcb09b7e20e1b3145ff06ceeec706b0 /lisp/frame.el | |
| parent | 985a7a04dc3e05525bb48c26a4b603e0ba5fba5d (diff) | |
(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 b529afc898..e61e9a4c1d 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) |