# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 895818545 0
# Node ID 8075f717f3e43fac49ce0dc3dcd5b640ab530319
# Parent  dc8c3736ebea3c5d15dadcfc406f835b3b56fa53
(apropos): Handle aliases for undefined functions.

diff -r dc8c3736ebea -r 8075f717f3e4 lisp/apropos.el
--- 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)