Mercurial > emacs

changeset 52533:acdfe93d0ae8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(finder-mode-hook): New variable. (finder-mode): Run hook finder-mode-hook
author Richard M. Stallman <rms@gnu.org>
date Fri, 19 Sep 2003 14:28:46 +0000
parents cd53bfef4ab1
children c8dcd0a4adb3
files lisp/finder.el
diffstat 1 files changed, 5 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/finder.el	Fri Sep 19 14:27:47 2003 +0000
+++ b/lisp/finder.el	Fri Sep 19 14:28:46 2003 +0000
@@ -44,6 +44,9 @@
 ;; during byte-compilation (at which point it might be missing).
 (load "finder-inf" t t)
 
+(defvar finder-mode-hook nil
+  "*Hook run when function `finder-mode' is called.")
+
 ;; Local variable in finder buffer.
 (defvar finder-headmark)
 
@@ -337,7 +340,8 @@
   (setq mode-name "Finder")
   (setq major-mode 'finder-mode)
   (make-local-variable 'finder-headmark)
-  (setq finder-headmark nil))
+  (setq finder-headmark nil)
+  (run-hooks 'finder-mode-hook))
 
 (defun finder-summary ()
   "Summarize basic Finder commands."