Commit dcd70a81 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(finder-mode-hook): New variable.

(finder-mode): Run hook finder-mode-hook
parent 3db926be
......@@ -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."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment