C-h f facemenu-menu "missing arglist" query

[John Paul Wallington]

C-h f facemenu-menu will report a missing arglist.  It seems better
to omit the arglist info when function's definition is a keymap; is
that a good idea?

How about this:

*** help-fns.el 31 Jul 2002 22:28:30 -0000      1.20
--- help-fns.el 5 Aug 2002 22:54:15 -0000
***************
*** 300,312 ****
      (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)
        (let ((obsolete (and
                       ;; function might be a lambda construct.
                       (symbolp function)
--- 300,314 ----
      (let* ((arglist (help-function-arglist def))
           (doc (documentation function))
           usage)
!       ;; If definition is a keymap, skip missing 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)


-- 
John Paul Wallington