Mercurial > emacs
comparison lisp/help.el @ 24331:84dcf9017a67
(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 |
comparison
equal
deleted
inserted
replaced
| 24330:fee8d10bbb21 | 24331:84dcf9017a67 |
|---|---|
| 598 ;; Return the text we displayed. | 598 ;; Return the text we displayed. |
| 599 (buffer-string))) | 599 (buffer-string))) |
| 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 |
| 607 (cond ((or (stringp def) | 609 (cond ((or (stringp def) |
| 608 (vectorp def)) | 610 (vectorp def)) |