diff options
Diffstat (limited to 'lisp/dynamic-setting.el')
| -rw-r--r-- | lisp/dynamic-setting.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/dynamic-setting.el b/lisp/dynamic-setting.el index 37a95999562..790aaf7170e 100644 --- a/lisp/dynamic-setting.el +++ b/lisp/dynamic-setting.el @@ -65,7 +65,6 @@ current form for the frame (i.e. hinting or somesuch changed)." frame-font))) (if font-to-set (progn - (message "setting %s" font-to-set) (set-frame-parameter f 'font-parameter font-to-set) (set-face-attribute 'default f :width 'normal @@ -97,6 +96,11 @@ Changes can be ((eq type 'font-render) (font-setting-change-default-font display-name nil)) + ;; This is a bit heavy, ideally we would just clear faces + ;; on the affected display, and perhaps only the relevant + ;; faces. Oh well. + ((eq type 'theme-name) (clear-face-cache)) + ((eq type 'tool-bar-style) (force-mode-line-update t))))) (define-key special-event-map [config-changed-event] |