jiri/org-ql
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix: pcase pattern shadowed

Browse source
This commit is contained in:
Cyrille Froehlich 2021-05-16 00:52:29 +09:00
parent 94f9e6f303
commit 363f7623c1
1 changed files with 2 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
org-ql.el
View file

@ -1750,10 +1750,8 @@ Tests both inherited and local tags."
(org-ql-defpred (tags-inherited inherited-tags tags-i itags) (&rest 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). "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." If TAGS is nil, return non-nil if heading has any inherited tags."
:normalizers ((`(,predicate-names . ,tags) :normalizers ((`(,predicate-names) `(tags-inherited))
`(tags-inherited ,@tags)) (`(,predicate-names . ,tags) `(tags-inherited ,@tags)))
(`(,predicate-names)
`(tags-inherited)))
:body (cl-macrolet ((tags-p (tags) :body (cl-macrolet ((tags-p (tags)
`(and ,tags `(and ,tags
(not (eq 'org-ql-nil ,tags))))) (not (eq 'org-ql-nil ,tags)))))