[nongnu] elpa/hyperdrive bb17eacd04 3/7: Change: Rename previous/next-version commands

[ELPA Syncer]

branch: elpa/hyperdrive
commit bb17eacd0417e0fcc23f264585c05c093cf7beb2
Author: Adam Porter <adam@alphapapa.net>
Commit: Adam Porter <adam@alphapapa.net>

    Change: Rename previous/next-version commands
---
 DEV.org            | 4 ++--
 doc/hyperdrive.org | 6 +++---
 hyperdrive-menu.el | 4 ++--
 hyperdrive.el      | 8 ++++----
 4 files changed, 11 insertions(+), 11 deletions(-)

diff --git a/DEV.org b/DEV.org
index 692d4d6c04..9b2ee312f3 100644
--- a/DEV.org
+++ b/DEV.org
@@ -100,10 +100,10 @@
 
     + Time machine :: Allowing the user to "go back in time" (and forward) and 
view various versions of entries.
 
-      + ~hyperdrive-previous-version~ :: Show the previous version of the file.
+      + ~hyperdrive-open-previous-version~ :: Show the previous version of the 
file.
         + [ ] If the current version of the file is the earliest, show a 
useful error.
 
-      + ~hyperdrive-next-version~ :: Show the next version of the file.
+      + ~hyperdrive-open-next-version~ :: Show the next version of the file.
         + *NOTE*: The hyper-gateway API doesn't seem to currently offer a way 
to retrieve the /next/ version of an entry, given an entry at a version.  
Iterating backward from the latest version would be impractical.
 
         + [ ] If that version is also the current version, it should act as if 
the user requested the file without specifying a version.  See 
[[https://github.com/RangerMauve/hypercore-fetch/issues/72]].
diff --git a/doc/hyperdrive.org b/doc/hyperdrive.org
index 2561d61435..d2e4ab7653 100644
--- a/doc/hyperdrive.org
+++ b/doc/hyperdrive.org
@@ -368,13 +368,13 @@ current buffer.  This command has a keybinding in the 
[[*Directory view][directo
 the hyperdrive.*
 
 ** View the hyperdrive version history
-#+findex: hyperdrive-previous-version
-#+findex: hyperdrive-next-version
+#+findex: hyperdrive-open-previous-version
+#+findex: hyperdrive-open-next-version
 #+findex: hyperdrive-open-at-version
 
 Hyperdrives are versioned (see [[*Versioning]]).  To open the
 previous/next version of a hyperdrive file or directory, run
-~hyperdrive-previous-version~ or ~hyperdrive-next-version~.
+~hyperdrive-open-previous-version~ or ~hyperdrive-open-next-version~.
 ~hyperdrive-open-at-version~ lets you specify a version number; leaving
 the version blank opens the current file or directory at its
 hyperdrive's latest version.
diff --git a/hyperdrive-menu.el b/hyperdrive-menu.el
index 9fe9e75b73..c97a6f394b 100644
--- a/hyperdrive-menu.el
+++ b/hyperdrive-menu.el
@@ -83,7 +83,7 @@
                                                        "latest"))
                                            'face 'transient-value))
                      "Version"))
-    ("V p" "Previous" hyperdrive-previous-version
+    ("V p" "Previous" hyperdrive-open-previous-version
      :inapt-if-not (lambda ()
                      (hyperdrive-entry-previous (oref transient--prefix scope) 
:cache-only t))
      ;; :transient t
@@ -97,7 +97,7 @@
                                    (concat ": " (propertize (number-to-string 
version)
                                                             'face 
'transient-value)))))
                       "Previous")))
-    ("V n" "Next" hyperdrive-next-version
+    ("V n" "Next" hyperdrive-open-next-version
      :inapt-if-not (lambda  ()
                      (let ((entry (oref transient--prefix scope)))
                        (and (hyperdrive-entry-version entry)
diff --git a/hyperdrive.el b/hyperdrive.el
index d8da2b4d6c..5ec1b76645 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -548,7 +548,7 @@ it to `hyperdrive-open'."
   "j"   #'hyperdrive-up
   "C-j" #'hyperdrive-up)
 
-(defun hyperdrive-previous-version (entry)
+(defun hyperdrive-open-previous-version (entry)
   "Open previous version of ENTRY."
   (declare (modes hyperdrive-mode))
   (interactive (list hyperdrive-current-entry))
@@ -559,7 +559,7 @@ it to `hyperdrive-open'."
                         (1- (or (hyperdrive-entry-version entry)
                                 (hyperdrive-latest-version 
(hyperdrive-entry-hyperdrive entry)))))))
 
-(defun hyperdrive-next-version (entry)
+(defun hyperdrive-open-next-version (entry)
   "Open next version of ENTRY."
   (declare (modes hyperdrive-mode))
   (interactive (list hyperdrive-current-entry))
@@ -1151,7 +1151,7 @@ The return value of this function is the retrieval 
buffer."
                          "latest"))
       ["Previous Version" (lambda ()
                             (interactive)
-                            (call-interactively #'hyperdrive-previous-version))
+                            (call-interactively 
#'hyperdrive-open-previous-version))
        :active (hyperdrive-entry-previous hyperdrive-current-entry :cache-only 
t)
        :label (concat "Previous Version"
                       (pcase-exhaustive (hyperdrive-entry-previous 
hyperdrive-current-entry :cache-only t)
@@ -1162,7 +1162,7 @@ The return value of this function is the retrieval 
buffer."
        :help "Open previous version"]
       ["Next Version" (lambda ()
                         (interactive)
-                        (call-interactively #'hyperdrive-next-version))
+                        (call-interactively #'hyperdrive-open-next-version))
        :active (and (hyperdrive-entry-version hyperdrive-current-entry)
                     (hyperdrive-entry-next hyperdrive-current-entry))
        :label (concat "Next Version"