Fix: (regexp) Properly join multiple regexps

Fixes #39. Thanks to Milan Zamazal (@mz-pdm).
2019-08-25 19:51:26 -05:00 · 2019-08-25 19:51:26 -05:00 · 0585c368bd
commit 0585c368bd
parent 9c38e96e73
1 changed files with 1 additions and 1 deletions
--- 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)))