mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 16:51:06 -07:00
Code Issues Projects Releases Wiki Activity

(apropos): Use apropos-worthy-symbol-p as default predicate.

Browse source 
(apropos-worthy-symbol-p): New function.
This commit is contained in:
Richard M. Stallman 1995-04-03 21:38:06 +00:00
parent 38832b4c51
commit 4de5599d7d
1 changed files with 10 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/apropos.el
View file

@ -50,13 +50,21 @@
Makes them run 2 or 3 times slower. Set this non-nil if you have a fast
machine.")
(defun apropos-worthy-symbol-p (symbol)
"Return non-nil if SYMBOL is not worthless."
(or (fboundp symbol)
(boundp symbol)
(symbol-plist symbol)))
;;;###autoload
(defun apropos (regexp &optional do-all pred no-header)
"Show all symbols whose names contain matches for REGEXP.
If optional argument DO-ALL is non-nil (prefix argument if interactive),
or if `apropos-do-all' is non-nil, does more (time-consuming) work such as
showing key bindings. Optional argument PRED is called with each symbol, and
if it returns nil, the symbol is not shown.
if it returns nil, the symbol is not shown. If PRED is nil, the
default predicate is that the symbol has a value, function definition
or property list.
Optional argument NO-HEADER means don't print `Function:' or `Variable:'
in the output.
@ -64,6 +72,7 @@ in the output.
Returns list of symbols and documentation found."
(interactive "sApropos (regexp): \nP")
(setq do-all (or apropos-do-all do-all))
(setq pred (or pred 'apropos-worthy-symbol-p))
(let ((apropos-accumulate (apropos-internal regexp pred)))
(if (null apropos-accumulate)
(message "No apropos matches for `%s'" regexp)