# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1063981726 0
# Node ID acdfe93d0ae856cd414dbfaf625fb38c552e95a5
# Parent  cd53bfef4ab1bce0c5eb82256cd8a6faa340efa0
(finder-mode-hook): New variable.
(finder-mode): Run hook finder-mode-hook

diff -r cd53bfef4ab1 -r acdfe93d0ae8 lisp/finder.el
--- 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."