(finder-mode-hook): New variable.

(finder-mode): Run hook finder-mode-hook

diff --git a/lisp/finder.el b/lisp/finder.el
index c9e51970f49cd44fd2ffe6b4364eb081923d22c7..2958f36c3d9f67f0278751c7c97385e170cea418 100644 (file)
--- a/lisp/finder.el
+++ b/lisp/finder.el
@@ -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 @@ FILE should be in a form suitable for passing to `locate-library'."
   (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."