diff options
| -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." | |||
| 600 | (message "You didn't specify a function"))) | 600 | (message "You didn't specify a function"))) |
| 601 | 601 | ||
| 602 | (defun describe-function-1 (function parens) | 602 | (defun describe-function-1 (function parens) |
| 603 | (let* ((def (symbol-function function)) | 603 | (let* ((def (if (symbolp function) |
| 604 | (symbol-function function) | ||
| 605 | function)) | ||
| 604 | file-name string need-close | 606 | file-name string need-close |
| 605 | (beg (if (commandp def) "an interactive " "a "))) | 607 | (beg (if (commandp def) "an interactive " "a "))) |
| 606 | (setq string | 608 | (setq string |