[nongnu] elpa/hyperdrive a6b6d4480a 08/10: Merge branch 'wip/help-in-open'

[ELPA Syncer]

branch: elpa/hyperdrive
commit a6b6d4480a44a6ef71e4eaff66205951e2e888a8
Merge: d6c40a679d b2e8baa008
Author: Adam Porter <adam@alphapapa.net>
Commit: Adam Porter <adam@alphapapa.net>

    Merge branch 'wip/help-in-open'
---
 hyperdrive-lib.el | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index 58bc429061..4661db29fd 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -691,18 +691,21 @@ echo area when the request for the file is made."
                               (pcase (prompt)
                                 ('history (h/history entry))
                                 ('up (h/open (h/parent entry)))
-                                ('recurse (h/open (h/parent entry) :recurse 
t)))))
+                                ('recurse (h/open (h/parent entry) :recurse t))
+                                ('help (info "(hyperdrive) Unknown paths")))))
                           (prompt ()
                             (pcase-exhaustive
                                 (read-answer (format "URL not found: \"%s\". " 
(he/url entry))
                                              '(("history" ?h "open version 
history")
                                                ("up" ?u "open parent 
directory")
                                                ("recurse" ?r "go up until a 
directory is found")
-                                               ("exit" ?q "exit")))
+                                               ("help" ?i "show Info manual 
section about unknown paths")
+                                               ("quit" ?q "quit")))
                               ("history" 'history)
                               ("up" 'up)
                               ("recurse" 'recurse)
-                              ("exit" nil))))
+                              ("help" 'help)
+                              ("quit" nil))))
                 (pcase (plz-response-status (plz-error-response err))
                   ;; FIXME: If plz-error is a curl-error, this block will fail.
                   (404 ;; Path not found.