branch: elpa/hyperdrive
commit a98fa26dddff683bf38717702804c86ace00a18a
Author: Adam Porter <a...@alphapapa.net>
Commit: Adam Porter <a...@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)
