Commit dd66897f authored by John Paul Wallington's avatar John Paul Wallington
Browse files

(describe-function-1): Skip arglist note if

function's definition is a keymap.
parent ee58da1b
2002-08-06 John Paul Wallington <jpw@shootybangbang.com>
* help-fns.el (describe-function-1): Skip arglist note if
function's definition is a keymap.
2002-08-06 Sam Steingold <sds@gnu.org>
* calendar/diary-lib.el (diary-mail-entries): Use `compose-mail'
......
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment