branch: elpa/hyperdrive
commit 5fcd2eb57f529dc8f8cfbce0d9a2ba544150dd14
Author: Joseph Turner <[email protected]>
Commit: Joseph Turner <[email protected]>
Change: (h//gateway-start) Better error when gateway is not found
---
hyperdrive-lib.el | 15 ++++++++++-----
1 file changed, 10 insertions(+), 5 deletions(-)
diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index 76ac993047..2f540dbc89 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -1469,11 +1469,16 @@ Used when HYPERDRIVE-GATEWAY-PROCESS-TYPE is the symbol
`subprocess'."
(when (h//gateway-running-p)
(user-error "Gateway already running"))
- (setf h/gateway-process
- (make-process :name "hyper-gateway"
- :buffer " *hyperdrive-start*"
- :command (split-string-and-unquote h/gateway-command)
- :connection-type 'pipe))
+ (condition-case nil
+ (setf h/gateway-process
+ (make-process :name "hyper-gateway"
+ :buffer " *hyperdrive-start*"
+ :command (split-string-and-unquote h/gateway-command)
+ :connection-type 'pipe))
+ (file-missing
+ (info "(hyperdrive) hyper-gateway")
+ (user-error
+ "hyper-gateway program not found; Please see installation
instructions")))
(sleep-for 0.5)
(unless (process-live-p h/gateway-process)
(if (h/status)
