emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/helm 62962e94f2 2/2: Compute lgst archive name in transfor


From: ELPA Syncer
Subject: [nongnu] elpa/helm 62962e94f2 2/2: Compute lgst archive name in transformer (#2691)
Date: Thu, 5 Dec 2024 01:00:13 -0500 (EST)

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

    Compute lgst archive name in transformer (#2691)
---
 helm-packages.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/helm-packages.el b/helm-packages.el
index 1194d4cd51..be01b3c140 100644
--- a/helm-packages.el
+++ b/helm-packages.el
@@ -207,7 +207,9 @@ Arg PACKAGES is a list of strings."
 ;;
 (defun helm-packages-transformer (candidates _source)
   "Transformer function for `helm-packages'."
-  (cl-loop for c in candidates
+  (cl-loop with lgst_arch = (cl-loop for (arch . _) in package-archives
+                                     maximize (length arch))
+           for c in candidates
            for sym = (intern-soft c)
            for archive = (assq sym package-archive-contents)
            for id = (package-get-descriptor sym)
@@ -251,7 +253,7 @@ Arg PACKAGES is a list of strings."
                               ;; Package provider.
                               (or provider "")
                               ;; Separator.
-                              (helm-make-separator provider 10)
+                              (helm-make-separator provider lgst_arch)
                               ;; Package version.
                               (or version "")
                               ;; Separator.



reply via email to

[Prev in Thread] Current Thread [Next in Thread]