branch: elpa/hyperdrive
commit 385dab296d5f46c00d75cca3dd9c133b17c1f60c
Author: Joseph Turner <[email protected]>
Commit: Joseph Turner <[email protected]>
Change: (hyperdrive-previous-version) Suggest hyperdrive-history
---
hyperdrive.el | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/hyperdrive.el b/hyperdrive.el
index dbf4bcec41..ecdd5a00bc 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -496,7 +496,10 @@ hyperdrive directory listing or a `hyperdrive-mode' file
buffer."
(interactive (list hyperdrive-current-entry))
(if-let ((previous-entry (hyperdrive-entry-previous entry)))
(hyperdrive-open previous-entry)
- (hyperdrive-message "At earliest known version of %s"
(hyperdrive-entry-description entry :with-version nil))))
+ (hyperdrive-message (substitute-command-keys "%s does not exist at version
%s. Try \\[hyperdrive-history]")
+ (hyperdrive-entry-description entry :with-version nil)
+ (1- (or (hyperdrive-entry-version entry)
+ (hyperdrive-latest-version
(hyperdrive-entry-hyperdrive entry)))))))
(defun hyperdrive-next-version (entry)
"Show next version of ENTRY."
