branch: elpa/hyperdrive
commit 6dc4af2fe032485a9622afa85b5bba35c30e8fae
Author: Joseph Turner <[email protected]>
Commit: Joseph Turner <[email protected]>
Add: (h/gateway-installing-p) Predicate function
---
hyperdrive-lib.el | 4 ++++
1 file changed, 4 insertions(+)
diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index b38db5671e..4b68615e99 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -1484,6 +1484,10 @@ This does not mean that the gateway is responsive, only
that the
process is running."
(process-live-p h/gateway-process))
+(defun h/gateway-installing-p ()
+ "Return non-nil if the gateway program is being installed."
+ (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
