[Emacs-diffs] Changes to emacs/lisp/finder.el

[Richard M. Stallman]

Index: emacs/lisp/finder.el
diff -c emacs/lisp/finder.el:1.55 emacs/lisp/finder.el:1.56
*** emacs/lisp/finder.el:1.55   Mon Sep  1 11:45:12 2003
--- emacs/lisp/finder.el        Fri Sep 19 10:28:46 2003
***************
*** 44,49 ****
--- 44,52 ----
  ;; 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,343 ****
    (setq mode-name "Finder")
    (setq major-mode 'finder-mode)
    (make-local-variable 'finder-headmark)
!   (setq finder-headmark nil))
  
  (defun finder-summary ()
    "Summarize basic Finder commands."
--- 340,347 ----
    (setq mode-name "Finder")
    (setq major-mode 'finder-mode)
    (make-local-variable 'finder-headmark)
!   (setq finder-headmark nil)
!   (run-hooks 'finder-mode-hook))
  
  (defun finder-summary ()
    "Summarize basic Finder commands."