diff options
| author | Richard M. Stallman <rms@gnu.org> | 1999-02-16 23:09:54 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1999-02-16 23:09:54 +0000 |
| commit | 6016b6e4dc30a334ab130f21f5400d178ce863d3 (patch) | |
| tree | 74fe630dca432285893e56dd89f1c27753cd81eb /lisp/help.el | |
| parent | c3ce7bf4ec837fe30bbbd49cb204d725bab7db80 (diff) | |
| download | emacs-6016b6e4dc30a334ab130f21f5400d178ce863d3.tar.gz | |
(describe-function-1): Accept non-symbols.
Diffstat (limited to 'lisp/help.el')
| -rw-r--r-- | lisp/help.el | 4 |
1 files changed, 3 insertions, 1 deletions
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 |