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