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

[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.



reply via email to

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