[nongnu] elpa/hyperdrive 0643bbcdd4 1/4: Change: (h/gateway-version) Also add version string to kill-ring

[ELPA Syncer]

branch: elpa/hyperdrive
commit 0643bbcdd4afe155bd9ce0cb40a4243f5a894339
Author: Joseph Turner <joseph@ushin.org>
Commit: Joseph Turner <joseph@ushin.org>

    Change: (h/gateway-version) Also add version string to kill-ring
---
 hyperdrive.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/hyperdrive.el b/hyperdrive.el
index 6876cc2ac0..aedc2feed7 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -138,10 +138,12 @@ which see."
 
 ;;;###autoload
 (defun hyperdrive-gateway-version ()
-  "Say version number of gateway.
+  "Say version number of gateway and copy it to the kill-ring.
 Return version if gateway is running; otherwise signal an error."
   (interactive)
-  (h/message "%S" (h//gateway-version)))
+  (let ((version (format "%S" (h//gateway-version))))
+    (kill-new version)
+    (h/message version)))
 
 ;;;###autoload
 (defun hyperdrive-new (seed)