mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(apropos): Handle aliases for undefined functions.

Browse Source
This commit is contained in:
Richard M. Stallman 1998-05-22 06:29:05 +00:00
parent 47414bc1e2
commit af57e0fa0d
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/apropos.el
View File

@ -227,7 +227,10 @@ Returns list of symbols and documentation found."
(setcar p (list
(setq symbol (car p))
(when (fboundp symbol)
(if (setq doc (documentation symbol t))
(if (setq doc (condition-case nil
(documentation symbol t)
(void-function
"(alias for undefined function)")))
(substring doc 0 (string-match "\n" doc))
"(not documented)"))
(when (boundp symbol)