From f53f6a1e0c4162205725131bc15f3dcfecd41bb3 Mon Sep 17 00:00:00 2001 From: Colin Walters Date: Sun, 9 Jun 2002 00:17:17 +0000 Subject: [PATCH] (occur-mode): Do set `font-lock-defaults', and be sure to set `font-lock-core-only'. --- lisp/replace.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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)) -- 2.39.5