From: Artur Malabarba <bruce.connor.am@gmail.com>
Date: Wed, 29 Apr 2015 23:57:46 +0000 (+0100)
Subject: * lisp/emacs-lisp/package.el: Use pushnew for downloads in progress
X-Git-Tag: emacs-25.0.90~2251
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c1d30c4b132d851c298c52d8c275e43da36ab70f;p=emacs.git

* lisp/emacs-lisp/package.el: Use pushnew for downloads in progress

(package--download-and-read-archives): Use pushnew instead of
append.  If something terrible happened during a previous
download, simply refreshing should now make things work again.
---

diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index 84b6987a21a..a65564151bc 100644
--- a/lisp/emacs-lisp/package.el
+++ b/lisp/emacs-lisp/package.el
@@ -1463,9 +1463,9 @@ This populates `package-archive-contents'.  If ASYNC is non-nil,
 perform the downloads asynchronously."
   ;; The downloaded archive contents will be read as part of
   ;; `package--update-downloads-in-progress'.
-  (setq package--downloads-in-progress
-        (append package-archives
-                package--downloads-in-progress))
+  (dolist (archive package-archives)
+    (cl-pushnew archive package--downloads-in-progress
+                :test #'equal))
   (dolist (archive package-archives)
     (condition-case-unless-debug nil
         (package--download-one-archive