diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/finder.el | 6 |
1 files changed, 5 insertions, 1 deletions
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." |