* lisp/subr.el (dolist): Don't bind VAR in RESULT.

2 files changed, 3 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 612cdc33d52..6f10e311eac 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2012-11-09  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+        * subr.el (dolist): Don't bind VAR in RESULT.
+
         * emacs-lisp/advice.el: Miscellaneous cleanup.  Use lexical-binding.
         (fset, documentation): Don't save real def since we don't advise.
         (ad-do-advised-functions): Remove problematic `result-form'.
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