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

* lisp/emacs-lisp/bytecomp.el (byte-compile-setq): Amend.
This commit is contained in:
Alan Mackenzie 2015-11-24 12:40:39 +00:00
parent cb1bd34965
commit a67cc630db

View file

@ -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))