branch: elpa/helm
commit 18bba75f31c6c560f7d67a900717c2e45ecf42e6
Author: Thierry Volpiatto <[email protected]>
Commit: Thierry Volpiatto <[email protected]>
Use helm-acase in helm-init-candidates-in-buffer
---
helm-core.el | 17 ++++++++++-------
1 file changed, 10 insertions(+), 7 deletions(-)
diff --git a/helm-core.el b/helm-core.el
index e29adeff99..ab35f9ef5e 100644
--- a/helm-core.el
+++ b/helm-core.el
@@ -7108,13 +7108,16 @@ unless FORCE-LONGEST is non nil."
(with-current-buffer buf
(erase-buffer)
(cond ((listp data)
- (insert (mapconcat (lambda (i)
- (let ((cand (cond ((symbolp i)
(symbol-name i))
- ((numberp i)
(number-to-string i))
- ((consp i) (propertize
- (car i)
-
'helm-realvalue (cdr i)))
- (t i))))
+ (insert (mapconcat (lambda (elm)
+ (let ((cand
+ (helm-acase elm
+ ((guard* (symbolp it))
+ (symbol-name it))
+ ((guard* (numberp it))
+ (number-to-string it))
+ ((dst* (disp . real))
+ (propertize disp 'helm-realvalue
real))
+ (t it))))
(setq-local
helm-candidate-buffer-longest-len
(max
helm-candidate-buffer-longest-len
(length cand)))
