summaryrefslogtreecommitdiff
path: root/orderless.el
diff options
context:
space:
mode:
Diffstat (limited to 'orderless.el')
-rw-r--r--orderless.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/orderless.el b/orderless.el
index 5d5c569..45bd5c8 100644
--- a/orderless.el
+++ b/orderless.el
@@ -384,8 +384,8 @@ as the value of DISPATCHERS."
when (functionp newstyles) do (setq newstyles (list newstyles))
for regexps = (cl-loop for style in newstyles
for result = (funcall style newcomp)
- when result collect result)
- when regexps collect (string-join (delete-dups regexps) "\\|")))
+ when result collect `(regexp ,result))
+ when regexps collect (rx-to-string `(or ,@(delete-dups regexps)))))
;;; Completion style implementation