[nongnu] elpa/helm c93e08a100 3/4: Don't compute documentation when completions-detailed is nil

[ELPA Syncer]

branch: elpa/helm
commit c93e08a1001a6484db79a6efb8ced795b759949c
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>

    Don't compute documentation when completions-detailed is nil
---
 helm-elisp.el | 19 ++++++++++---------
 1 file changed, 10 insertions(+), 9 deletions(-)

diff --git a/helm-elisp.el b/helm-elisp.el
index bd744a6424..ffb20280b7 100644
--- a/helm-elisp.el
+++ b/helm-elisp.el
@@ -944,15 +944,16 @@ description change you can reset the caches with a prefix 
arg."
                                     (let ((p (find-library-name bn)))
                                       (push (cons bn p) 
helm--locate-library-cache)
                                       p))
-                     for doc = (or (gethash bn helm--locate-library-doc-cache)
-                                   (puthash bn (helm-locate-lib-get-summary 
path)
-                                            helm--locate-library-doc-cache))
-                     for disp = (helm-aand (propertize doc 'face 
'font-lock-warning-face)
-                                           (propertize " " 'display (concat 
sep it))
-                                           (concat bn it))
-                     collect (if (or completions-detailed 
helm-completions-detailed)
-                                 (cons disp path)
-                               (cons bn path))))
+                     for doc = (and (or completions-detailed 
helm-completions-detailed)
+                                    (or (gethash bn 
helm--locate-library-doc-cache)
+                                        (puthash bn 
(helm-locate-lib-get-summary path)
+                                                 
helm--locate-library-doc-cache)))
+                     for disp = (if (or completions-detailed 
helm-completions-detailed)
+                                    (helm-aand (propertize doc 'face 
'font-lock-warning-face)
+                                               (propertize " " 'display 
(concat sep it))
+                                               (concat bn it))
+                                  bn)
+                     collect (cons disp path)))
           :action (helm-actions-from-type-file))
         :buffer "*helm locate library*"))