branch: elpa/helm
commit 7d40ee881df481550399460e1dfe3fd6777b8de9
Author: Thierry Volpiatto <thie...@posteo.net>
Commit: Thierry Volpiatto <thie...@posteo.net>
Fix package affixation fn
---
helm-mode.el | 9 ++++++---
1 file changed, 6 insertions(+), 3 deletions(-)
diff --git a/helm-mode.el b/helm-mode.el
index 1ff3758a19..84c796447f 100644
--- a/helm-mode.el
+++ b/helm-mode.el
@@ -1112,7 +1112,8 @@ is used."
(defun helm-completion-package-affix (_completions)
(lambda (comp)
(let* ((sym (intern-soft comp))
- (desc (package-desc-summary (package-get-descriptor sym)))
+ (desc (helm-aand (package-get-descriptor sym)
+ (package-desc-summary it)))
(sep (make-string (1+ (- (buffer-local-value
'helm-candidate-buffer-longest-len
(get-buffer (helm-candidate-buffer)))
@@ -1120,8 +1121,10 @@ is used."
? )))
(list comp
""
- (helm-aand (propertize (concat sep desc) 'face
'font-lock-warning-face)
- (propertize " " 'display it))))))
+ (or (helm-aand desc
+ (propertize (concat sep it) 'face
'font-lock-warning-face)
+ (propertize " " 'display it))
+ "")))))
;;; Generic completing read
;;
