X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fapropos.el;h=a96221cb4dc94e45d236c0eb86da15e49c4a35dc;hb=f94fbd3020e40c3685853c905014f2ae310b02c7;hp=76be36bcd819e803d6d93f85b836933f40a42c86;hpb=98a6e4055a1fa624c592ac06f79287d55196ca37;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/apropos.el b/lisp/apropos.el
index 76be36b..a96221c 100644
--- a/lisp/apropos.el
+++ b/lisp/apropos.el
@@ -175,7 +175,10 @@ variables."
 				  ;; XEmacs change: if obsolete,
 				  ;; only mention that.
 				  (or (function-obsoleteness-doc symbol)
-				      (documentation symbol t)))
+				      (condition-case nil
+					  (documentation symbol t)
+					(void-function "(aliased to undefined function)")
+					(error "(unexpected error from `documention')"))))
 			    (substring doc 0 (string-match "\n" doc))
 			  "(not documented)"))
 		    (and do-all
@@ -225,7 +228,10 @@ Returns list of symbols and documentation found."
 				  ;; XEmacs change: if obsolete,
 				  ;; only mention that.
 				  (or (function-obsoleteness-doc symbol)
-				      (documentation symbol t)))
+				      (condition-case nil
+					  (documentation symbol t)
+					(void-function "(aliased to undefined function)")
+					(error "(unexpected error from `documention')"))))
 			    (substring doc 0 (string-match "\n" doc))
 			  "(not documented)"))
 		    (if (boundp symbol)