scratch/package-vc-fixes ff90ad5277 24/48: Fix indefinite loading of asynchronous downloads

[Philip Kaludercic]

branch: scratch/package-vc-fixes
commit ff90ad5277820d4ceef3efaa240c86e3f41197a2
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>

    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'.
---
 lisp/emacs-lisp/package.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index 893b3617bb..8e9386202f 100644
--- a/lisp/emacs-lisp/package.el
+++ b/lisp/emacs-lisp/package.el
@@ -1806,7 +1806,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