From: Philip Kaludercic <philipk@posteo.net>
Date: Fri, 21 Oct 2022 22:06:02 +0000 (+0200)
Subject: Request "elpa-packages.eld" instead of "elpa-packages"
X-Git-Tag: emacs-29.0.90~1616^2~307^2~43
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ab283bddb2505e767bdf08b063c648b87d71d33a;p=emacs.git

Request "elpa-packages.eld" instead of "elpa-packages"

* lisp/emacs-lisp/package-vc.el
(package-vc--read-archive-data): Apply change.
(package-vc--download-and-read-archives): Apply change.
---

diff --git a/lisp/emacs-lisp/package-vc.el b/lisp/emacs-lisp/package-vc.el
index 8f42767a6f2..562c5340028 100644
--- a/lisp/emacs-lisp/package-vc.el
+++ b/lisp/emacs-lisp/package-vc.el
@@ -145,7 +145,7 @@ name for PKG-DESC."
 This function is meant to be used as a hook for
 `package--read-archive-hook'."
   (let* ((contents-file (expand-file-name
-                         (format "archives/%s/elpa-packages" archive)
+                         (format "archives/%s/elpa-packages.eld" archive)
                          package-user-dir)))
     (when (file-exists-p contents-file)
       (with-temp-buffer
@@ -162,7 +162,7 @@ If optional argument ASYNC is non-nil, perform the downloads
 asynchronously."
   (dolist (archive package-archives)
     (condition-case-unless-debug nil
-        (package--download-one-archive archive "elpa-packages" async)
+        (package--download-one-archive archive "elpa-packages.eld" async)
       (error (message "Failed to download `%s' archive." (car archive))))))
 
 (add-hook 'package-read-archive-hook     #'package-vc--read-archive-data 20)