[nongnu] elpa/hyperdrive b83ce9a548 3/5: Fix: Compiler warnings

[ELPA Syncer]

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

    Fix: Compiler warnings
---
 hyperdrive-lib.el | 1 +
 hyperdrive.el     | 4 ++--
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index 683ec90593..e23e036c9a 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -1280,6 +1280,7 @@ Otherwise, return nil.  SLOT may be one of
 ;;;; Handlers
 
 (declare-function h/org--link-goto "hyperdrive-org")
+(declare-function h/blob-mode "hyperdrive")
 (cl-defun h/handler-default (entry &key then)
   "Load ENTRY's file into an Emacs buffer.
 If then, then call THEN with no arguments.  Default handler."
diff --git a/hyperdrive.el b/hyperdrive.el
index 787901920b..7b474f696e 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -434,8 +434,7 @@ use, see `hyperdrive-write'."
   (pcase-let (((cl-struct hyperdrive-entry hyperdrive name) entry)
               (url (he/url entry))
               (buffer (current-buffer))
-              (buffer-visiting-entry (h//find-buffer-visiting entry))
-              (current-entry hyperdrive-current-entry))
+              (buffer-visiting-entry (h//find-buffer-visiting entry)))
     (unless (or overwritep (not (he/at nil entry)))
       (unless (y-or-n-p
               (format "File %s exists; overwrite?" (h//format-entry entry)))
@@ -527,6 +526,7 @@ it to `hyperdrive-open'."
   "j"   #'h/up
   "C-j" #'h/up)
 
+;;;###autoload
 (define-minor-mode hyperdrive-blob-mode
   "Minor mode for visiting previous versions of hyperdrive files."
   :global nil