From 445a8ec66efce091da92d9d65471fcaaa7b27cc0 Mon Sep 17 00:00:00 2001 From: Konstantin Kliakhandler Date: Thu, 22 May 2014 12:55:30 +0200 Subject: [PATCH] org-agenda.el (org-agenda-redo): Reapply the filters correctly * org-agenda.el (org-agenda-redo): Reapply the filters correctly. TINYCHANGE --- lisp/org-agenda.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index c1a2e1be4..6e05530c8 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) -- 2.11.4.GIT