branch: elpa/hyperdrive
commit d5a8775d0b0df8afeb7e94d9b400c6c403031ac8
Author: Joseph Turner <[email protected]>
Commit: Joseph Turner <[email protected]>
Change: (h/cancel-install) Improve error when no install in progress
---
hyperdrive.el | 2 ++
1 file changed, 2 insertions(+)
diff --git a/hyperdrive.el b/hyperdrive.el
index f7f520eeed..b4507f64f7 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -1378,6 +1378,8 @@ If FORCEP, don't prompt for confirmation before
downloading."
(defun h/cancel-install ()
"Stop downloading/installing hyper-gateway-ushin."
(interactive)
+ (unless (h/gateway-installing-p)
+ (h/user-error "No installation in progress"))
(h/message "Cancelling install")
(interrupt-process h/install-in-progress))
