From: Philip Kaludercic <philipk@posteo.net>
Date: Fri, 11 Nov 2022 17:34:14 +0000 (+0100)
Subject: Fix indefinite loading of asynchronous downloads
X-Git-Tag: emacs-29.0.90~1616^2~78
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2ed115fc3ca98efb83206afa608f94edc48782d6;p=emacs.git

Fix indefinite loading of asynchronous downloads

* lisp/emacs-lisp/package.el (package--download-one-archive): Only add
the archive that is actually being downloaded to
'package--downloads-in-progress'.
---

diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index 23e0bb15d0a..f9786febf4e 100644
--- a/lisp/emacs-lisp/package.el
+++ b/lisp/emacs-lisp/package.el
@@ -1787,7 +1787,7 @@ similar to an entry in `package-alist'.  Save the cached copy to
 \"archives/NAME/FILE\" in `package-user-dir'."
   ;; The downloaded archive contents will be read as part of
   ;; `package--update-downloads-in-progress'.
-  (dolist (archive package-archives)
+  (when async
     (cl-pushnew (cons archive file) package--downloads-in-progress
                 :test #'equal))
   (package--with-response-buffer (cdr archive) :file file