Commit 87cd38d6 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

to refontify after revert.
parent fb6208a6
...@@ -365,14 +365,17 @@ can use \\[font-lock-fontify-buffer]." ...@@ -365,14 +365,17 @@ can use \\[font-lock-fontify-buffer]."
(set (make-local-variable 'font-lock-mode) on-p) (set (make-local-variable 'font-lock-mode) on-p)
(cond (on-p (cond (on-p
(font-lock-set-defaults) (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) (run-hooks 'font-lock-mode-hook)
(or font-lock-fontified (font-lock-fontify-buffer))) (or font-lock-fontified (font-lock-fontify-buffer)))
(font-lock-fontified (font-lock-fontified
(setq font-lock-fontified nil) (setq font-lock-fontified nil)
(setq after-revert-hook nil)
(font-lock-unfontify-region (point-min) (point-max)))) (font-lock-unfontify-region (point-min) (point-max))))
(force-mode-line-update))) (force-mode-line-update)))
(defun font-lock-fontify-buffer () (defun font-lock-fontify-buffer ()
"Fontify the current buffer the way `font-lock-mode' would: "Fontify the current buffer the way `font-lock-mode' would:
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment