From d4fc70129786f0c90f76e1868203d63a59f3f92d Mon Sep 17 00:00:00 2001
From: Philip Kaludercic <philipk@posteo.net>
Date: Sun, 12 Feb 2023 13:25:54 +0100
Subject: [PATCH] Tolerate missing elpa-packages.eld files
* lisp/emacs-lisp/package-vc.el
(package-vc--download-and-read-archives): Replace
'condition-case-unless-debug' with a regular 'condition-case'.
It appears a few people using third-party archives that don't serve
package specifications have been having issues with package-vc, when
toggle-on-error is enabled. In their case, package-vc would raise an
error in its first invocation, but it would go on working normally
afterwards. As this behaviour is confusing and the user can't do much
about a missing elpa-packages.eld to begin with, we satisfy ourselves
with printing out a message and continuing on.
---
lisp/emacs-lisp/package-vc.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/lisp/emacs-lisp/package-vc.el b/lisp/emacs-lisp/package-vc.el
index 1bc5c883161..a3d5200f0f8 100644
--- a/lisp/emacs-lisp/package-vc.el
+++ b/lisp/emacs-lisp/package-vc.el
@@ -269,9 +269,9 @@ Populate `package-vc--archive-spec-alist' with the result.
If optional argument ASYNC is non-nil, perform the downloads
asynchronously."
(dolist (archive package-archives)
- (condition-case-unless-debug nil
+ (condition-case err
(package--download-one-archive archive "elpa-packages.eld" async)
- (error (message "Failed to download `%s' archive." (car archive))))))
+ (error (message "Failed to download `%s' archive: %S" (car archive) err)))))
(add-hook 'package-read-archive-hook #'package-vc--read-archive-data 20)
--
2.39.5