Mercurial > emacs

changeset 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 fee8d10bbb21
children 29c0557957ba
files lisp/help.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
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