diff options
| author | Daniel Colascione <dancol@dancol.org> | 2014-04-20 18:03:39 -0700 |
|---|---|---|
| committer | Daniel Colascione <dancol@dancol.org> | 2014-04-20 18:03:39 -0700 |
| commit | 2fa1b97db098c04810763e742e956c63b9527989 (patch) | |
| tree | 56356f808c0cb021e3f254903255700f1f78e10e /lisp | |
| parent | e8a77f2423f5e66e040a40a1d57aec640cc08dcf (diff) | |
| download | emacs-2fa1b97db098c04810763e742e956c63b9527989.tar.gz emacs-2fa1b97db098c04810763e742e956c63b9527989.tar.bz2 emacs-2fa1b97db098c04810763e742e956c63b9527989.zip | |
Fix cl-loop destructuring under `with' clause
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 28b9c79079e..cb91bbcb4d9 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2014-04-21 Daniel Colascione <dancol@dancol.org> + + * emacs-lisp/cl-macs.el: + (cl--loop-let): Properly destructure `while' clauses. + 2014-04-20 Daniel Colascione <dancol@dancol.org> * vc/vc.el (vc-root-dir): New public autoloaded function for diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index 5fc8c9f9a42..5b9e17af23a 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el @@ -1550,7 +1550,7 @@ 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 (and (eq body 'setq) (cl--unused-var-p temp)) + (when (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--")) |