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

[Stefan Monnier]

Index: emacs/lisp/emacs-lisp/bytecomp.el
diff -c emacs/lisp/emacs-lisp/bytecomp.el:2.126 
emacs/lisp/emacs-lisp/bytecomp.el:2.127
*** emacs/lisp/emacs-lisp/bytecomp.el:2.126     Sat Apr 19 00:18:37 2003
--- emacs/lisp/emacs-lisp/bytecomp.el   Mon Apr 21 11:48:28 2003
***************
*** 10,16 ****
  
  ;;; This version incorporates changes up to version 2.10 of the
  ;;; Zawinski-Furuseth compiler.
! (defconst byte-compile-version "$Revision: 2.126 $")
  
  ;; This file is part of GNU Emacs.
  
--- 10,16 ----
  
  ;;; This version incorporates changes up to version 2.10 of the
  ;;; Zawinski-Furuseth compiler.
! (defconst byte-compile-version "$Revision: 2.127 $")
  
  ;; This file is part of GNU Emacs.
  
***************
*** 3566,3574 ****
      (byte-compile-set-symbol-position fun)
      (when (or (> (length form) 4)
              (and (eq fun 'defconst) (null (cddr form))))
!       (byte-compile-warn
!        "%s called with %d arguments, but accepts only %s"
!        fun (length (cdr form)) "2-3"))
      (when (memq 'free-vars byte-compile-warnings)
        (push var byte-compile-bound-variables)
        (if (eq fun 'defconst)
--- 3566,3578 ----
      (byte-compile-set-symbol-position fun)
      (when (or (> (length form) 4)
              (and (eq fun 'defconst) (null (cddr form))))
!       (let ((ncall (length (cdr form))))
!       (byte-compile-warn
!        "%s called with %d argument%s, but %s %s"
!        fun ncall
!        (if (= 1 ncall) "" "s")
!        (if (< ncall 2) "requires" "accepts only")
!        "2-3")))
      (when (memq 'free-vars byte-compile-warnings)
        (push var byte-compile-bound-variables)
        (if (eq fun 'defconst)