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

documentation, don't assume FUNCTION is a symbol.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 029acf3..01f1c97 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 c0447dc..be39191 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