[nongnu] elpa/helm 2eabbadb04 2/2: helm-locate-library doesn't work without its FCT fix it (#2618)

[ELPA Syncer]

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

    helm-locate-library doesn't work without its FCT fix it (#2618)
    
    The real candidate must be the abs path of library since we now
    initialize candidates with only base name.
---
 helm-elisp.el | 34 +++++++++++++++++-----------------
 1 file changed, 17 insertions(+), 17 deletions(-)

diff --git a/helm-elisp.el b/helm-elisp.el
index 2922b9f966..e250eb74d7 100644
--- a/helm-elisp.el
+++ b/helm-elisp.el
@@ -936,23 +936,23 @@ description change you can reset the caches with a prefix 
arg."
           :keymap helm-generic-files-map
           :filtered-candidate-transformer
           (lambda (candidates _source)
-            (if (or completions-detailed helm-completions-detailed)
-                (cl-loop with lgst = (helm-in-buffer-get-longest-candidate)
-                         for c in candidates
-                         for bn = (helm-basename c 2)
-                         for sep = (make-string (1+ (- lgst (length bn))) ? )
-                         for path = (or (assoc-default bn 
helm--locate-library-cache)
-                                        (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 (cons disp path))
-              candidates))
+            (cl-loop with lgst = (helm-in-buffer-get-longest-candidate)
+                     for c in candidates
+                     for bn = (helm-basename c 2)
+                     for sep = (make-string (1+ (- lgst (length bn))) ? )
+                     for path = (or (assoc-default bn 
helm--locate-library-cache)
+                                    (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))))
           :action (helm-actions-from-type-file))
         :buffer "*helm locate library*"))