[nongnu] elpa/helm 7d40ee881d 1/6: Fix package affixation fn

[ELPA Syncer]

branch: elpa/helm
commit 7d40ee881df481550399460e1dfe3fd6777b8de9
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@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
 ;;