From: Juanma Barranquero <lekktu@gmail.com>
Date: Sun, 5 Jun 2011 00:18:46 +0000 (+0200)
Subject: lisp/doc-view.el: Silence compiler warning.
X-Git-Tag: emacs-pretest-24.0.90~104^2~618^2~29
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8eda563d1eeece721cb95cfb24e45b701a76c4b2;p=emacs.git

lisp/doc-view.el: Silence compiler warning.
---

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)