diff options
| author | Alan Mackenzie <acm@muc.de> | 2015-11-24 12:40:39 +0000 |
|---|---|---|
| committer | Alan Mackenzie <acm@muc.de> | 2015-11-24 12:40:39 +0000 |
| commit | a67cc630db28cf734d0e47f231add30c782bd8cf (patch) | |
| tree | dbe34aa19e60d780c379b031fd056161d1c52b4d /lisp/emacs-lisp | |
| parent | cb1bd3496594d5e4060d990b4c6bac748fb974c9 (diff) | |
| download | emacs-a67cc630db28cf734d0e47f231add30c782bd8cf.tar.gz emacs-a67cc630db28cf734d0e47f231add30c782bd8cf.tar.bz2 emacs-a67cc630db28cf734d0e47f231add30c782bd8cf.zip | |
Byte compile: Output an error, not a warning, for odd number of args to setq
* lisp/emacs-lisp/bytecomp.el (byte-compile-setq): Amend.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index b29e77b14b5..5e6df282b3f 100644 --- 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)) |