branch: elpa/hyperdrive
commit 6c5b7aa4aeaae2c6e9507b11450d7d42d2ab7962
Author: Adam Porter <[email protected]>
Commit: Joseph Turner <[email protected]>
Fix: (h//gateway-start-default)
---
hyperdrive-lib.el | 15 ++++++++-------
1 file changed, 8 insertions(+), 7 deletions(-)
diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index 3db0ee535e..9d61d9fd23 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -1418,13 +1418,14 @@ Then calls THEN if given."
(defun h//gateway-start-default ()
"Start the gateway as an Emacs subprocess.
Default function; see variable `h/gateway-start-function'."
- (let ((hyper-gateway-ushin-path
- (or (h//hyper-gateway-ushin-path)
- (if (yes-or-no-p "hyper-gateway-ushin not installed; install? ")
- (progn
- (declare-function h/install "hyperdrive")
- (h/install))
- (h/error "Gateway not installed; aborted")))))
+ (let ((hyper-gateway-ushin-path (h//hyper-gateway-ushin-path)))
+ (if (not hyper-gateway-ushin-path)
+ (if (yes-or-no-p "hyper-gateway-ushin not installed; install? ")
+ (progn
+ (declare-function h/install "hyperdrive")
+ (h/install))
+ (h/error "Gateway not installed; aborted")))
+ ;; Gateway is installed: start it.
(setf h/gateway-process
(make-process
:name "hyper-gateway-ushin"
