summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKonstantin Kliakhandler <kosta@slumpy.org>2014-05-22 12:55:30 +0200
committerBastien Guerry <bzg@altern.org>2014-05-22 12:55:30 +0200
commit445a8ec66efce091da92d9d65471fcaaa7b27cc0 (patch)
tree5fdac26c4e8530d9270d7f6a3b1c4a7f6616c899
parent58e45f4df1deaa1926617df515b32d32d6756623 (diff)
downloadorg-mode-445a8ec66efce091da92d9d65471fcaaa7b27cc0.tar.gz
org-agenda.el (org-agenda-redo): Reapply the filters correctly
* org-agenda.el (org-agenda-redo): Reapply the filters correctly. TINYCHANGE
-rw-r--r--lisp/org-agenda.el9
1 files changed, 6 insertions, 3 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index c1a2e1b..6e05530 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -7287,9 +7287,12 @@ in the agenda."
(put 'org-agenda-tag-filter :preset-filter tag-preset)
(put 'org-agenda-category-filter :preset-filter cat-preset)
(put 'org-agenda-regexp-filter :preset-filter re-preset)
- (and (or tag-filter tag-preset) (org-agenda-filter-apply tag-filter 'tag))
- (and (or cat-filter cat-preset) (org-agenda-filter-apply cat-filter 'category))
- (and (or re-filter re-preset) (org-agenda-filter-apply re-filter 'regexp))
+ (let ((tag (or tag-filter tag-preset))
+ (cat (or cat-filter cat-preset))
+ (re (or re-filter re-preset)))
+ (when tag (org-agenda-filter-apply tag 'tag))
+ (when cat (org-agenda-filter-apply cat 'category))
+ (when re (org-agenda-filter-apply re 'regexp)))
(and top-hl-filter (org-agenda-filter-top-headline-apply top-hl-filter))
(and cols (org-called-interactively-p 'any) (org-agenda-columns))
(org-goto-line line)