[elpa] externals/vertico 9de6709: vertico--arrange-candidates: Fix group title highlighting

[ELPA Syncer]

branch: externals/vertico
commit 9de6709cddc09740d23d24fb425fa3c174d0e956
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    vertico--arrange-candidates: Fix group title highlighting
---
 vertico.el | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/vertico.el b/vertico.el
index b096bf1..e69c8f7 100644
--- a/vertico.el
+++ b/vertico.el
@@ -491,7 +491,12 @@ The function is configured by BY, BSIZE, BINDEX, BPRED and 
PRED."
               (setq title new-title)
               ;; Restore group title highlighting for prefix titles
               (when (string-prefix-p title str)
-                (setq title (substring str 0 (length title)))
+                (setq title (substring
+                             (car (funcall
+                                   vertico--highlight-function
+                                   ;; Remove all properties from the title
+                                   (list (propertize str 'face 
'vertico-group-title))))
+                             0 (length title)))
                 (vertico--remove-face 0 (length title) 
'completions-first-difference title))
               (push (format group-format title) lines))
             (setcar cand (funcall group-fun str 'transform))))