~pkal/setup: Fix 'package-archive-contents' query in :package

4e15683148a49101234e810af9c2c3340293c43c — Philip Kaludercic 5 months ago e687c48

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

patch browse .tar.gz

1 files changed, 1 insertions(+), 1 deletions(-)

M setup.el

M setup.el => setup.el +1 -1

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