branch: elpa/hyperdrive
commit 73592a6256c2bbee51b86872ac4027956c74f0d7
Author: Joseph Turner <[email protected]>
Commit: Joseph Turner <[email protected]>
Change: Don't make h/gateway-installed-p customizable
---
hyperdrive-lib.el | 6 ------
hyperdrive-vars.el | 5 -----
2 files changed, 11 deletions(-)
diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index 80bb4337bf..7fae61f1b6 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -1488,12 +1488,6 @@ process is running."
(process-live-p h/install-in-progress))
(defun h/gateway-installed-p ()
- "Return non-nil if the gateway program is installed.
-Calls function set in option
-`hyperdrive-gateway-installed-predicate'."
- (funcall h/gateway-installed-predicate))
-
-(defun h/gateway-installed-p-default ()
"Return non-nil if the gateway program is installed."
(and-let* ((hyper-gateway-ushin-path (hyperdrive--hyper-gateway-ushin-path)))
(file-executable-p hyper-gateway-ushin-path)))
diff --git a/hyperdrive-vars.el b/hyperdrive-vars.el
index 8d68ba3537..f71cbd8403 100644
--- a/hyperdrive-vars.el
+++ b/hyperdrive-vars.el
@@ -432,11 +432,6 @@ gateway process."
"Predicate function which returns non-nil if the gateway process is live."
:type 'function)
-(declare-function h/gateway-installed-p-default "hyperdrive-lib")
-(defcustom h/gateway-installed-predicate #'h/gateway-installed-p-default
- "Predicate function which returns non-nil if the gateway process is
installed."
- :type 'function)
-
(defcustom h/gateway-ready-hook
'( h/check-gateway-version
h/announce-gateway-ready
