diff options
| -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)) |