XEmacs 21.4.17 "Jumbo Shrimp".

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

diff --git a/lisp/help.el b/lisp/help.el
index 3bde4cd..2ef37f9 100644 (file)
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -1075,7 +1075,8 @@ part of the documentation of internal subroutines."
   (let ((doc (condition-case nil
                 (or (documentation function)
                     (gettext "not documented"))
   (let ((doc (condition-case nil
                 (or (documentation function)
                     (gettext "not documented"))

-              (void-function ""))))
+              (void-function "(alias for undefined function)")
+              (error "(unexpected error from `documention')"))))

     (if (and strip-arglist
             (string-match "[\n\t ]*\narguments: ?(\\(.*\\))\n?\\'" doc))
        (setq doc (substring doc 0 (match-beginning 0))))
     (if (and strip-arglist
             (string-match "[\n\t ]*\narguments: ?(\\(.*\\))\n?\\'" doc))
        (setq doc (substring doc 0 (match-beginning 0))))

@@ -1185,7 +1186,10 @@ part of the documentation of internal subroutines."
                         (documentation-property sym
                                                 'variable-documentation t)))
               (fun (and sym (fboundp sym)
                         (documentation-property sym
                                                 'variable-documentation t)))
               (fun (and sym (fboundp sym)

-                        (documentation sym t))))
+                        (condition-case nil
+                            (documentation sym t)
+                          (void-function "(alias for undefined function)")
+                          (error "(unexpected error from `documention')")))))

          (when (or var fun)
            (let ((ex (make-extent b e)))
              (require 'hyper-apropos)
          (when (or var fun)
            (let ((ex (make-extent b e)))
              (require 'hyper-apropos)