Mercurial > emacs

diff lisp/apropos.el @ 29498:4b79925ce8fa

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Gerd Moellmann <gerd@gnu.org>
date Wed, 07 Jun 2000 15:38:54 +0000
parents cc07870ddb45
children dbfcedec53b3
line wrap: on
line diff
--- a/lisp/apropos.el	Wed Jun 07 15:38:45 2000 +0000
+++ b/lisp/apropos.el	Wed Jun 07 15:38:54 2000 +0000
@@ -112,6 +112,8 @@
     map)
   "Keymap used in Apropos mode.")
 
+(defvar apropos-mode-hook nil
+  "*Hook run when mode is turned on.")
 
 (defvar apropos-regexp nil
   "Regexp used in current apropos run.")
@@ -134,7 +136,8 @@
   (kill-all-local-variables)
   (use-local-map apropos-mode-map)
   (setq major-mode 'apropos-mode
-	mode-name "Apropos"))
+	mode-name "Apropos")
+  (run-hooks 'apropos-mode-hook))
 
 ;;;###autoload
 (defun apropos-variable (regexp &optional do-all)