2 files changed, 8 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ed08474bdcb..91bf8240922 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-06-05  Juanma Barranquero  <lekktu@gmail.com>
+
+        * doc-view.el (doc-view-remove-if): Move computation of result out
+        of `dolist' to silence misleading lexical-binding warning.
+
 2011-06-04  Chong Yidong  <cyd@stupidchicken.com>
 
         * emacs-lisp/timer.el (timer-activate): Remove unused arg.
diff --git a/lisp/doc-view.el b/lisp/doc-view.el
index 7bd1a55011e..06c3b70a3a6 100644
--- a/lisp/doc-view.el
+++ b/lisp/doc-view.el
@@ -614,9 +614,10 @@ It's a subdirectory of `doc-view-cache-directory'."
 (defun doc-view-remove-if (predicate list)
   "Return LIST with all items removed that satisfy PREDICATE."
   (let (new-list)
-    (dolist (item list (nreverse new-list))
+    (dolist (item list)
       (when (not (funcall predicate item))
-        (setq new-list (cons item new-list))))))
+        (setq new-list (cons item new-list))))
+     (nreverse new-list)))
 
 ;;;###autoload
 (defun doc-view-mode-p (type)