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

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

[nongnu] elpa/hyperdrive c47693ff5a 07/31: Tidy: (hyperdrive-mirror-defi


From: ELPA Syncer
Subject: [nongnu] elpa/hyperdrive c47693ff5a 07/31: Tidy: (hyperdrive-mirror-define-key) Don't accept arguments
Date: Fri, 3 Nov 2023 22:00:46 -0400 (EDT)

branch: elpa/hyperdrive
commit c47693ff5aa7282e2cd79302da5bc913bfbbe2d5
Author: Joseph Turner <joseph@ushin.org>
Commit: Adam Porter <adam@alphapapa.net>

    Tidy: (hyperdrive-mirror-define-key) Don't accept arguments
---
 hyperdrive-mirror.el | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/hyperdrive-mirror.el b/hyperdrive-mirror.el
index 22668a48ae..396cd6d97c 100644
--- a/hyperdrive-mirror.el
+++ b/hyperdrive-mirror.el
@@ -55,12 +55,9 @@
   (taxy-define-key-definer hyperdrive-mirror-define-key
     hyperdrive-mirror-keys "hyperdrive-mirror-key" "Grouping keys."))
 
-(hyperdrive-mirror-define-key status (&key name status)
+(hyperdrive-mirror-define-key status ()
   (pcase-let ((`(,_file ,item-status ,_url) item))
-    (if status
-        (when (equal status item-status)
-          (or name status))
-      item-status)))
+    item-status))
 
 (defvar hyperdrive-mirror-default-keys
   '(status)



reply via email to

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