branch: elpa/helm
commit a531ccc15b411fc21d230ea79a75f39c54e8c73d
Author: Thierry Volpiatto <thie...@posteo.net>
Commit: Thierry Volpiatto <thie...@posteo.net>
Match help-echo at end of string
At 0 we might have an icon, so match at end.
---
helm-core.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/helm-core.el b/helm-core.el
index 038ced41c8..b7146a5a1a 100644
--- a/helm-core.el
+++ b/helm-core.el
@@ -5361,7 +5361,8 @@ specified as respectively `helm-cand-num' and
`helm-cur-source'."
start end
`(mouse-face highlight
keymap ,map
- help-echo ,(helm-acase (get-text-property start
'help-echo)
+ ;; At 0 we might have an icon, so match at end.
+ help-echo ,(helm-acase (get-text-property (1- end)
'help-echo)
((guard* (stringp it))
(concat it "\nmouse-1: select
candidate\nmouse-3: menu actions"))
(t "mouse-1: select candidate\nmouse-3:
menu actions")))))
