branch: elpa/hyperdrive
commit e72c24b775719ee8ef921ba2e0ec87476d8648cf
Author: Adam Porter <a...@alphapapa.net>
Commit: Adam Porter <a...@alphapapa.net>
Fix: (h/mark-as-safe) Prompt for read-answer
As in H/OPEN, we use "explain" instead of "help", since the latter is
hard-coded in READ-ANSWER and unusable for this purpose.
---
hyperdrive.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/hyperdrive.el b/hyperdrive.el
index 2929601787..7019c4f9b1 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")
- ("help" ?i "show Info manual section about safety")
+ ("explain" ?e "show Info manual section explaining
safety")
("quit" ?q "quit")))
("safe" t)
("unsafe" nil)
("unknown" 'unknown)
- ("help" :help)
+ ("explain" :explain)
(_ :quit))))
(list hyperdrive mark-safe-p)))
(pcase safep
- (:help (info "(hyperdrive) Mark a hyperdrive as safe"))
+ (:explain (info "(hyperdrive) Mark a hyperdrive as safe"))
(:quit nil)
(_ (setf (map-elt (h/etc hyperdrive) 'safep) safep)
(h/persist hyperdrive)
