[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/setup 4e15683148 1/3: Fix 'package-archive-contents' qu
From: |
ELPA Syncer |
Subject: |
[elpa] externals/setup 4e15683148 1/3: Fix 'package-archive-contents' query in :package |
Date: |
Sat, 13 Apr 2024 03:58:48 -0400 (EDT) |
branch: externals/setup
commit 4e15683148a49101234e810af9c2c3340293c43c
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>
Fix 'package-archive-contents' query in :package
Since 'package-archive-contents' is an alist, using 'memq' will always
return nil and therefore unnecessarily call 'package-refresh-contents'.
See
https://lists.sr.ht/~pkal/public-inbox/%3CFFC8A913-AEFA-4215-83CA-B8C4F8191013@systemexit.de%3E
---
setup.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/setup.el b/setup.el
index e8960f6458..be1e9bf965 100644
--- a/setup.el
+++ b/setup.el
@@ -537,7 +537,7 @@ If FUNCTION is a list, apply BODY to all elements of
FUNCTION."
(setup-define :package
(lambda (package)
`(unless (package-installed-p ',package)
- (unless (memq ',package package-archive-contents)
+ (unless (assq ',package package-archive-contents)
(package-refresh-contents))
(package-install ',package)))
:documentation "Install PACKAGE if it hasn't been installed yet.