diff options
| author | Daniel Mendler <mail@daniel-mendler.de> | 2024-02-14 22:58:23 +0100 |
|---|---|---|
| committer | Daniel Mendler <mail@daniel-mendler.de> | 2024-02-15 12:04:29 +0100 |
| commit | ebd2b841de857c568b547446a27ed9e58e1354eb (patch) | |
| tree | 1e4f8155bb58a7910fde162a9281bef891a14f52 | |
| parent | 55978d857800891d15bd0c140f2e40e6e06b7ef1 (diff) | |
orderless-pattern-compiler: Create fewer intermediate data structures
| -rw-r--r-- | orderless.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/orderless.el b/orderless.el index 0dce3e6..b1283f2 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 |