# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1124574568 0
# Node ID 8bd0fdf7b9d14e9f8e5844cc3a8026c76a873814
# Parent  de7df04c6d6b28ade4fb3f2f2bbc8bdb55a8a3cf
(normal-mode): If font lock is on, turn it off and on.

diff -r de7df04c6d6b -r 8bd0fdf7b9d1 lisp/files.el
--- 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)))