(describe-function-1): When printing FUNCTION's

documentation, don't assume FUNCTION is a symbol.

2 files changed, 4 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 029acf33895..01f1c979e15 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2001-07-10  Gerd Moellmann  <gerd@gnu.org>
 
+        * help.el (describe-function-1): When printing FUNCTION's
+        documentation, don't assume FUNCTION is a symbol.
+
         * startup.el (normal-top-level): Don't operate on the initial
         frame if we failed to create one.
 
diff --git a/lisp/help.el b/lisp/help.el
index c0447dcaedd..be391914692 100644
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -749,7 +749,7 @@ It can also be nil, if the definition is not associated with any file."
       (if doc
           (progn (terpri)
                  (princ doc)
-                 (if (subrp (symbol-function function))
+                 (if (subrp def)
                      (with-current-buffer standard-output
                        (beginning-of-line)
                        ;; Builtins get the calling sequence at the end of