[nongnu] elpa/hyperdrive 25d265d476 09/15: Change: (hyperdrive-history) Use hyperdrive--context-entry

[ELPA Syncer]

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

    Change: (hyperdrive-history) Use hyperdrive--context-entry
---
 hyperdrive-history.el | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/hyperdrive-history.el b/hyperdrive-history.el
index 75b76c147e..3a129d8e75 100644
--- a/hyperdrive-history.el
+++ b/hyperdrive-history.el
@@ -143,11 +143,10 @@ and ENTRY's version are nil."
 (defun hyperdrive-history (entry)
   "Display version history for current hyperdrive ENTRY.
 
-Universal prefix argument \\[universal-argument] forces
-`hyperdrive-read-entry' to prompt for an entry."
-  (interactive (list (if (or current-prefix-arg (not hyperdrive-current-entry))
-                         (hyperdrive-read-entry :force-prompt t 
:allow-version-p nil)
-                       hyperdrive-current-entry)))
+Interactively, open version history for current file ENTRY or
+ENTRY at point in a directory.  Otherwise, or with universal
+prefix argument \\[universal-argument], prompt for ENTRY."
+  (interactive (list (hyperdrive--context-entry)))
   ;; TODO: Highlight range for ENTRY
   (when (hyperdrive--entry-directory-p entry)
     (hyperdrive-user-error "Directory history not implemented"))