branch: elpa/hyperdrive
commit 1341b348fa7f921324741323c5d3280a1d6d5ff6
Author: Joseph Turner <jos...@ushin.org>
Commit: Joseph Turner <jos...@ushin.org>
Change: (hyperdrive-open-at-version) Improve prompt
---
hyperdrive.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/hyperdrive.el b/hyperdrive.el
index cb346b8a2e..f2079c8401 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -588,7 +588,9 @@ Nil VERSION means open the entry at its hyperdrive's latest
version."
(declare (modes hyperdrive-mode))
(interactive (let ((entry hyperdrive-current-entry))
(list entry (hyperdrive-read-version
- :hyperdrive (hyperdrive-entry-hyperdrive
entry)))))
+ :hyperdrive (hyperdrive-entry-hyperdrive entry)
+ :prompt (format "Open «%s» at version (leave
blank for latest version)"
+ (hyperdrive-entry-description
entry :with-version nil))))))
(if-let ((latest-entry (hyperdrive-entry-at version entry)))
(hyperdrive-open latest-entry)
(hyperdrive-message (substitute-command-keys "%s does not exist at version
%s. Try \\[hyperdrive-history]")
