Mercurial > emacs
comparison lisp/help-fns.el @ 93077:49a2376794b9
(describe-function-1): Don't signal "missing arglist" for autoloaded keymaps.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Wed, 19 Mar 2008 18:21:52 +0000 |
| parents | a1afa11e3c51 |
| children | 53d5f10d34bc |
comparison
equal
deleted
inserted
replaced
| 93076:be40d8a9bcc1 | 93077:49a2376794b9 |
|---|---|
| 394 (let* ((arglist (help-function-arglist def)) | 394 (let* ((arglist (help-function-arglist def)) |
| 395 (doc (documentation function)) | 395 (doc (documentation function)) |
| 396 (usage (help-split-fundoc doc function))) | 396 (usage (help-split-fundoc doc function))) |
| 397 (with-current-buffer standard-output | 397 (with-current-buffer standard-output |
| 398 ;; If definition is a keymap, skip arglist note. | 398 ;; If definition is a keymap, skip arglist note. |
| 399 (unless (keymapp def) | 399 (unless (keymapp function) |
| 400 (let* ((use (cond | 400 (let* ((use (cond |
| 401 (usage (setq doc (cdr usage)) (car usage)) | 401 (usage (setq doc (cdr usage)) (car usage)) |
| 402 ((listp arglist) | 402 ((listp arglist) |
| 403 (format "%S" (help-make-usage function arglist))) | 403 (format "%S" (help-make-usage function arglist))) |
| 404 ((stringp arglist) arglist) | 404 ((stringp arglist) arglist) |