Discard timed out future correctly on 'doom update'

And list packages immediately after message (no newlines).
This commit is contained in:
Henrik Lissner 2019-08-09 15:26:22 -04:00
parent 624c5e1a71
commit 2cd9685758
No known key found for this signature in database
GPG Key ID: 5F6C0EA160557395

View File

@ -224,11 +224,11 @@ a list of packages that will be updated."
(catch 'timeout
(while (not (async-ready (caar futures)))
(when (> time timeout)
(print! (warn "A thread has timed out. The following packages were skipped:\n\n %s"
(print! (warn "A thread has timed out. The following packages were skipped: %s"
(mapconcat (lambda (p) (plist-get p :package))
(cdar futures)
", ")))
(throw 'timeout t))
(throw 'timeout (pop futures)))
(sleep-for 2)
(cl-incf time)
(print! "."))