(occur-mode-hook): New hook.

(occur-mode): Use it.
(occur-hook): Set default to nil.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4babcec6a4214cc29196cf4833b79412ab668eaa..377d317760cae50f217a460851dd0e643f8c5b98 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2002-08-29  Juanma Barranquero  <lektu@terra.es>
+
+       * replace.el (occur-mode-hook): New hook.
+       (occur-mode): Use it.
+       (occur-hook): Set default to nil.
+
 2002-08-29  Richard M. Stallman  <rms@gnu.org>
 
        * emacs-lisp/bytecomp.el (byte-compile-log-file): Use \f.

diff --git a/lisp/replace.el b/lisp/replace.el
index 7cfe1947f504ca0b1129a63a743b2ac7b25aa3e7..bd686e81f408e4621c4a49dca831a3fbee5b33ca 100644 (file)
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -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."