changeset 65059:8bd0fdf7b9d1

(normal-mode): If font lock is on, turn it off and on.
author Richard M. Stallman <rms@gnu.org>
date Sat, 20 Aug 2005 21:49:28 +0000
parents de7df04c6d6b
children 6d51680c39ce
files lisp/files.el
diffstat 1 files changed, 6 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/files.el	Sat Aug 20 21:48:51 2005 +0000
+++ b/lisp/files.el	Sat Aug 20 21:49:28 2005 +0000
@@ -1733,6 +1733,12 @@
       (set-auto-mode))
     (report-errors "File local-variables error: %s"
       (hack-local-variables)))
+  ;; Turn font lock off and on, to make sure it takes account of
+  ;; whatever file local variables are relevant to it.
+  (when (and font-lock-mode (eq (car font-lock-keywords) t))
+    (setq font-lock-keywords (cadr font-lock-keywords))
+    (font-lock-mode 1))
+
   (if (fboundp 'ucs-set-table-for-input) ; don't lose when building
       (ucs-set-table-for-input)))