(occur-mode): Do set `font-lock-defaults',

and be sure to set `font-lock-core-only'.

1 files changed, 2 insertions, 1 deletions

diff --git a/lisp/replace.el b/lisp/replace.el
index a07c93e5c64..e5f87dc65a1 100644
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -470,8 +470,9 @@ Alternatively, click \\[occur-mode-mouse-goto] on an item to go to it.
   (use-local-map occur-mode-map)
   (setq major-mode 'occur-mode)
   (setq mode-name "Occur")
-  (make-local-variable 'revert-buffer-function)
   (set (make-local-variable 'revert-buffer-function) 'occur-revert-function)
+  (set (make-local-variable 'font-lock-defaults)
+       '(nil t nil nil nil (font-lock-core-only . t)))
   (make-local-variable 'occur-revert-arguments)
   (run-hooks 'occur-mode-hook))