diff options
| author | Daniel Mendler <mail@daniel-mendler.de> | 2024-02-15 23:03:34 +0100 |
|---|---|---|
| committer | Daniel Mendler <mail@daniel-mendler.de> | 2024-02-16 06:54:06 +0100 |
| commit | 41a9d218e6dcf44ed2814a416930d9d4b66bf86b (patch) | |
| tree | e139066217ae7a238a7217edc7d365db2ee337da /orderless.el | |
| parent | b770a4de47dd81e6ca7e83026dd91a679f7bf6d7 (diff) | |
orderless-pattern-compiler: Simplify slightly, remove variable pred
Diffstat (limited to 'orderless.el')
| -rw-r--r-- | orderless.el | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/orderless.el b/orderless.el index 706af69..793498c 100644 --- a/orderless.el +++ b/orderless.el @@ -411,13 +411,11 @@ non-nil return a pair of a predicate function and the regexps." for (newstyles . newcomp) = (orderless-dispatch dispatchers styles component index total) when (functionp newstyles) do (setq newstyles (list newstyles)) - for pred = nil for regexps = (cl-loop for style in newstyles for res = (funcall style newcomp) - if (functionp res) do (cl-callf orderless--predicate-and pred res) + if (functionp res) do (cl-callf orderless--predicate-and predicate-res res) else if res collect (if (stringp res) `(regexp ,res) res)) when regexps collect (rx-to-string `(or ,@(delete-dups regexps))) into regexps-res - when pred do (cl-callf orderless--predicate-and predicate-res pred) finally return (if predicate (cons predicate-res regexps-res) regexps-res))) ;;; Completion style implementation |