44 |
;; during byte-compilation (at which point it might be missing). |
;; during byte-compilation (at which point it might be missing). |
45 |
(load "finder-inf" t t) |
(load "finder-inf" t t) |
46 |
|
|
47 |
|
(defvar finder-mode-hook nil |
48 |
|
"*Hook run when function `finder-mode' is called.") |
49 |
|
|
50 |
;; Local variable in finder buffer. |
;; Local variable in finder buffer. |
51 |
(defvar finder-headmark) |
(defvar finder-headmark) |
52 |
|
|
340 |
(setq mode-name "Finder") |
(setq mode-name "Finder") |
341 |
(setq major-mode 'finder-mode) |
(setq major-mode 'finder-mode) |
342 |
(make-local-variable 'finder-headmark) |
(make-local-variable 'finder-headmark) |
343 |
(setq finder-headmark nil)) |
(setq finder-headmark nil) |
344 |
|
(run-hooks 'finder-mode-hook)) |
345 |
|
|
346 |
(defun finder-summary () |
(defun finder-summary () |
347 |
"Summarize basic Finder commands." |
"Summarize basic Finder commands." |