mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00
Code Issues Releases Activity

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

Browse Source 
function's definition is a keymap.
This commit is contained in:
John Paul Wallington 2002-08-06 17:21:19 +00:00
parent ee58da1b00
commit dd66897fd5
2 changed files with 14 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
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'

16
lisp/help-fns.el
View File

@ -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)