[nongnu] elpa/helm 2e514ad65e 2/4: Fix highlighting matches with affixation fns in use

[ELPA Syncer]

branch: elpa/helm
commit 2e514ad65ea0fdd282becf4f99e16f9c2b360371
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>

    Fix highlighting matches with affixation fns in use
---
 helm-mode.el | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/helm-mode.el b/helm-mode.el
index 2d9ace5b66..db28d4be3c 100644
--- a/helm-mode.el
+++ b/helm-mode.el
@@ -1911,12 +1911,16 @@ When FILE-COMP-P is provided only filter out dot files."
                   (if (functionp affixations)
                       (cl-loop for comp in comps
                                for cand = (funcall affixations comp)
-                               collect (cons (concat (nth 1 cand)  ;prefix
-                                                     (nth 0 cand)  ;comp
-                                                     (nth 2 cand)) ;suffix
+                               collect (cons (propertize (concat (nth 1 cand)  
;prefix
+                                                                 (nth 0 cand)  
;comp
+                                                                 (nth 2 cand)) 
;suffix
+                                                         'match-part (nth 0 
cand)) 
                                              comp))
                     (cl-loop for (comp prefix suffix) in affixations
-                             collect (cons (concat prefix comp suffix) 
comp)))))
+                             collect (cons (propertize
+                                            (concat prefix comp suffix)
+                                            'match-part comp)
+                                           comp)))))
           (afun
            ;; Add annotation at end of
            ;; candidate if needed, e.g. foo<f>, this happen when