aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGlenn Morris2008-06-18 02:51:07 +0000
committerGlenn Morris2008-06-18 02:51:07 +0000
commitc645a55f6d75c342479f8cbdf08ceb8caa15d7ad (patch)
tree16acfb7bf6d44f80889c486a14f3d9a288ec79a0
parent3f9b4c2b4004ca0a1ea6bc4354ae888c20994643 (diff)
downloademacs-c645a55f6d75c342479f8cbdf08ceb8caa15d7ad.tar.gz
emacs-c645a55f6d75c342479f8cbdf08ceb8caa15d7ad.zip
(org-map-entries): Let-bind `file'.
-rw-r--r--lisp/org/org.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/org/org.el b/lisp/org/org.el
index b47b52c879b..7a63ad74cfb 100644
--- a/lisp/org/org.el
+++ b/lisp/org/org.el
@@ -10003,18 +10003,18 @@ the scanner. The following items can be given here:
10003 (org-agenda-skip-function 10003 (org-agenda-skip-function
10004 (car (org-delete-all '(comment archive) skip))) 10004 (car (org-delete-all '(comment archive) skip)))
10005 (org-tags-match-list-sublevels t) 10005 (org-tags-match-list-sublevels t)
10006 matcher pos) 10006 matcher pos file)
10007 10007
10008 (cond 10008 (cond
10009 ((eq match t) (setq matcher t)) 10009 ((eq match t) (setq matcher t))
10010 ((eq match nil) (setq matcher t)) 10010 ((eq match nil) (setq matcher t))
10011 (t (setq matcher (if match (org-make-tags-matcher match) t)))) 10011 (t (setq matcher (if match (org-make-tags-matcher match) t))))
10012 10012
10013 (when (eq scope 'tree) 10013 (when (eq scope 'tree)
10014 (org-back-to-heading t) 10014 (org-back-to-heading t)
10015 (org-narrow-to-subtree) 10015 (org-narrow-to-subtree)
10016 (setq scope nil)) 10016 (setq scope nil))
10017 10017
10018 (if (not scope) 10018 (if (not scope)
10019 (progn 10019 (progn
10020 (org-prepare-agenda-buffers 10020 (org-prepare-agenda-buffers