tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

org-agenda.el (org-agenda-finalize): Apply all filters correctly 

* org-agenda.el (org-agenda-finalize): Apply all filters
correctly.
This commit is contained in:
Bastien Guerry 2014-04-17 09:55:57 +02:00
parent c3810f71b6
commit 63e9763b2a
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lisp/org-agenda.el
View File

@ -3746,12 +3746,21 @@ generating a new one."
(delete-dups
(mapcar 'downcase (org-get-tags-at))))))))))
(run-hooks 'org-agenda-finalize-hook)
(when (or org-agenda-tag-filter (get 'org-agenda-tag-filter :preset-filter))
(when org-agenda-tag-filter
(org-agenda-filter-apply org-agenda-tag-filter 'tag))
(when (or org-agenda-category-filter (get 'org-agenda-category-filter :preset-filter))
(when (get 'org-agenda-tag-filter :preset-filter)
(org-agenda-filter-apply
(get 'org-agenda-tag-filter :preset-filter) 'tag))
(when org-agenda-category-filter
(org-agenda-filter-apply org-agenda-category-filter 'category))
(when (or org-agenda-regexp-filter (get 'org-agenda-regexp-filter :preset-filter))
(when (get 'org-agenda-category-filter :preset-filter)
(org-agenda-filter-apply
(get 'org-agenda-category-filter :preset-filter) 'category))
(when org-agenda-regexp-filter
(org-agenda-filter-apply org-agenda-regexp-filter 'regexp))
(when (get 'org-agenda-regexp-filter :preset-filter)
(org-agenda-filter-apply
(get 'org-agenda-regexp-filter :preset-filter)) 'regexp)
(org-add-hook 'kill-buffer-hook 'org-agenda-reset-markers 'append 'local)))))
(defun org-agenda-mark-clocking-task ()