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

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

[nongnu] elpa/hyperdrive a6e7bf21ab 1/2: Fix: (h/open) Change answer in


From: ELPA Syncer
Subject: [nongnu] elpa/hyperdrive a6e7bf21ab 1/2: Fix: (h/open) Change answer in help prompt
Date: Mon, 9 Sep 2024 22:00:14 -0400 (EDT)

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

    Fix: (h/open) Change answer in help prompt
    
    Since "help" seems hard-coded in READ-ANSWER, and "info" seems a bit
    vague, "explain" seems like a good way for the user to say, "Explain
    this problem to me," which then opens the Info manual section.
---
 hyperdrive-lib.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index 4661db29fd..bddbd1d2bd 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -692,19 +692,19 @@ echo area when the request for the file is made."
                                 ('history (h/history entry))
                                 ('up (h/open (h/parent entry)))
                                 ('recurse (h/open (h/parent entry) :recurse t))
-                                ('help (info "(hyperdrive) Unknown paths")))))
+                                ('explain (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")
-                                               ("help" ?i "show Info manual 
section about unknown paths")
+                                               ("explain" ?e "show Info manual 
section about unknown paths")
                                                ("quit" ?q "quit")))
                               ("history" 'history)
                               ("up" 'up)
                               ("recurse" 'recurse)
-                              ("help" 'help)
+                              ("explain" 'explain)
                               ("quit" nil))))
                 (pcase (plz-response-status (plz-error-response err))
                   ;; FIXME: If plz-error is a curl-error, this block will fail.



reply via email to

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