[nongnu] elpa/helm a8e40a2948 1/2: Fix helm-imenu-next-or-previous-section with icon display (#2516)

[ELPA Syncer]

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

    Fix helm-imenu-next-or-previous-section with icon display (#2516)
---
 helm-imenu.el | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/helm-imenu.el b/helm-imenu.el
index 3b3e358282..fa28ff3424 100644
--- a/helm-imenu.el
+++ b/helm-imenu.el
@@ -127,10 +127,11 @@ string."
 (defun helm-imenu-next-or-previous-section (n)
   (with-helm-window
     (let* ((fn (lambda ()
-                 (car (split-string
-                       (buffer-substring
-                        (point-at-bol) (point-at-eol))
-                       helm-imenu-delimiter))))
+                 (let ((str (buffer-substring
+                             (point-at-bol) (point-at-eol)))) 
+                   (if helm-imenu-hide-item-type-name
+                       (get-text-property 1 'type-name str)
+                   (car (split-string str helm-imenu-delimiter))))))
            (curtype (funcall fn))
            (stop-fn (if (> n 0)
                         #'helm-end-of-source-p
@@ -425,7 +426,7 @@ string."
                                                       'face 'shadow)))
                               (propertize disp1 'help-echo bufname 'types 
types))
            collect
-           (cons disp (cons k v))))
+           (cons (propertize disp 'type-name type-name) (cons k v))))
 
 
 ;;;###autoload