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.