(U+6215): Apply new conventions for glyph granularity.

[chise/xemacs-chise.git.1] / lisp / help-macro.el

diff --git a/lisp/help-macro.el b/lisp/help-macro.el
index b68216d..f0abbee 100644 (file)
--- 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.