/[emacs]/emacs/lisp/emacs-lisp/bytecomp.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/bytecomp.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 2.126 by rms, Sat Apr 19 04:18:37 2003 UTC revision 2.127 by monnier, Mon Apr 21 15:48:28 2003 UTC
# Line 3566  If FORM is a lambda or a macro, byte-com Line 3566  If FORM is a lambda or a macro, byte-com
3566      (byte-compile-set-symbol-position fun)      (byte-compile-set-symbol-position fun)
3567      (when (or (> (length form) 4)      (when (or (> (length form) 4)
3568                (and (eq fun 'defconst) (null (cddr form))))                (and (eq fun 'defconst) (null (cddr form))))
3569        (byte-compile-warn        (let ((ncall (length (cdr form))))
3570         "%s called with %d arguments, but accepts only %s"          (byte-compile-warn
3571         fun (length (cdr form)) "2-3"))           "%s called with %d argument%s, but %s %s"
3572             fun ncall
3573             (if (= 1 ncall) "" "s")
3574             (if (< ncall 2) "requires" "accepts only")
3575             "2-3")))
3576      (when (memq 'free-vars byte-compile-warnings)      (when (memq 'free-vars byte-compile-warnings)
3577        (push var byte-compile-bound-variables)        (push var byte-compile-bound-variables)
3578        (if (eq fun 'defconst)        (if (eq fun 'defconst)

Legend:
Removed from v.2.126  
changed lines
  Added in v.2.127

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26