diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2000-06-07 15:38:54 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2000-06-07 15:38:54 +0000 |
| commit | 45f485a60165a0a95134d8d58df6ec5ed407db47 (patch) | |
| tree | 57ce51b0607664839edc30ca7822ec695a5d940b /lisp/apropos.el | |
| parent | 14c122ec9b9552e51333448787261d8cabc32653 (diff) | |
| download | emacs-45f485a60165a0a95134d8d58df6ec5ed407db47.tar.gz | |
*** empty log message ***
Diffstat (limited to 'lisp/apropos.el')
| -rw-r--r-- | lisp/apropos.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/apropos.el b/lisp/apropos.el index f78b3794db7..5e8d4da97f2 100644 --- a/lisp/apropos.el +++ b/lisp/apropos.el @@ -112,6 +112,8 @@ for the regexp; the part that matches gets displayed in this font." 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 @@ for the regexp; the part that matches gets displayed in this font." (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) |