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

diff --git a/lisp/help.el b/lisp/help.el
index 2120a2ce9f638d62c4381b7ee5442d520563e8a9..833239825e1b70695af47b99d1fd44b23a56e1a9 100644 (file)
--- 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