diff options
| author | Philip Kaludercic | 2022-10-22 00:06:02 +0200 |
|---|---|---|
| committer | Philip Kaludercic | 2022-10-22 00:06:04 +0200 |
| commit | ab283bddb2505e767bdf08b063c648b87d71d33a (patch) | |
| tree | 3df162f177d45984fc082a1b7da995e11998ae4d | |
| parent | 5694278af37c77e3999cc39231c218f786ee7c86 (diff) | |
| download | emacs-ab283bddb2505e767bdf08b063c648b87d71d33a.tar.gz emacs-ab283bddb2505e767bdf08b063c648b87d71d33a.zip | |
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.
| -rw-r--r-- | lisp/emacs-lisp/package-vc.el | 4 |
1 files changed, 2 insertions, 2 deletions
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." | |||
| 145 | This function is meant to be used as a hook for | 145 | This function is meant to be used as a hook for |
| 146 | `package--read-archive-hook'." | 146 | `package--read-archive-hook'." |
| 147 | (let* ((contents-file (expand-file-name | 147 | (let* ((contents-file (expand-file-name |
| 148 | (format "archives/%s/elpa-packages" archive) | 148 | (format "archives/%s/elpa-packages.eld" archive) |
| 149 | package-user-dir))) | 149 | package-user-dir))) |
| 150 | (when (file-exists-p contents-file) | 150 | (when (file-exists-p contents-file) |
| 151 | (with-temp-buffer | 151 | (with-temp-buffer |
| @@ -162,7 +162,7 @@ If optional argument ASYNC is non-nil, perform the downloads | |||
| 162 | asynchronously." | 162 | asynchronously." |
| 163 | (dolist (archive package-archives) | 163 | (dolist (archive package-archives) |
| 164 | (condition-case-unless-debug nil | 164 | (condition-case-unless-debug nil |
| 165 | (package--download-one-archive archive "elpa-packages" async) | 165 | (package--download-one-archive archive "elpa-packages.eld" async) |
| 166 | (error (message "Failed to download `%s' archive." (car archive)))))) | 166 | (error (message "Failed to download `%s' archive." (car archive)))))) |
| 167 | 167 | ||
| 168 | (add-hook 'package-read-archive-hook #'package-vc--read-archive-data 20) | 168 | (add-hook 'package-read-archive-hook #'package-vc--read-archive-data 20) |