(org-map-entries): Let-bind `file'.

diff --git a/lisp/org/org.el b/lisp/org/org.el
index b47b52c879b498c5c29798d406b0cb69aa94cece..7a63ad74cfbd1ce7f3ed58b7df0c6ae30125e4f1 100644 (file)
--- a/lisp/org/org.el
+++ b/lisp/org/org.el
@@ -10003,18 +10003,18 @@ the scanner.  The following items can be given here:
         (org-agenda-skip-function
          (car (org-delete-all '(comment archive) skip)))
         (org-tags-match-list-sublevels t)
-        matcher pos)
+        matcher pos file)
 
     (cond
      ((eq match t)   (setq matcher t))
      ((eq match nil) (setq matcher t))
      (t (setq matcher (if match (org-make-tags-matcher match) t))))
-    
+
     (when (eq scope 'tree)
       (org-back-to-heading t)
       (org-narrow-to-subtree)
       (setq scope nil))
-    
+
     (if (not scope)
        (progn
          (org-prepare-agenda-buffers