From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 19 Sep 2003 14:28:46 +0000 (+0000)
Subject: (finder-mode-hook): New variable.
X-Git-Tag: ttn-vms-21-2-B4~8813
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dcd70a815b0f7a6538a533237ab5b0b33eeda24a;p=emacs.git

(finder-mode-hook): New variable.
(finder-mode): Run hook finder-mode-hook
---

diff --git a/lisp/finder.el b/lisp/finder.el
index c9e51970f49..2958f36c3d9 100644
--- 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."