From 204e2d239eb492ea37e2768c2d6bb3feb1330e74 Mon Sep 17 00:00:00 2001 From: Ihor Radchenko Date: Tue, 6 Apr 2021 22:44:27 +0800 Subject: [PATCH] Fix shadowed pcase clause --- org-ql.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/org-ql.el b/org-ql.el index 92a3b2d..9b3105c 100644 --- a/org-ql.el +++ b/org-ql.el @@ -1839,10 +1839,10 @@ 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)))))