diff options
| author | Glenn Morris | 2008-06-18 02:51:07 +0000 |
|---|---|---|
| committer | Glenn Morris | 2008-06-18 02:51:07 +0000 |
| commit | c645a55f6d75c342479f8cbdf08ceb8caa15d7ad (patch) | |
| tree | 16acfb7bf6d44f80889c486a14f3d9a288ec79a0 | |
| parent | 3f9b4c2b4004ca0a1ea6bc4354ae888c20994643 (diff) | |
| download | emacs-c645a55f6d75c342479f8cbdf08ceb8caa15d7ad.tar.gz emacs-c645a55f6d75c342479f8cbdf08ceb8caa15d7ad.zip | |
(org-map-entries): Let-bind `file'.
| -rw-r--r-- | lisp/org/org.el | 6 |
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 |