[elpa] externals/orderless 7e57a5458c 085/204: Allow dispatcher to modify component without handling it

[ELPA Syncer]

branch: externals/orderless
commit 7e57a5458ce84f32345a7d96e93105fd6b18cae7
Author: Omar Antolín <omar.antolin@gmail.com>
Commit: Omar Antolín <omar.antolin@gmail.com>

    Allow dispatcher to modify component without handling it
    
    This needs to be documented
---
 orderless.el | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/orderless.el b/orderless.el
index 2f3836ff7d..8c21ef0308 100644
--- a/orderless.el
+++ b/orderless.el
@@ -281,9 +281,12 @@ match."
   (cl-loop
    for component in (split-string pattern orderless-component-separator)
    and index from 0
-   for styles = (or (run-hook-with-args-until-success
-                     'orderless-style-dispatchers component index)
-                    orderless-component-matching-styles)
+   for styles = (cl-loop for dispatcher in orderless-style-dispatchers
+                         for result = (funcall dispatcher component index)
+                         when (stringp result)
+                         do (setq component result result nil)
+                         thereis result
+                         finally (return orderless-component-matching-styles))
    when (and (consp styles) (stringp (cdr styles)))
    ;; dispatcher requested component change
    do (setq component (cdr styles) styles (car styles))