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

documentation, don't assume FUNCTION is a symbol.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 029acf33895a40a325838b7a6be226b336551633..01f1c979e1554aa4f6e79e66d67ebbc3badd93dc 100644 (file)
--- 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 c0447dcaedd7f8b0d0af951821a5fbe57b610623..be3919146925e7fb33024881d6e9de245db2dff8 100644 (file)
--- 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