[elpa] externals/el-search fc46701 076/332: Replacing: make C-g an alternative key for quitting

[Stefan Monnier]

branch: externals/el-search
commit fc46701d7b1a11ea940ee7ee21ea45bff5f6a513
Author: Michael Heerdegen <michael_heerdegen@web.de>
Commit: Michael Heerdegen <michael_heerdegen@web.de>

    Replacing: make C-g an alternative key for quitting
---
 el-search.el | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/el-search.el b/el-search.el
index c7b3499..26857ef 100644
--- a/el-search.el
+++ b/el-search.el
@@ -977,7 +977,7 @@ Hit any key to proceed."
                 (funcall do-replace)
               (while (not (pcase (if replaced-this
                                      (read-char-choice "[SPC ! q]  (? for 
help)"
-                                                       '(?\ ?! ?q ?n ??))
+                                                       '(?\ ?! ?q ?\C-g ?n ??))
                                    (read-char-choice
                                     (concat "Replace this occurrence"
                                             (if (or (string-match-p "\n" 
to-insert)
@@ -986,7 +986,7 @@ Hit any key to proceed."
                                             "? "
                                             (if splice "{splice} " "")
                                             "[y SPC r ! s q]  (? for help)" )
-                                    '(?y ?n ?r ?\ ?! ?q ?s ??)))
+                                    '(?y ?n ?r ?\ ?! ?q ?\C-g ?s ??)))
                             (?r (funcall do-replace)
                                 nil)
                             (?y (funcall do-replace)
@@ -1001,7 +1001,8 @@ Hit any key to proceed."
                             (?s (cl-callf not splice)
                                 (setq to-insert (funcall 
get-replacement-string))
                                 nil)
-                            (?q (setq done t)
+                            ((or ?q ?\C-g)
+                             (setq done t)
                                 t)
                             (?? (ignore (read-char 
el-search-search-and-replace-help-string))
                                 nil)))))