[nongnu] elpa/hyperdrive e72c24b775 2/2: Fix: (h/mark-as-safe) Prompt for read-answer

[ELPA Syncer]

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