[nongnu] elpa/hyperdrive 385dab296d 45/49: Change: (hyperdrive-previous-version) Suggest hyperdrive-history

[ELPA Syncer]

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

    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."