Byte compile: Output an error, not a warning, for odd number of args to setq

* lisp/emacs-lisp/bytecomp.el (byte-compile-setq): Amend.

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index b29e77b14b534f46faefe8364e9489c905971fa3..5e6df282b3f90394a1a01a50e3bee37d8dcdecf1 100644 (file)
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -3713,9 +3713,9 @@ discarding."
     (if args
        (while args
          (if (eq (length args) 1)
-              (byte-compile-warn
-               "missing value for `%S' at end of setq"
-               (car args)))
+              (byte-compile-log-warning
+               (format "missing value for `%S' at end of setq" (car args))
+               nil :error))
           (byte-compile-form (car (cdr args)))
          (or byte-compile--for-effect (cdr (cdr args))
              (byte-compile-out 'byte-dup 0))