[nongnu] elpa/hyperdrive 0fb87a249f 027/123: Change: (hyperdrive-dir-mode-map) Use hyperdrive-download-entry

[ELPA Syncer]

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

    Change: (hyperdrive-dir-mode-map) Use hyperdrive-download-entry
    
    And remove unused hyperdrive-dir-download-file.
---
 hyperdrive-dir.el | 15 ++-------------
 1 file changed, 2 insertions(+), 13 deletions(-)

diff --git a/hyperdrive-dir.el b/hyperdrive-dir.el
index 8d5e3c28bf..bf88d2d3b5 100644
--- a/hyperdrive-dir.el
+++ b/hyperdrive-dir.el
@@ -233,6 +233,7 @@ With point on header, returns directory entry."
 
 (declare-function hyperdrive-find-file "hyperdrive")
 (declare-function hyperdrive-up "hyperdrive")
+(declare-function hyperdrive-download-entry "hyperdrive")
 (declare-function hyperdrive-describe-hyperdrive "hyperdrive-describe")
 (declare-function hyperdrive-menu "hyperdrive")
 
@@ -244,7 +245,7 @@ With point on header, returns directory entry."
   "v"   #'hyperdrive-dir-view-file
   "j"   #'imenu
   "w"   #'hyperdrive-dir-copy-url
-  "d"   #'hyperdrive-dir-download-file
+  "d"   #'hyperdrive-download-entry
   "^"   #'hyperdrive-up
   "D"   #'hyperdrive-dir-delete
   "H"   #'hyperdrive-dir-history
@@ -290,18 +291,6 @@ Interactively, opens file or directory at point in
   (interactive (list (hyperdrive-dir--entry-at-point)))
   (hyperdrive-copy-url entry))
 
-(declare-function hyperdrive-download-entry "hyperdrive")
-
-(defun hyperdrive-dir-download-file (entry filename)
-  "Download ENTRY at point to FILENAME on disk."
-  (declare (modes hyperdrive-dir-mode))
-  (interactive
-   (pcase-let* ((entry (hyperdrive-dir--entry-at-point))
-                ((cl-struct hyperdrive-entry name) entry)
-                (read-filename (read-file-name "Filename: " (expand-file-name 
name hyperdrive-download-directory))))
-     (list entry read-filename)))
-  (hyperdrive-download-entry entry filename))
-
 (defun hyperdrive-dir-delete (entry)
   "Delete ENTRY."
   (declare (modes hyperdrive-dir-mode))