From 89ff02a1501b53b4e20cdc66a8fcaa37e7d15734 Mon Sep 17 00:00:00 2001 From: Adam Porter Date: Sat, 14 Nov 2020 05:40:24 -0600 Subject: [PATCH] Fix: (org-ql--query-sexp-to-string) Ancestors, etc. queries --- org-ql.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/org-ql.el b/org-ql.el index dc6ee24..f75ce4c 100644 --- a/org-ql.el +++ b/org-ql.el @@ -1778,7 +1778,11 @@ Multiple predicates are combined with BOOLEAN." If QUERY can't be converted to a string, return nil." ;; This started out pretty simple...but at least it's not just one long function, right? (cl-labels ((complex-p (query) - (or (contains-p 'or query))) + (or (contains-p 'or query) + (contains-p 'ancestors query) + (contains-p 'children query) + (contains-p 'descendants query) + (contains-p 'parent query))) (contains-p (symbol list) (cl-loop for element in list thereis (or (eq symbol element)