branch: elpa/helm
commit c93e08a1001a6484db79a6efb8ced795b759949c
Author: Thierry Volpiatto <thie...@posteo.net>
Commit: Thierry Volpiatto <thie...@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*"))
