X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=blobdiff_plain;f=lisp%2Fhelp-macro.el;h=f0abbee3a5cb99de7d1f217d0ae3493a184b740a;hp=b68216d00f9abeffa7e29c73c6b79fb26f5907ce;hb=ee38d21b330f5001b47a577cefb5ba7b82a3b7d3;hpb=79d2db7d65205bc85d471590726d0cf3af5598e0

diff --git a/lisp/help-macro.el b/lisp/help-macro.el
index b68216d..f0abbee 100644
--- a/lisp/help-macro.el
+++ b/lisp/help-macro.el
@@ -108,7 +108,11 @@ and then returns."
 	      (substitute-command-keys ,help-line)))
 	 (when three-step-help
 	   (message "%s" line-prompt))
-	 (let* ((help-screen (documentation (quote ,fname)))
+	 (let* ((help-screen
+		 (condition-case nil
+		     (documentation (quote ,fname))
+		   (void-function "(alias for undefined function)")
+		   (error "(unexpected error from `documention')")))
 		;; We bind overriding-local-map for very small
 		;; sections, *excluding* where we switch buffers and
 		;; where we execute the chosen help command.