diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2014-04-22 21:40:35 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2014-04-22 21:40:35 -0400 |
| commit | ddc13efd7096bf8cb745cd7b03b6f064747680bc (patch) | |
| tree | 7457f3ed21993c462fa9968850afb9e2ec7f3e66 /lisp/emacs-lisp | |
| parent | 1b0f10d2df1c58921644fe286dfb7a159fa56904 (diff) | |
| download | emacs-ddc13efd7096bf8cb745cd7b03b6f064747680bc.tar.gz | |
* lisp/emacs-lisp/cl-macs.el (cl--loop-let): Fix last merge.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index c9f5f68a4d3..58c3638b58b 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el @@ -1548,7 +1548,8 @@ If BODY is `setq', then use SPECS for assignments rather than for bindings." (if (and (cl--unused-var-p temp) (null expr)) nil ;; Don't bother declaring/setting `temp' since it won't ;; be used when `expr' is nil, anyway. - (when (or (null temp) (cl--unused-var-p temp)) + (when (or (null temp) + (and (eq body 'setq) (cl--unused-var-p temp))) ;; Prefer a fresh uninterned symbol over "_to", to avoid ;; warnings that we set an unused variable. (setq temp (make-symbol "--cl-var--")) |