From 28d02a7a25f706bef6ac47186964f19f20aa84e2 Mon Sep 17 00:00:00 2001 From: David Aspinall Date: Sun, 20 Sep 2009 21:10:08 +0000 Subject: unicode-tokens-set-font-var-aux: run font-lock-fontify-buffer in displayed buffers to ensure font changes are seen (change for Mac) --- lib/unicode-tokens.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'lib/unicode-tokens.el') 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) -- cgit v1.2.3