Fix #1653: uncaught error when async process times out

2019-08-08 22:59:57 -04:00 · 2019-08-08 22:59:57 -04:00 · c266680c11
commit c266680c11
parent 115a436273
1 changed files with 3 additions and 1 deletions
--- a/core/cli/packages.el
+++ b/core/cli/packages.el
@ -225,7 +225,9 @@ a list of packages that will be updated."
                 (while (not (async-ready (caar futures)))
                   (when (> time timeout)
                     (print! (warn "A thread has timed out. The following packages were skipped:\n\n  %s"
-                                   (string-join (cdar futures) ", ")))
+                                   (mapconcat (lambda (p) (plist-get p :package))
+                                              (cdar futures)
+                                              ", ")))
                     (throw 'timeout t))
                   (sleep-for 2)
                   (cl-incf time)