[Emacs-diffs] Changes to emacs/lisp/help-fns.el

[John Paul Wallington]

Index: emacs/lisp/help-fns.el
diff -c emacs/lisp/help-fns.el:1.20 emacs/lisp/help-fns.el:1.21
*** emacs/lisp/help-fns.el:1.20 Wed Jul 31 18:28:30 2002
--- emacs/lisp/help-fns.el      Tue Aug  6 13:21:19 2002
***************
*** 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 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)