Mercurial > hg > xemacs-beta

diff lisp/hyper-apropos.el @ 2275:445bd1969ed0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2004-09-15 08:30:25 by stephent] fix void-function error in apropos <87656glyun.fsf@tleepslib.sk.tsukuba.ac.jp>
author stephent
date Wed, 15 Sep 2004 08:30:27 +0000
parents 57b76886836d
children fd1acd2f457a
line wrap: on
line diff
--- a/lisp/hyper-apropos.el	Wed Sep 15 04:26:16 2004 +0000
+++ b/lisp/hyper-apropos.el	Wed Sep 15 08:30:27 2004 +0000
@@ -342,8 +342,10 @@
 		      (function-obsoleteness-doc fn)
 		    ;; A symbol's function slot can point to an unbound symbol.
 		    ;; In that case, `documentation' will fail.
-		    (ignore-errors
-		      (documentation fn)))))
+		    (condition-case nil
+			(documentation fn)
+		      (void-function "(alias for undefined function)")
+		      (error "(unexpected error from `documention')")))))
 	     (if (and
 		  doc
 		  (string-match
@@ -771,7 +773,12 @@
 		     local (current-local-map)
 		     global (current-global-map)
 		     obsolete (get symbol 'byte-obsolete-info)
-		     doc (or (documentation symbol) "function not documented"))
+		     doc (or (condition-case nil
+				 (documentation symbol)
+			       (void-function
+				"(alias for undefined function)")
+			       (error "(unexpected error from `documention')"))
+			     "function not documented"))
 	       (save-excursion
 		 (set-buffer hyper-apropos-help-buf)
 		 (goto-char (point-max))