Mercurial > emacs
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 |