X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/0a73626a30b81fb82ddf14c8b60d36e03e8edb1f..af815663b8a7f52f7af8effaecdb887dca17ba0a:/packages/markchars/markchars.el

diff --git a/packages/markchars/markchars.el b/packages/markchars/markchars.el
index 2f0e7b789..974456a44 100644
--- a/packages/markchars/markchars.el
+++ b/packages/markchars/markchars.el
@@ -191,7 +191,8 @@ The default is to mark nonascii chars with a magenta underline."
           (add-to-list props 'markchars))
         (font-lock-add-keywords nil markchars-used-keywords))
     (font-lock-remove-keywords nil markchars-used-keywords))
-  (font-lock-fontify-buffer))
+  (if (fboundp 'font-lock-flush)
+      (font-lock-flush) (font-lock-fontify-buffer)))
 
 ;;;###autoload
 (define-globalized-minor-mode markchars-global-mode markchars-mode