mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(finder-mode-hook): New variable.

Browse source 
(finder-mode): Run hook finder-mode-hook
This commit is contained in:
Richard M. Stallman 2003-09-19 14:28:46 +00:00
parent 3db926beda
commit dcd70a815b
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/finder.el
View file

@ -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."