diff options
| author | John Paul Wallington <jpw@pobox.com> | 2002-08-06 17:21:19 +0000 |
|---|---|---|
| committer | John Paul Wallington <jpw@pobox.com> | 2002-08-06 17:21:19 +0000 |
| commit | dd66897fd53e8261a0b3ee0efde5fa64c6e4c164 (patch) | |
| tree | f77ac427a3065909a7c039480430a02b1f3fae6b /lisp/help-fns.el | |
| parent | ee58da1b00b21168ee84730abdccf50bb768935b (diff) | |
| download | emacs-dd66897fd53e8261a0b3ee0efde5fa64c6e4c164.tar.gz emacs-dd66897fd53e8261a0b3ee0efde5fa64c6e4c164.tar.bz2 emacs-dd66897fd53e8261a0b3ee0efde5fa64c6e4c164.zip | |
(describe-function-1): Skip arglist note if
function's definition is a keymap.
Diffstat (limited to 'lisp/help-fns.el')
| -rw-r--r-- | lisp/help-fns.el | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/lisp/help-fns.el b/lisp/help-fns.el index cdbc13f6781..ba543070bc9 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el @@ -300,13 +300,15 @@ Return (USAGE . DOC) or nil if there's no usage info." (let* ((arglist (help-function-arglist def)) (doc (documentation function)) usage) - (princ (cond - ((listp arglist) (help-make-usage function arglist)) - ((stringp arglist) arglist) - ((and doc (subrp def) (setq usage (help-split-fundoc doc def))) - (setq doc (cdr usage)) (car usage)) - (t "[Missing arglist. Please make a bug report.]"))) - (terpri) + ;; If definition is a keymap, skip arglist note. + (unless (keymapp def) + (princ (cond + ((listp arglist) (help-make-usage function arglist)) + ((stringp arglist) arglist) + ((and doc (subrp def) (setq usage (help-split-fundoc doc def))) + (setq doc (cdr usage)) (car usage)) + (t "[Missing arglist. Please make a bug report.]"))) + (terpri)) (let ((obsolete (and ;; function might be a lambda construct. (symbolp function) |