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

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

[nongnu] elpa/hyperdrive a98fa26ddd 04/10: Change: (hyperdrive-mark-as-s


From: ELPA Syncer
Subject: [nongnu] elpa/hyperdrive a98fa26ddd 04/10: Change: (hyperdrive-mark-as-safe) Change button name for help action
Date: Mon, 9 Sep 2024 19:00:20 -0400 (EDT)

branch: elpa/hyperdrive
commit a98fa26dddff683bf38717702804c86ace00a18a
Author: Adam Porter <adam@alphapapa.net>
Commit: Adam Porter <adam@alphapapa.net>

    Change: (hyperdrive-mark-as-safe) Change button name for help action
---
 hyperdrive.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/hyperdrive.el b/hyperdrive.el
index 913cc6474e..2830c4030a 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -193,16 +193,16 @@ Interactively, prompt for hyperdrive and action."
                          '(("safe" ?S "mark as safe")
                            ("unsafe" ?U "mark as unsafe")
                            ("unknown" ?u "ask again later")
-                           ("info" ?i "show Info manual section about safety")
+                           ("help" ?h "show Info manual section about safety")
                            ("quit" ?q "quit")))
                    ((or ?S "safe") t)
                    ((or ?U "unsafe") nil)
                    ((or ?u "unknown") 'unknown)
-                   ((or ?i "info") :info)
+                   ((or ?h "help") :help)
                    (_ :quit))))
      (list hyperdrive mark-safe-p)))
   (pcase safep
-    (:info (info "(hyperdrive) Mark a hyperdrive as safe"))
+    (:help (info "(hyperdrive) Mark a hyperdrive as safe"))
     (:quit nil)
     (_ (setf (map-elt (h/etc hyperdrive) 'safep) safep)
        (h/persist hyperdrive)



reply via email to

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