Mercurial > emacs

diff lisp/apropos.el @ 22182:8075f717f3e4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(apropos): Handle aliases for undefined functions.
author Richard M. Stallman <rms@gnu.org>
date Fri, 22 May 1998 06:29:05 +0000
parents 7f104a4fc567
children eb4deede0c5a
line wrap: on
line diff
--- a/lisp/apropos.el	Fri May 22 05:00:25 1998 +0000
+++ b/lisp/apropos.el	Fri May 22 06:29:05 1998 +0000
@@ -227,7 +227,10 @@
 	 (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)