# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 919206594 0
# Node ID 84dcf9017a67c342179f12b7636f3aa2294b1daf
# Parent  fee8d10bbb21ebcddaf29431e7619fabf11db60b
(describe-function-1): Accept non-symbols.

diff -r fee8d10bbb21 -r 84dcf9017a67 lisp/help.el
--- a/lisp/help.el	Tue Feb 16 10:39:24 1999 +0000
+++ b/lisp/help.el	Tue Feb 16 23:09:54 1999 +0000
@@ -600,7 +600,9 @@
     (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