emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/hyperdrive 97eb1ee6e3 028/123: Change: (hyperdrive-downloa


From: ELPA Syncer
Subject: [nongnu] elpa/hyperdrive 97eb1ee6e3 028/123: Change: (hyperdrive-download) Rename from hyperdrive-download-entry
Date: Fri, 6 Oct 2023 01:01:00 -0400 (EDT)

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

    Change: (hyperdrive-download) Rename from hyperdrive-download-entry
---
 doc/hyperdrive-manual.org  | 4 ++--
 doc/hyperdrive-manual.texi | 6 +++---
 hyperdrive-dir.el          | 4 ++--
 hyperdrive-history.el      | 4 ++--
 hyperdrive.el              | 4 ++--
 5 files changed, 11 insertions(+), 11 deletions(-)

diff --git a/doc/hyperdrive-manual.org b/doc/hyperdrive-manual.org
index a4cc2ff5f6..f36e2e6fff 100644
--- a/doc/hyperdrive-manual.org
+++ b/doc/hyperdrive-manual.org
@@ -358,11 +358,11 @@ stream that video from the network.  After the stream 
finishes, the
 audio/video file is stored locally.
 
 ** Download hyperdrive files
-#+findex: hyperdrive-download-entry
+#+findex: hyperdrive-download
 #+findex: hyperdrive-download-url
 
 You can download a hyperdrive file to your local filesystem. Download
-the current hyperdrive file with ~hyperdrive-download-entry~ or paste
+the current hyperdrive file with ~hyperdrive-download~ or paste
 in a ~hyper://~ URL after ~hyperdrive-download-url~.
 
 ** Upload files from your filesystem
diff --git a/doc/hyperdrive-manual.texi b/doc/hyperdrive-manual.texi
index 108e2252bf..4a8b132a02 100644
--- a/doc/hyperdrive-manual.texi
+++ b/doc/hyperdrive-manual.texi
@@ -579,11 +579,11 @@ audio/video file is stored locally.
 @node Download hyperdrive files
 @section Download hyperdrive files
 
-@findex hyperdrive-download-entry
+@findex hyperdrive-download
 @findex hyperdrive-download-url
 
 You can download a hyperdrive file to your local filesystem. Download
-the current hyperdrive file with @code{hyperdrive-download-entry} or paste
+the current hyperdrive file with @code{hyperdrive-download} or paste
 in a @code{hyper://} URL after @code{hyperdrive-download-url}.
 
 @node Upload files from your filesystem
@@ -1768,4 +1768,4 @@ recommend releasing these examples in parallel under your 
choice of
 free software license, such as the GNU General Public License, to
 permit their use in free software.
 
-@bye
\ No newline at end of file
+@bye
diff --git a/hyperdrive-dir.el b/hyperdrive-dir.el
index bf88d2d3b5..e8cb73915f 100644
--- a/hyperdrive-dir.el
+++ b/hyperdrive-dir.el
@@ -233,7 +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-download "hyperdrive")
 (declare-function hyperdrive-describe-hyperdrive "hyperdrive-describe")
 (declare-function hyperdrive-menu "hyperdrive")
 
@@ -245,7 +245,7 @@ With point on header, returns directory entry."
   "v"   #'hyperdrive-dir-view-file
   "j"   #'imenu
   "w"   #'hyperdrive-dir-copy-url
-  "d"   #'hyperdrive-download-entry
+  "d"   #'hyperdrive-download
   "^"   #'hyperdrive-up
   "D"   #'hyperdrive-dir-delete
   "H"   #'hyperdrive-dir-history
diff --git a/hyperdrive-history.el b/hyperdrive-history.el
index f2c83ceb9d..74b7997406 100644
--- a/hyperdrive-history.el
+++ b/hyperdrive-history.el
@@ -310,7 +310,7 @@ buffer."
      ;; Not known to exist: warn user.
      (hyperdrive-user-error "File not known to exist!"))))
 
-(declare-function hyperdrive-download-entry "hyperdrive")
+(declare-function hyperdrive-download "hyperdrive")
 
 (defun hyperdrive-history-download-file (range-entry filename)
   "Download entry in RANGE-ENTRY at point to FILENAME on disk."
@@ -332,7 +332,7 @@ buffer."
   (pcase-exhaustive (hyperdrive-range-entry-exists-p range-entry)
     ('t
      ;; Known to exist: download it.
-     (hyperdrive-download-entry (cdr range-entry) filename))
+     (hyperdrive-download (cdr range-entry) filename))
     ('nil
      ;; Known to not exist: warn user.
      (hyperdrive-user-error "File does not exist!"))
diff --git a/hyperdrive.el b/hyperdrive.el
index 5bd436f370..f7e9fa33ca 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -360,7 +360,7 @@ for more information.  See `hyperdrive-read-entry' and
   (hyperdrive-open (hyperdrive-url-entry url)))
 
 ;;;###autoload
-(defun hyperdrive-download-entry (entry filename)
+(defun hyperdrive-download (entry filename)
   "Download ENTRY to FILENAME on disk.
 Interactively, downloads current hyperdrive file.  If current
 buffer is not a hyperdrive file, prompts with
@@ -877,7 +877,7 @@ The return value of this function is the retrieval buffer."
                           (not (hyperdrive--entry-directory-p 
hyperdrive-current-entry)))
                      (and (eq major-mode 'hyperdrive-dir-mode)
                           (hyperdrive-dir--entry-at-point))))
-    ("f d" "Download" hyperdrive-download-entry)
+    ("f d" "Download" hyperdrive-download)
     ;; FIXME: Enable this as a command.
     ;; ("f D" "Delete" hyperdrive-delete)
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]