diff options
| author | Po Lu <luangruo@yahoo.com> | 2022-11-15 19:45:28 +0800 |
|---|---|---|
| committer | Po Lu <luangruo@yahoo.com> | 2022-11-15 19:48:39 +0800 |
| commit | c6df541783246ea867cd128c74e50afb8c9bf662 (patch) | |
| tree | 3046a1141843d85915110540ce2651d2c9f1c78f /lisp | |
| parent | 833e60ae1a5dd4301eb556460285414f4fea9fec (diff) | |
| download | emacs-c6df541783246ea867cd128c74e50afb8c9bf662.tar.gz emacs-c6df541783246ea867cd128c74e50afb8c9bf662.tar.bz2 emacs-c6df541783246ea867cd128c74e50afb8c9bf662.zip | |
More fixes to last change
* lisp/dynamic-setting.el (font-setting-change-default-font):
Call `reconsider-frame-fonts'.
* src/frame.c (Freconsider_frame_fonts): New function.
(syms_of_frame): Add new function.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/dynamic-setting.el | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/lisp/dynamic-setting.el b/lisp/dynamic-setting.el index ff7bf182d1b..ee6d1ceb358 100644 --- a/lisp/dynamic-setting.el +++ b/lisp/dynamic-setting.el @@ -51,12 +51,11 @@ the current form for the frame (i.e. hinting or somesuch changed)." ;; Set the font on all current and future frames, as though ;; the `default' face had been "set for this session": (set-frame-font new-font nil frame-list) - ;; Just redraw the existing fonts on all frames, by clearing - ;; the font and face caches. This will cause all fonts to be - ;; recreated. - (clear-font-cache) - (clear-face-cache t) - (redraw-display))))) + ;; Just reconsider the existing fonts on all frames on each + ;; display, by clearing the font and face caches. This will + ;; cause all fonts to be recreated. + (dolist (frame frame-list) + (reconsider-frame-fonts frame)))))) (defun dynamic-setting-handle-config-changed-event (event) "Handle config-changed-event on the display in EVENT. |