[Emacs-diffs] master c1d30c4: * lisp/emacs-lisp/package.el: Use pushnew for downloads in progress

[Artur Malabarba]

branch: master
commit c1d30c4b132d851c298c52d8c275e43da36ab70f
Author: Artur Malabarba <address@hidden>
Commit: Artur Malabarba <address@hidden>

    * 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.
---
 lisp/emacs-lisp/package.el |    6 +++---
 1 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index 84b6987..a655641 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