Mercurial > emacs

diff lisp/help-fns.el @ 46827:cc564ceab7c2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(describe-function-1): Skip arglist note if function's definition is a keymap.
author John Paul Wallington <jpw@pobox.com>
date Tue, 06 Aug 2002 17:21:19 +0000
parents af4505d3e0f8
children 3e733b163fd4
line wrap: on
line diff
--- a/lisp/help-fns.el	Tue Aug 06 15:11:26 2002 +0000
+++ b/lisp/help-fns.el	Tue Aug 06 17:21:19 2002 +0000
@@ -300,13 +300,15 @@
     (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)