From 0585c368bd1de688e4ffd2d564f90f12e3f9b46c Mon Sep 17 00:00:00 2001 From: Adam Porter Date: Sun, 25 Aug 2019 19:51:26 -0500 Subject: [PATCH] Fix: (regexp) Properly join multiple regexps Fixes #39. Thanks to Milan Zamazal (@mz-pdm). --- org-ql.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/org-ql.el b/org-ql.el index 3913985..8f6f954 100644 --- a/org-ql.el +++ b/org-ql.el @@ -401,7 +401,7 @@ replace the clause with a preamble." ;; Return element, because the predicate still needs testing. element) (`(regexp . ,regexps) - (setq org-ql-preamble (rx-to-string `(or ,@regexps) t)) + (setq org-ql-preamble (s-join "\\|" regexps)) ;; Return nil, because we don't need to test the predicate. nil) (`(todo . ,(and todo-keywords (guard todo-keywords)))