diff options
| -rw-r--r-- | orderless.el | 4 |
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 |