diff options
| author | Alan Mackenzie | 2015-11-24 12:40:39 +0000 |
|---|---|---|
| committer | Alan Mackenzie | 2015-11-24 12:40:39 +0000 |
| commit | a67cc630db28cf734d0e47f231add30c782bd8cf (patch) | |
| tree | dbe34aa19e60d780c379b031fd056161d1c52b4d | |
| parent | cb1bd3496594d5e4060d990b4c6bac748fb974c9 (diff) | |
| download | emacs-a67cc630db28cf734d0e47f231add30c782bd8cf.tar.gz 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.
| -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." | |||
| 3713 | (if args | 3713 | (if args |
| 3714 | (while args | 3714 | (while args |
| 3715 | (if (eq (length args) 1) | 3715 | (if (eq (length args) 1) |
| 3716 | (byte-compile-warn | 3716 | (byte-compile-log-warning |
| 3717 | "missing value for `%S' at end of setq" | 3717 | (format "missing value for `%S' at end of setq" (car args)) |
| 3718 | (car args))) | 3718 | nil :error)) |
| 3719 | (byte-compile-form (car (cdr args))) | 3719 | (byte-compile-form (car (cdr args))) |
| 3720 | (or byte-compile--for-effect (cdr (cdr args)) | 3720 | (or byte-compile--for-effect (cdr (cdr args)) |
| 3721 | (byte-compile-out 'byte-dup 0)) | 3721 | (byte-compile-out 'byte-dup 0)) |