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

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

[nongnu] elpa/hyperdrive 87a093db3a 089/123: Fix: Autoload -set-{petname


From: ELPA Syncer
Subject: [nongnu] elpa/hyperdrive 87a093db3a 089/123: Fix: Autoload -set-{petname, nickname} and add declarations
Date: Fri, 6 Oct 2023 01:01:07 -0400 (EDT)

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

    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

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