[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/helm dc745dd553 2/2: Fix loop in helm-package--upgradeable
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/helm dc745dd553 2/2: Fix loop in helm-package--upgradeable-packages |
Date: |
Tue, 13 Aug 2024 04:01:04 -0400 (EDT) |
branch: elpa/helm
commit dc745dd55362471115f919bebc554f5c26da85f2
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>
Fix loop in helm-package--upgradeable-packages
---
helm-packages.el | 7 +++----
1 file changed, 3 insertions(+), 4 deletions(-)
diff --git a/helm-packages.el b/helm-packages.el
index 196a7312b4..450e24b4ae 100644
--- a/helm-packages.el
+++ b/helm-packages.el
@@ -281,10 +281,9 @@ Arg PACKAGES is a list of strings."
(cons sym vec))))))
package-alist)))
(cl-loop for (sym desc) in pkgs
- for available = (helm-aif (assq sym package-archive-contents)
- (and (not (package-disabled-p sym cversion))
- it))
- for cversion = (and available (package-desc-version desc))
+ for pkg = (assq sym package-archive-contents)
+ for cversion = (and pkg (package-desc-version desc))
+ for available = (and pkg (not (package-disabled-p sym cversion))
pkg)
when (or (and available
(or (and include-builtins (not cversion))
(and cversion