changeset 4975:db0c6ed6f145

(occur-mode): Run occur-mode-hook.
author Richard M. Stallman <rms@gnu.org>
date Thu, 11 Nov 1993 02:48:26 +0000
parents 09139fb51584
children a81642d50a8e
files lisp/replace.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/replace.el	Thu Nov 11 02:33:43 1993 +0000
+++ b/lisp/replace.el	Thu Nov 11 02:48:26 1993 +0000
@@ -227,7 +227,8 @@
   (setq mode-name "Occur")
   (make-local-variable 'occur-buffer)
   (make-local-variable 'occur-nlines)
-  (make-local-variable 'occur-pos-list))
+  (make-local-variable 'occur-pos-list)
+  (run-hooks 'occur-mode-hook))
 
 (defun occur-mode-goto-occurrence ()
   "Go to the line this occurrence was found in, in the buffer it was found in."