[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/helm a8e40a2948 1/2: Fix helm-imenu-next-or-previous-secti
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/helm a8e40a2948 1/2: Fix helm-imenu-next-or-previous-section with icon display (#2516) |
Date: |
Tue, 31 May 2022 10:58:46 -0400 (EDT) |
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