diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-11-09 15:45:10 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-11-09 15:45:10 -0500 |
| commit | da03ef8a9d38ef6f059aaeddb8c97dc7e76d3917 (patch) | |
| tree | 280a4752f68dc4b860575f73bfc7619a85e05afa /lisp/subr.el | |
| parent | 6858633a9c9f7e764e017cc5cbf77516729d120b (diff) | |
| download | emacs-da03ef8a9d38ef6f059aaeddb8c97dc7e76d3917.tar.gz | |
* lisp/subr.el (dolist): Don't bind VAR in RESULT.
Diffstat (limited to 'lisp/subr.el')
| -rw-r--r-- | lisp/subr.el | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index 9c89bd3e045..0ba932a3efe 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -222,9 +222,7 @@ Then evaluate RESULT to get return value, default nil. (let ((,(car spec) (car ,temp))) ,@body (setq ,temp (cdr ,temp)))) - ,@(if (cdr (cdr spec)) - ;; FIXME: This let often leads to "unused var" warnings. - `((let ((,(car spec) nil)) ,@(cdr (cdr spec)))))) + ,@(cdr (cdr spec))) `(let ((,temp ,(nth 1 spec)) ,(car spec)) (while ,temp |