From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 22 May 1998 06:29:05 +0000 (+0000)
Subject: (apropos): Handle aliases for undefined functions.
X-Git-Tag: emacs-20.3~895
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=af57e0fa0d6b924f15979fcc430782c44bba2aef;p=emacs.git

(apropos): Handle aliases for undefined functions.
---

diff --git a/lisp/apropos.el b/lisp/apropos.el
index 90fa4309f1b..f726029c7ea 100644
--- a/lisp/apropos.el
+++ b/lisp/apropos.el
@@ -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)