[nongnu] elpa/hyperdrive 53ce1cf3f4 04/19: Fix: Wait for download to start

[ELPA Syncer]

branch: elpa/hyperdrive
commit 53ce1cf3f48d94fda6549f4fc6600268f2e1bc1b
Author: Adam Porter <adam@alphapapa.net>
Commit: Adam Porter <adam@alphapapa.net>

    Fix: Wait for download to start
---
 hyperdrive.el | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/hyperdrive.el b/hyperdrive.el
index 9e9571620c..852f52f448 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -1468,6 +1468,12 @@ If FORCEP, don't prompt for confirmation before 
downloading."
                              (when (file-exists-p temp-file)
                                (delete-file temp-file)))))
              (require 'hyperdrive-download-monitor)
+             ;; Wait for download to start before showing monitor.
+             (cl-loop until (file-exists-p temp-file)
+                      do (sleep-for 0.1)
+                      for times below 100
+                      finally (unless (file-exists-p temp-file)
+                                (error "Download not started after 10 
seconds")))
              (pop-to-buffer
               (h/download-monitor :buffer-name "*hyperdrive-install*"
                                   :path temp-file