WIP

Maybe this is best.
alphapapa · Jun 27, 2024 · e4b7611 · e4b7611
1 parent b76b9f9
commit e4b7611
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/org-ql.el b/org-ql.el
@@ -1118,6 +1118,10 @@ defined in `org-ql-predicates' by calling `org-ql-defpred'."
                                         ;; Only one preamble is allowed
                                         element)
                                       (pcase element
+                                        (`(or ,element)
+                                         ;; A predicate with a single name: unwrap the OR.  (Pcase doesn't like
+                                         ;; "one-armed ORs", giving a "Please avoid it" compilation error.)
+                                         element)
 
                                         ,@preamble-patterns