[Top][All Lists]

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

[elpa] master a28a7ec: [el-search] Query-replace: Change skip keys

From: Michael Heerdegen
Subject: [elpa] master a28a7ec: [el-search] Query-replace: Change skip keys
Date: Wed, 24 Apr 2019 04:08:07 -0400 (EDT)

branch: master
commit a28a7ecb94077d3e27ea31a0ba3f92f6f4afa080
Author: Michael Heerdegen <address@hidden>
Commit: Michael Heerdegen <address@hidden>

    [el-search] Query-replace: Change skip keys
    Move the keys in the 'el-search-query-replace' prompt to skip matches
    inside replacements away from y and n so that they can't be used by
    Also bump version to 1.12.3.
    * packages/el-search/el-search.el
    (el-search--search-and-replace-pattern): Change keys to skip matches
    in replacements from y/n/Y/N to s/d/S/D.
 packages/el-search/el-search.el | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el
index 2c28e4e..e7357d3 100644
--- a/packages/el-search/el-search.el
+++ b/packages/el-search/el-search.el
@@ -7,7 +7,7 @@
 ;; Created: 29 Jul 2015
 ;; Keywords: lisp
 ;; Compatibility: GNU Emacs 25
-;; Version: 1.12.2
+;; Version: 1.12.3
 ;; Package-Requires: ((emacs "25") (stream "2.2.4") (cl-print "1.0"))
@@ -4796,22 +4796,22 @@ Replace all matches in all buffers"))))
                                              "Skip the matches in the 
replacement? "
-                                            '((?y "yes"
+                                            '((?s "skip"
                                                   "Skip any matches in this 
-                                              (?n "no"
+                                              (?d "don't"
                                                   "Continue with the matches 
in the replacement")
-                                              (?Y "always Yes"
+                                              (?S "always Skip"
                                                   "Skip now and for the rest 
of this session")
-                                              (?N "always No"
+                                              (?D "always Don't"
                                                   "Don't skip now and for the 
rest of this session")
                                               (?q "quit"
                                                   "Abort this query-replace 
-                                 ((and (or ?y ?Y) answer)
-                                  (when (= answer ?Y) (setq 
skip-matches-in-replacement t))
+                                 ((and (or ?s ?S) answer)
+                                  (when (= answer ?S) (setq 
skip-matches-in-replacement t))
                                   (funcall skip-replacement))
                                  (?q (signal 'quit t))
-                                  (when (= answer ?N) (setq 
skip-matches-in-replacement nil))
+                                  (when (= answer ?D) (setq 
skip-matches-in-replacement nil))
                                   (when replace-all
                                     (setq replace-all nil)
                                     ;; FIXME: can this be annoying?  Problem: 
we need to catch possibly

reply via email to

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