* 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.
This commit is contained in:
Artur Malabarba 2015-04-30 00:57:46 +01:00
parent 768edb6e7b
commit c1d30c4b13

View file

@ -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