[patch] finder.el - run finder-mode-hook

This is CC from my post to gnu.emacs.bug 2003-09-14 Jari Aalto <jari.aalto(a)poboxes.com&gt; * finder.el (finder-mode-hook): New variable. (finder-mode): Run hook finder-mode-hook =================================================================== RCS file: RCS/finder.el,v retrieving revision 1.1 diff -bwu -r1.1 finder.el --- finder.el 2003-09-14 18:54:41+03 1.1 +++ finder.el 2003-09-14 18:56:16+03 ＠＠ -41,6 +41,9 ＠＠ (require 'lisp-mnt) (require 'finder-inf) +(defvar finder-mode-hook nil + "*Hook run when function `finder-mode' is called.") + ;; Local variable in finder buffer. (defvar finder-headmark) ＠＠ -335,7 +338,8 ＠＠ (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."