(font-lock-mode): Set after-revert-hook

to refontify after revert.

diff --git a/lisp/font-lock.el b/lisp/font-lock.el
index e1f35b179d39a2f9ce14b97eb939ad8ead459973..9ce1ed1e8bc486083f50b8eaa0c410cc3a65339a 100644 (file)
--- a/lisp/font-lock.el
+++ b/lisp/font-lock.el
@@ -365,14 +365,17 @@ can use \\[font-lock-fontify-buffer]."
     (set (make-local-variable 'font-lock-mode) on-p)
     (cond (on-p
           (font-lock-set-defaults)
+          (make-local-variable 'after-revert-hook)
+          ;;if buffer is reverted, must repeat fontification. 
+          (setq after-revert-hook 'font-lock-fontify-buffer)
           (run-hooks 'font-lock-mode-hook)
           (or font-lock-fontified (font-lock-fontify-buffer)))
          (font-lock-fontified
           (setq font-lock-fontified nil)
+          (setq after-revert-hook nil)
           (font-lock-unfontify-region (point-min) (point-max))))
     (force-mode-line-update)))
 
-
 (defun font-lock-fontify-buffer ()
   "Fontify the current buffer the way `font-lock-mode' would: