From: Gerd Moellmann <gerd@gnu.org>
Date: Tue, 10 Jul 2001 14:09:30 +0000 (+0000)
Subject: (describe-function-1): When printing FUNCTION's
X-Git-Tag: emacs-pretest-21.0.104~31
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6ce5615d623f1cfdf02c8725f12390a786aa9cd7;p=emacs.git

(describe-function-1): When printing FUNCTION's
documentation, don't assume FUNCTION is a symbol.
---

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