[nongnu] elpa/helm 943aa46587 04/11: Long lines only

[ELPA Syncer]

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

    Long lines only
---
 helm-elisp.el | 48 +++++++++++++++++++++++-------------------------
 1 file changed, 23 insertions(+), 25 deletions(-)

diff --git a/helm-elisp.el b/helm-elisp.el
index 2b9ec6a7ce..4494dcd85d 100644
--- a/helm-elisp.el
+++ b/helm-elisp.el
@@ -915,31 +915,29 @@ a string, i.e. the `symbol-name' of any existing symbol."
 (defun helm-locate-library ()
   "Preconfigured helm to locate elisp libraries."
   (interactive)
-  (helm :sources (helm-build-in-buffer-source  "Elisp libraries (Scan)"
-                   :data #'helm-locate-library-scan-list
-                   :fuzzy-match helm-locate-library-fuzzy-match
-                   :keymap helm-generic-files-map
-                   :filtered-candidate-transformer
-                   (lambda (candidates _source)
-                     (cl-loop with lgst = 
(helm-in-buffer-get-longest-candidate)
-                              for c in candidates
-                              for sep = (make-string
-                                         (1+ (- lgst
-                                                (length c)))
-                                         ? )
-                              for bn = (helm-basename (helm-basename c t) t)
-                              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)))
-                   :action (helm-actions-from-type-file))
+  (helm :sources
+        (helm-build-in-buffer-source  "Elisp libraries (Scan)"
+          :data #'helm-locate-library-scan-list
+          :fuzzy-match helm-locate-library-fuzzy-match
+          :keymap helm-generic-files-map
+          :filtered-candidate-transformer
+          (lambda (candidates _source)
+            (cl-loop with lgst = (helm-in-buffer-get-longest-candidate)
+                     for c in candidates
+                     for sep = (make-string (1+ (- lgst (length c))) ? )
+                     for bn = (helm-basename (helm-basename c t) t)
+                     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)))
+          :action (helm-actions-from-type-file))
         :buffer "*helm locate library*"))