diff options
author | David Aspinall <da@inf.ed.ac.uk> | 2009-09-20 21:10:08 +0000 |
---|---|---|
committer | David Aspinall <da@inf.ed.ac.uk> | 2009-09-20 21:10:08 +0000 |
commit | 28d02a7a25f706bef6ac47186964f19f20aa84e2 (patch) | |
tree | 4694dce0cc0a9683203fa104d21dec47831f5856 /lib/unicode-tokens.el | |
parent | 96a6f67b5bf6c2359e886e9f4bac8369245f38ca (diff) |
unicode-tokens-set-font-var-aux: run font-lock-fontify-buffer in displayed
buffers to ensure font changes are seen (change for Mac)
Diffstat (limited to 'lib/unicode-tokens.el')
-rw-r--r-- | lib/unicode-tokens.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lib/unicode-tokens.el b/lib/unicode-tokens.el index 151c644a..f107de5c 100644 --- a/lib/unicode-tokens.el +++ b/lib/unicode-tokens.el @@ -1156,7 +1156,11 @@ Commands available are: (dolist (f (frame-list)) (and (not (eq f (selected-frame))) (display-graphic-p f) - (set-face-attribute fontvar f :font font-object))) + (set-face-attribute fontvar f :font font-object)) + ;; da: add this to make sure fonts set by font lock are altered + (dolist (w (window-list f)) + (with-current-buffer (window-buffer w) + (when font-lock-mode (font-lock-fontify-buffer))))) (set-face-attribute fontvar t :font font-object)) (setq spec (list (list t (face-attr-construct fontvar)))) (put fontvar 'customized-face spec) |