From 363f7623c195c56a5543ce17668fcf3decf201ec Mon Sep 17 00:00:00 2001 From: Cyrille Froehlich Date: Sun, 16 May 2021 00:52:29 +0900 Subject: [PATCH] Fix: pcase pattern shadowed --- org-ql.el | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/org-ql.el b/org-ql.el index ac2e541..a6eedd2 100644 --- a/org-ql.el +++ b/org-ql.el @@ -1750,10 +1750,8 @@ 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) - `(tags-inherited ,@tags)) - (`(,predicate-names) - `(tags-inherited))) + :normalizers ((`(,predicate-names) `(tags-inherited)) + (`(,predicate-names . ,tags) `(tags-inherited ,@tags))) :body (cl-macrolet ((tags-p (tags) `(and ,tags (not (eq 'org-ql-nil ,tags)))))