[nongnu] elpa/hyperdrive 6c5b7aa4ae 058/163: Fix: (h//gateway-start-default)

[ELPA Syncer]

branch: elpa/hyperdrive
commit 6c5b7aa4aeaae2c6e9507b11450d7d42d2ab7962
Author: Adam Porter <adam@alphapapa.net>
Commit: Joseph Turner <joseph@ushin.org>

    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"