# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 751668394 0
# Node ID c3db6fd69f1f1796e1688e46128bd500f7a3120b
# Parent  bc777b8e4b4507d7940fbb40dc30e9b9534b1ee4
(font-lock-fontify-buffer): Don't turn
font-lock-mode on and off; just call font-lock-set-defaults.

diff -r bc777b8e4b45 -r c3db6fd69f1f lisp/font-lock.el
--- a/lisp/font-lock.el	Tue Oct 26 20:02:21 1993 +0000
+++ b/lisp/font-lock.el	Tue Oct 26 20:46:34 1993 +0000
@@ -390,7 +390,7 @@
 	(font-lock-verbose (or font-lock-verbose (interactive-p))))
     (if font-lock-verbose (message "Fontifying %s..." (buffer-name)))
     ;; Turn it on to run hooks and get the right font-lock-keywords.
-    (or was-on (font-lock-mode 1))
+    (or was-on (font-lock-set-defaults))
     (font-lock-unfontify-region (point-min) (point-max))
     (if font-lock-verbose (message "Fontifying %s... (syntactically...)"
 				   (buffer-name)))
@@ -400,7 +400,6 @@
       (if font-lock-verbose (message "Fontifying %s... (regexps...)"
 				     (buffer-name)))
       (font-lock-hack-keywords (point-min) (point-max) font-lock-verbose))
-    (or was-on (font-lock-mode 0)) ; turn it off if it was off.
     (set (make-local-variable 'font-lock-fontified) t)
     (if font-lock-verbose (message "Fontifying %s... done." (buffer-name)))
     ))