diff options
author | Kyle Meyer <kyle@kyleam.com> | 2020-05-20 22:47:42 -0400 |
---|---|---|
committer | Kyle Meyer <kyle@kyleam.com> | 2020-05-20 22:47:42 -0400 |
commit | 5e2490bdf29a1eeff91b631425c38309cf368690 (patch) | |
tree | 231442a3657f7540027b8f0268316b52c6ee10c9 | |
parent | 7684b59c78cbd6d1deb92f94bb96fc18c1eeb95a (diff) | |
download | org-mode-5e2490bdf29a1eeff91b631425c38309cf368690.tar.gz |
agenda: Respect FILETAGS when skipping archive entries
* lisp/org-agenda.el (org-agenda-skip): Consider skipping all entries
in a file if org-archive-tag is set via FILETAGS.
Reported-by: George Sokolsky <sokolgeo@posteo.net>
<87pnb4i217.fsf@posteo.net>
-rw-r--r-- | lisp/org-agenda.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 1585607..5372c7a 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -4090,8 +4090,10 @@ continue from there." (when (or (save-excursion (goto-char p) (looking-at comment-start-skip)) (and org-agenda-skip-archived-trees (not org-agenda-archives-mode) - (get-text-property p :org-archived) - (org-end-of-subtree t)) + (or (and (get-text-property p :org-archived) + (org-end-of-subtree t)) + (and (member org-archive-tag org-file-tags) + (goto-char (point-max))))) (and org-agenda-skip-comment-trees (get-text-property p :org-comment) (org-end-of-subtree t)) |