From 99a22853173e325a01a689d9bfe416b863d8ce93 Mon Sep 17 00:00:00 2001 From: Cyrille Froehlich Date: Wed, 23 Jun 2021 17:48:06 +0900 Subject: [PATCH] Simplify tags-inherited normalizer --- org-ql.el | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/org-ql.el b/org-ql.el index a6eedd2..d56c687 100644 --- a/org-ql.el +++ b/org-ql.el @@ -1750,8 +1750,7 @@ Tests both inherited and local tags." (org-ql-defpred (tags-inherited inherited-tags tags-i itags) (&rest tags) "Return non-nil if current heading's inherited tags include one or more of TAGS (a list of strings). If TAGS is nil, return non-nil if heading has any inherited tags." - :normalizers ((`(,predicate-names) `(tags-inherited)) - (`(,predicate-names . ,tags) `(tags-inherited ,@tags))) + :normalizers ((`(,predicate-names . ,tags) `(tags-inherited ,@tags))) :body (cl-macrolet ((tags-p (tags) `(and ,tags (not (eq 'org-ql-nil ,tags)))))