# HG changeset patch
# User John Paul Wallington <jpw@pobox.com>
# Date 1028654479 0
# Node ID cc564ceab7c257bfa3a9988424aa51d987d4f210
# Parent  e020f18c490ab55d226b6afce6bb807071c85cf2
(describe-function-1): Skip arglist note if
function's definition is a keymap.

diff -r e020f18c490a -r cc564ceab7c2 lisp/ChangeLog
--- a/lisp/ChangeLog	Tue Aug 06 15:11:26 2002 +0000
+++ b/lisp/ChangeLog	Tue Aug 06 17:21:19 2002 +0000
@@ -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'
diff -r e020f18c490a -r cc564ceab7c2 lisp/help-fns.el
--- 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)