X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fhyper-apropos.el;h=d5e4cde0909481707aa443b71a0e5ac1d46246bf;hb=4722bc54af41d050cb2bf24670d152f3fb0547b7;hp=7194df899c5cab020646a452d724dd2e07547bee;hpb=98a6e4055a1fa624c592ac06f79287d55196ca37;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/hyper-apropos.el b/lisp/hyper-apropos.el
index 7194df8..d5e4cde 100644
--- a/lisp/hyper-apropos.el
+++ b/lisp/hyper-apropos.el
@@ -310,10 +310,12 @@ a = autoloaded, b = byte-compiled, i = internal, l = lambda, m = macro.\n\n"
 			 (if (natnump l) l 0)))
       (and hyper-apropos-show-brief-docs
 	   (setq doc
-	   ;; A symbol's function slot can point to an unbound symbol.
-	   ;; In that case, `documentation' will fail.
-		 (ignore-errors
-		   (documentation fn)))
+		 ;; A symbol's function slot can point to an unbound symbol.
+		 ;; In that case, `documentation' will fail.
+		 (condition-case nil
+		     (documentation fn)
+		   (void-function "(alias for undefined function)")
+		   (error "(unexpected error from `documentation')")))
 	   (if  (string-match
 		 "^([^\n\t )]+[\t ]*\\([^\n)]+\\)?)\\(:[\t ]*\\|\n?\\'\\)"
 		 doc)
@@ -726,7 +728,12 @@ See also `hyper-apropos' and `hyper-describe-function'."
 		     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))