[nongnu] elpa/helm 70a42c9a5d 4/5: Fix index with icons in helm-ff-mark-similar-files-1 as well

[ELPA Syncer]

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

    Fix index with icons in helm-ff-mark-similar-files-1 as well
---
 helm-files.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/helm-files.el b/helm-files.el
index 0b0eb9f386..b2a5881613 100644
--- a/helm-files.el
+++ b/helm-files.el
@@ -2599,13 +2599,13 @@ extension."
   (with-helm-window
     (let* ((src  (helm-get-current-source))
            (file (helm-get-selection nil 'withprop src))
-           (face (get-text-property 3 'face file))
+           (face (get-text-property (min 2 (length file)) 'face file))
            (ext  (file-name-extension file)))
       (helm-map-candidates-in-source src
         (lambda (_cand) (helm-make-visible-mark))
         (lambda (cand)
           (and (not (helm-this-visible-mark))
-               (eq (get-text-property 3 'face cand) face)
+               (eq (get-text-property (min 2 (length cand)) 'face cand) face)
                (equal ext (file-name-extension cand)))))
       (helm-mark-current-line)
       (helm-display-mode-line src t)