branch: elpa/hyperdrive
commit 4ea0f6a3c0decf0f909555e9a56de400e56613f6
Author: Joseph Turner <[email protected]>
Commit: Joseph Turner <[email protected]>
Fix: (h//gateway-wait-for-ready) Fix start function check
---
hyperdrive-lib.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index 59253168eb..902ef4f0eb 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -1498,7 +1498,8 @@ Or if gateway isn't ready within timeout, show an error."
((< 10 (float-time (time-subtract nil start-time)))
;; Gateway still not responsive: show error.
(if (equal h/gateway-start-function
- (get 'h/gateway-start-function 'standard-value))
+ (eval (car (get 'h/gateway-start-function
+ 'standard-value))))
(progn
;; User has not customized the start function: show the
;; process buffer.
