Commit c9ae8cbb authored by Juanma Barranquero's avatar Juanma Barranquero
Browse files

(occur-mode-hook): New hook.

(occur-mode): Use it.
(occur-hook): Set default to nil.
parent 4390021b
2002-08-29 Juanma Barranquero <>
* replace.el (occur-mode-hook): New hook.
(occur-mode): Use it.
(occur-hook): Set default to nil.
2002-08-29 Richard M. Stallman <>
* emacs-lisp/bytecomp.el (byte-compile-log-file): Use \f.
......@@ -464,8 +464,13 @@ end of the buffer."
"Arguments to pass to `occur-1' to revert an Occur mode buffer.
See `occur-revert-function'.")
(defcustom occur-hook '(turn-on-font-lock)
"Hooks run when `occur' is called."
(defcustom occur-mode-hook '(turn-on-font-lock)
"Hook run when entering Occur mode."
:type 'hook
:group 'matching)
(defcustom occur-hook nil
"Hook run when `occur' is called."
:type 'hook
:group 'matching)
......@@ -482,7 +487,8 @@ Alternatively, click \\[occur-mode-mouse-goto] on an item to go to it.
(setq major-mode 'occur-mode)
(setq mode-name "Occur")
(set (make-local-variable 'revert-buffer-function) 'occur-revert-function)
(make-local-variable 'occur-revert-arguments))
(make-local-variable 'occur-revert-arguments)
(run-hooks 'occur-mode-hook))
(defun occur-revert-function (ignore1 ignore2)
"Handle `revert-buffer' for Occur mode buffers."
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment