comparison lisp/apropos.el @ 29498:4b79925ce8fa

*** empty log message ***
author Gerd Moellmann <gerd@gnu.org>
date Wed, 07 Jun 2000 15:38:54 +0000
parents cc07870ddb45
children dbfcedec53b3
comparison
equal deleted inserted replaced
29497:0763a6ed0743 29498:4b79925ce8fa
110 (define-key map [mouse-2] 'apropos-mouse-follow) 110 (define-key map [mouse-2] 'apropos-mouse-follow)
111 (define-key map [down-mouse-2] nil) 111 (define-key map [down-mouse-2] nil)
112 map) 112 map)
113 "Keymap used in Apropos mode.") 113 "Keymap used in Apropos mode.")
114 114
115 (defvar apropos-mode-hook nil
116 "*Hook run when mode is turned on.")
115 117
116 (defvar apropos-regexp nil 118 (defvar apropos-regexp nil
117 "Regexp used in current apropos run.") 119 "Regexp used in current apropos run.")
118 120
119 (defvar apropos-files-scanned () 121 (defvar apropos-files-scanned ()
132 \\{apropos-mode-map}" 134 \\{apropos-mode-map}"
133 (interactive) 135 (interactive)
134 (kill-all-local-variables) 136 (kill-all-local-variables)
135 (use-local-map apropos-mode-map) 137 (use-local-map apropos-mode-map)
136 (setq major-mode 'apropos-mode 138 (setq major-mode 'apropos-mode
137 mode-name "Apropos")) 139 mode-name "Apropos")
140 (run-hooks 'apropos-mode-hook))
138 141
139 ;;;###autoload 142 ;;;###autoload
140 (defun apropos-variable (regexp &optional do-all) 143 (defun apropos-variable (regexp &optional do-all)
141 "Show user variables that match REGEXP. 144 "Show user variables that match REGEXP.
142 With optional prefix ARG or if `apropos-do-all' is non-nil, also show 145 With optional prefix ARG or if `apropos-do-all' is non-nil, also show