[elpa] externals/corfu 79a2a61 2/2: Improve orderless support

[Protesilaos Stavrou]

branch: externals/corfu
commit 79a2a612ae8b89f55bc962b429f1b740d5ff89cc
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Improve orderless support
    
    Precompile the regular expressions in order to handle local overrides of
    orderless-matching-styles etc.
---
 corfu.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/corfu.el b/corfu.el
index f7ec8e7..9a746dc 100644
--- a/corfu.el
+++ b/corfu.el
@@ -316,6 +316,7 @@ Set to nil in order to disable confirmation."
 ;; bug#47711: Deferred highlighting for `completion-all-completions'
 ;; XXX There is one complication: `completion--twq-all' already adds 
`completions-common-part'.
 (declare-function orderless-highlight-matches "ext:orderless")
+(declare-function orderless-pattern-compiler "ext:orderless")
 (require 'orderless nil 'noerror)
 (defun corfu--all-completions (&rest args)
   "Compute all completions for ARGS with deferred highlighting."
@@ -339,7 +340,8 @@ Set to nil in order to disable confirmation."
                 cands))
              ((symbol-function #'orderless-highlight-matches)
               (lambda (pattern cands)
-                (setq hl (lambda (x) (orderless-highlight-matches pattern x)))
+                (let ((regexps (orderless-pattern-compiler pattern)))
+                  (setq hl (lambda (x) (orderless-highlight-matches regexps 
x))))
                 cands)))
     (cons (apply #'completion-all-completions args) hl)))