From: Colin Walters <walters@gnu.org>
Date: Sun, 9 Jun 2002 00:17:17 +0000 (+0000)
Subject: (occur-mode): Do set `font-lock-defaults',
X-Git-Tag: ttn-vms-21-2-B4~14710
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f53f6a1e0c4162205725131bc15f3dcfecd41bb3;p=emacs.git

(occur-mode): Do set `font-lock-defaults',
and be sure to set `font-lock-core-only'.
---

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))