branch: elpa/hyperdrive
commit 87a093db3aa125fc0c44b34b6f0cbe38f58ecd27
Author: Joseph Turner <[email protected]>
Commit: Joseph Turner <[email protected]>

    Fix: Autoload -set-{petname,nickname} and add declarations
---
 hyperdrive-menu.el | 2 ++
 hyperdrive.el      | 2 ++
 2 files changed, 4 insertions(+)

diff --git a/hyperdrive-menu.el b/hyperdrive-menu.el
index 6da5107ac7..bd9c65e933 100644
--- a/hyperdrive-menu.el
+++ b/hyperdrive-menu.el
@@ -38,6 +38,8 @@
 ;;;; Declarations
 
 (declare-function hyperdrive-dir--entry-at-point "hyperdrive-dir")
+(declare-function hyperdrive-set-nickname "hyperdrive")
+(declare-function hyperdrive-set-petname "hyperdrive")
 
 ;;;;; hyperdrive-menu: Transient for entries
 
diff --git a/hyperdrive.el b/hyperdrive.el
index de81610752..4514208634 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -177,6 +177,7 @@ hyperdrive, the new hyperdrive's petname will be set to 
SEED."
       :else (lambda (plz-error)
               (hyperdrive-error "Unable to purge drive: %s %S" 
(hyperdrive--format-hyperdrive hyperdrive) plz-error)))))
 
+;;;###autoload
 (defun hyperdrive-set-petname (petname hyperdrive)
   "Set HYPERDRIVE's PETNAME.
 Entering an empty or blank string unsets PETNAME.
@@ -207,6 +208,7 @@ Universal prefix argument \\[universal-argument] forces
   ;; TODO: Consider refreshing buffer names, directory headers, etc.
   hyperdrive)
 
+;;;###autoload
 (cl-defun hyperdrive-set-nickname (nickname hyperdrive &key (then #'ignore))
   "Set HYPERDRIVE's NICKNAME.
 Returns HYPERDRIVE.

Reply via email to