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:
parent
cb1bd34965
commit
a67cc630db
1 changed files with 3 additions and 3 deletions
|
@ -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))
|
||||
|
|
Loading…
Add table
Reference in a new issue