branch: externals/orderless
commit ebd2b841de857c568b547446a27ed9e58e1354eb
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
orderless-pattern-compiler: Create fewer intermediate data structures
---
orderless.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/orderless.el b/orderless.el
index 0dce3e6ce0..b1283f2432 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 `(regexp ,result))
- when regexps collect (rx-to-string `(or ,@(delete-dups regexps)))))
+ when result collect result)
+ when regexps collect (string-join (delete-dups regexps) "\\|")))
;;; Completion style implementation
