Mercurial > emacs

diff lisp/help.el @ 24331:84dcf9017a67

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(describe-function-1): Accept non-symbols.
author Richard M. Stallman <rms@gnu.org>
date Tue, 16 Feb 1999 23:09:54 +0000
parents 72adfb2cd104
children 85a2d7a71970
line wrap: on
line diff
--- 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