# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 994774149 0
# Node ID 7b0388aa6abf05f1f57dcd806f84517c0ea54895
# Parent  63774f1993c30a16196586de1377505fef72d978
(describe-function-1): When printing FUNCTION's
documentation, don't assume FUNCTION is a symbol.

diff -r 63774f1993c3 -r 7b0388aa6abf lisp/help.el
--- a/lisp/help.el	Tue Jul 10 12:57:08 2001 +0000
+++ b/lisp/help.el	Tue Jul 10 14:09:09 2001 +0000
@@ -749,7 +749,7 @@
       (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