branch: elpa/hyperdrive
commit 6be7398ca122c6ace4e87180deb6c82823a91829
Author: Joseph Turner <jos...@ushin.org>
Commit: Joseph Turner <jos...@ushin.org>
Change: (h/start) Skip h//gateway-wait-for-ready when ready or live
This change prevents h/gateway-ready-hook from running more than once.
If the gateway is already ready, then we should run the hook at all.
If the gateway is already live, then the hook should be run by the
timer set in the prior call to h/start.
---
hyperdrive.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/hyperdrive.el b/hyperdrive.el
index 2f92403eb2..32332681cb 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -97,13 +97,13 @@ which see."
(interactive)
(let ((gateway-installed-p (h/gateway-installed-p)))
(cond ((and (h//gateway-ready-p) (h/gateway-live-p))
- (h/message "Gateway already running."))
+ (h/user-error "Gateway already running"))
((h//gateway-ready-p)
- (h/message "Gateway already running outside of Emacs."))
+ (h/user-error "Gateway already running outside of Emacs."))
(h//gateway-stopping-timer
(h/user-error "Wait for gateway to stop before restarting"))
((h/gateway-live-p)
- (h/message "Gateway already starting."))
+ (h/user-error "Gateway already starting"))
((and (not gateway-installed-p) (h/gateway-installing-p))
(h/user-error "Gateway installation in-progress"))
((not gateway-installed-p)
