From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 16 Feb 1999 23:09:54 +0000 (+0000)
Subject: (describe-function-1): Accept non-symbols.
X-Git-Tag: emacs-20.4~618
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6016b6e4dc30a334ab130f21f5400d178ce863d3;p=emacs.git

(describe-function-1): Accept non-symbols.
---

diff --git a/lisp/help.el b/lisp/help.el
index 2120a2ce9f6..833239825e1 100644
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -600,7 +600,9 @@ It can also be nil, if the definition is not associated with any file."
     (message "You didn't specify a function")))
 
 (defun describe-function-1 (function parens)
-  (let* ((def (symbol-function function))
+  (let* ((def (if (symbolp function)
+		  (symbol-function function)
+		function))
 	 file-name string need-close
 	 (beg (if (commandp def) "an interactive " "a ")))
     (setq string