Mercurial > emacs
changeset 47111:356bbdda5f67
(occur-mode-hook): New hook.
(occur-mode): Use it.
(occur-hook): Set default to nil.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Thu, 29 Aug 2002 21:35:44 +0000 |
| parents | ce17d4a1d32e |
| children | 12d6c4122440 |
| files | lisp/replace.el |
| diffstat | 1 files changed, 9 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/replace.el Thu Aug 29 17:26:47 2002 +0000 +++ b/lisp/replace.el Thu Aug 29 21:35:44 2002 +0000 @@ -464,8 +464,13 @@ "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 @@ (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."