[nongnu] elpa/helm 0891ea6bbc 3/5: Fix index with icons in helm-buffers-mark-similar-buffers-1

[ELPA Syncer]

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

    Fix index with icons in helm-buffers-mark-similar-buffers-1
---
 helm-buffers.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/helm-buffers.el b/helm-buffers.el
index 38fd1d34d5..5b21fbe453 100644
--- a/helm-buffers.el
+++ b/helm-buffers.el
@@ -626,14 +626,14 @@ buffers)."
 (defun helm-buffers-mark-similar-buffers-1 (&optional type)
   (with-helm-window
     (let* ((src (helm-get-current-source))
-           (type (or type
-                     (get-text-property
-                      0 'type (helm-get-selection nil 'withprop src)))))
+           (sel (helm-get-selection nil 'withprop src))
+           (type (or type (get-text-property
+                           (min 2 (length sel)) 'type sel))))
       (helm-map-candidates-in-source src
         (lambda (_cand) (helm-make-visible-mark))
         (lambda (cand)
           (and (not (helm-this-visible-mark))
-               (eq (get-text-property 0 'type cand) type))))
+               (eq (get-text-property 2 'type cand) type))))
       (helm-mark-current-line)
       (helm-display-mode-line src t)
       (when helm-marked-candidates