branch: elpa/hyperdrive
commit 13482cbdc1ee2376544cda62306bc2a9471dc50a
Author: Joseph Turner <[email protected]>
Commit: Joseph Turner <[email protected]>
Fix: (h/check-gateway-version) Use substitute-command-keys
---
hyperdrive-lib.el | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index 809d062f29..09e88fe8a9 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -209,7 +209,11 @@ Unconditionally sets `h/gateway-version-checked-p' to t.
The
caller should ensure that the gateway is running before calling
this function."
(when (h/gateway-needs-upgrade-p)
- (display-warning 'hyperdrive "Gateway version not expected; consider
installing the latest version with \\[hyperdrive-install]" :warning))
+ (display-warning
+ 'hyperdrive
+ (substitute-command-keys
+ "Gateway version not expected; consider installing the latest version
with \\[hyperdrive-install]")
+ :warning))
(setf h/gateway-version-checked-p t))
(defun h//gateway-version ()
