Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
4de5599d
Commit
4de5599d
authored
Apr 03, 1995
by
Richard M. Stallman
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(apropos): Use apropos-worthy-symbol-p as default predicate.
(apropos-worthy-symbol-p): New function.
parent
38832b4c
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
10 additions
and
1 deletion
+10
-1
lisp/apropos.el
lisp/apropos.el
+10
-1
No files found.
lisp/apropos.el
View file @
4de5599d
...
...
@@ -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
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment