# HG changeset patch
# User Colin Walters <walters@gnu.org>
# Date 1023581837 0
# Node ID 695ea9cce74ea171414de0b8f7291e2a3d3b893b
# Parent  650fdcae4092bef7c5f98e10ed67d424a97a061c
(occur-mode): Do set `font-lock-defaults',
and be sure to set `font-lock-core-only'.

diff -r 650fdcae4092 -r 695ea9cce74e lisp/replace.el
--- a/lisp/replace.el	Sun Jun 09 00:16:29 2002 +0000
+++ b/lisp/replace.el	Sun Jun 09 00:17:17 2002 +0000
@@ -470,8 +470,9 @@
   (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))