Fix: (org-ql--pre-process-query) Process (not) clauses

This commit is contained in:
Adam Porter 2019-08-13 13:48:56 -05:00
parent b641e6d53c
commit 31bc01bc52

View file

@ -246,6 +246,7 @@ Replaces bare strings with (regexp) selectors, and appropriate
(pcase element (pcase element
(`(or . ,clauses) `(or ,@(mapcar #'rec clauses))) (`(or . ,clauses) `(or ,@(mapcar #'rec clauses)))
(`(and . ,clauses) `(and ,@(mapcar #'rec clauses))) (`(and . ,clauses) `(and ,@(mapcar #'rec clauses)))
(`(not . ,clauses) `(not ,@(mapcar #'rec clauses)))
(`(when ,condition . ,clauses) `(when ,(rec condition) (`(when ,condition . ,clauses) `(when ,(rec condition)
,@(mapcar #'rec clauses))) ,@(mapcar #'rec clauses)))
(`(unless ,condition . ,clauses) `(unless ,(rec condition) (`(unless ,condition . ,clauses) `(unless ,(rec condition)