From 0b71022c8cc51f3887cff5a1ec241ac258e9779c Mon Sep 17 00:00:00 2001 From: Marco Wahl Date: Thu, 10 Sep 2015 13:54:28 +0200 Subject: [PATCH] org-agenda: simplify one expression (refactoring) * lisp/org-agenda.el (org-agenda-filter-by-category): replace '(and cat)' with the equivalent 'cat'. --- lisp/org-agenda.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index eff14eeba..b02b2f7c0 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -7366,7 +7366,7 @@ With a prefix argument, exclude the lines of that category. ((and cat strip) (org-agenda-filter-apply (push (concat "-" cat) org-agenda-category-filter) 'category)) - ((and cat) + (cat (org-agenda-filter-apply (setq org-agenda-category-filter (list (concat "+" cat))) 'category))