Mercurial > emacs
comparison lisp/org/org.el @ 96059:d778538bae7f
(org-map-entries): Let-bind `file'.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Wed, 18 Jun 2008 02:51:07 +0000 |
| parents | c1ef445563bb |
| children | 2bab01f9c7bb |
comparison
equal
deleted
inserted
replaced
| 96058:7ca8fbd3c153 | 96059:d778538bae7f |
|---|---|
| 10001 (let* ((org-agenda-skip-archived-trees (memq 'archive skip)) | 10001 (let* ((org-agenda-skip-archived-trees (memq 'archive skip)) |
| 10002 (org-agenda-skip-comment-trees (memq 'comment skip)) | 10002 (org-agenda-skip-comment-trees (memq 'comment skip)) |
| 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 |
| 10021 (list (buffer-file-name (current-buffer)))) | 10021 (list (buffer-file-name (current-buffer)))) |
| 10022 (org-scan-tags func matcher)) | 10022 (org-scan-tags func matcher)) |