aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/font-lock.el3
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/font-lock.el b/lisp/font-lock.el
index ae8d5764e5d..a2b5b7d1c4e 100644
--- a/lisp/font-lock.el
+++ b/lisp/font-lock.el
@@ -390,7 +390,7 @@ This can take a while for large buffers."
390 (font-lock-verbose (or font-lock-verbose (interactive-p)))) 390 (font-lock-verbose (or font-lock-verbose (interactive-p))))
391 (if font-lock-verbose (message "Fontifying %s..." (buffer-name))) 391 (if font-lock-verbose (message "Fontifying %s..." (buffer-name)))
392 ;; Turn it on to run hooks and get the right font-lock-keywords. 392 ;; Turn it on to run hooks and get the right font-lock-keywords.
393 (or was-on (font-lock-mode 1)) 393 (or was-on (font-lock-set-defaults))
394 (font-lock-unfontify-region (point-min) (point-max)) 394 (font-lock-unfontify-region (point-min) (point-max))
395 (if font-lock-verbose (message "Fontifying %s... (syntactically...)" 395 (if font-lock-verbose (message "Fontifying %s... (syntactically...)"
396 (buffer-name))) 396 (buffer-name)))
@@ -400,7 +400,6 @@ This can take a while for large buffers."
400 (if font-lock-verbose (message "Fontifying %s... (regexps...)" 400 (if font-lock-verbose (message "Fontifying %s... (regexps...)"
401 (buffer-name))) 401 (buffer-name)))
402 (font-lock-hack-keywords (point-min) (point-max) font-lock-verbose)) 402 (font-lock-hack-keywords (point-min) (point-max) font-lock-verbose))
403 (or was-on (font-lock-mode 0)) ; turn it off if it was off.
404 (set (make-local-variable 'font-lock-fontified) t) 403 (set (make-local-variable 'font-lock-fontified) t)
405 (if font-lock-verbose (message "Fontifying %s... done." (buffer-name))) 404 (if font-lock-verbose (message "Fontifying %s... done." (buffer-name)))
406 )) 405 ))