diff options
| author | Richard M. Stallman <rms@gnu.org> | 2003-09-19 14:28:46 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2003-09-19 14:28:46 +0000 |
| commit | dcd70a815b0f7a6538a533237ab5b0b33eeda24a (patch) | |
| tree | 7a425c53438fb6f1f21d29097fe2e62ba808c4f0 /lisp | |
| parent | 3db926bedade9bcec4195f253da5aa16dd434d45 (diff) | |
| download | emacs-dcd70a815b0f7a6538a533237ab5b0b33eeda24a.tar.gz | |
(finder-mode-hook): New variable.
(finder-mode): Run hook finder-mode-hook
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." |