[nongnu] elpa/hyperdrive 7d5a63ac62 03/20: Fix: (hyperdrive-menu-bar-menu)

[ELPA Syncer]

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

    Fix: (hyperdrive-menu-bar-menu)
---
 hyperdrive.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/hyperdrive.el b/hyperdrive.el
index 4cf6c74c3a..d0e25ebf8c 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -1017,7 +1017,7 @@ The return value of this function is the retrieval 
buffer."
                          "File")
                        (hyperdrive-entry-name entry)))
       :active (and (eq major-mode 'hyperdrive-dir-mode)
-                   (hyperdrive-dir--entry))
+                   (hyperdrive-dir--entry-at-point))
       ["Download" (lambda ()
                     (interactive)
                     (call-interactively #'hyperdrive-download))
@@ -1028,7 +1028,7 @@ The return value of this function is the retrieval 
buffer."
       ["Delete" (lambda ()
                   (interactive)
                   (call-interactively #'hyperdrive-delete))
-       :active (let ((selected-entry (hyperdrive-dir--entry)))
+       :active (let ((selected-entry (hyperdrive-dir--entry-at-point)))
                  (and (hyperdrive-writablep
                        (hyperdrive-entry-hyperdrive hyperdrive-current-entry))
                       (not (eq selected-entry hyperdrive-current-entry))