[Top][All Lists]

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

[elpa] master 7356cf0: [el-search] Shorten el-search-query-replace promp

From: Michael Heerdegen
Subject: [elpa] master 7356cf0: [el-search] Shorten el-search-query-replace prompt again
Date: Wed, 24 Apr 2019 03:03:22 -0400 (EDT)

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

    [el-search] Shorten el-search-query-replace prompt again
    Also update header and bump version to 1.12.2.
    * packages/el-search/el-search.el
    (el-search--search-and-replace-pattern): Force using no dialog box
    which won't work with the large variety of choices.  Emacs would try
    to use a dialog box when resuming a session with the menu entry
    "Resume Query-Replace".
    Use shorter names for 'read-multiple-choice' so that the prompt fits
    in one line.
    Change o (show) and e (ediff) to e (edit) and E (Ediff).
 packages/el-search/NEWS         |  6 ++++++
 packages/el-search/el-search.el | 23 ++++++++++++-----------
 2 files changed, 18 insertions(+), 11 deletions(-)

diff --git a/packages/el-search/NEWS b/packages/el-search/NEWS
index 8bb6b21..ebf52af 100644
--- a/packages/el-search/NEWS
+++ b/packages/el-search/NEWS
@@ -1,6 +1,12 @@
 Some of the user visible news were:
+Version: 1.12.2
+  Some changes to the 'el-search-query-replace' prompt to make it
+  shorter.  The keys o and e to show and ediff the replacement changed
+  to e and E ("edit", "Ediff").
 Version: 1.12.1
   Like searches, 'el-search-query-replace' sessions are now also
diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el
index 5ce4530..2c28e4e 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.1
+;; Version: 1.12.2
 ;; Package-Requires: ((emacs "25") (stream "2.2.4") (cl-print "1.0"))
@@ -333,7 +333,7 @@
 ;; There are two ways to edit replacements directly while performing
 ;; an el-search-query-replace:
-;; (1) Without suspending the search: hit o at the prompt to show the
+;; (1) Without suspending the search: hit e at the prompt to show the
 ;; replacement of the current match in a separate buffer.  You can
 ;; edit the replacement in this buffer.  Confirming with C-c C-c will
 ;; make el-search replace the current match with this buffer's
@@ -4609,6 +4609,7 @@ exactly you did?  Thanks!"))))
                                      (kill-buffer buffer))
                                    (el-search--after-scroll (selected-window) 
+                              (use-dialog-box nil)
                                (lambda ()
                                  (if stopped-for-comments
@@ -4633,24 +4634,24 @@ exactly you did?  Thanks!"))))
                                                  '(?n "n" "Move to the next 
                                             '(?r "r" "\
 Replace match but don't move or restore match if already replaced")
-                                            '(?! "all" "Replace all remaining 
matches in this buffer")
+                                            '(?! "!" "Replace all remaining 
matches in this buffer")
                                             '(?b "skip buf"
                                                  "Skip this buffer and any 
remaining matches in it")
                                             (and buffer-file-name
-                                                 '(?d "skip dir"
+                                                 '(?d "dir"
                                                       "Skip a parent directory 
of current file"))
                                             (and (not replaced-this)
-                                                 (list ?s (concat (if splice 
"disable" "enable")
-                                                                  " splice")
+                                                 (list ?s (concat (if splice 
"no " "")
+                                                                  "splice")
(substitute-command-keys "\
 Toggle splicing mode (\\[describe-function] el-search-query-replace for 
-                                            '(?o "show" "\
+                                            '(?e "edit" "\
 Show current replacement in a separate buffer - you can modify it there")
-                                            '(?e "ediff" "\
+                                            '(?E "Ediff" "\
 Ediff match with replacement")
                                             '(?q  "quit")
                                             '(?\r "quit")
-                                            '(?S "Search" "\
+                                            '(?S "S" "\
 Switch to driving search.  Useful to reposition search head.")))))))))
                          (when (and
@@ -4757,9 +4758,9 @@ Replace all matches in all buffers"))))
-                                               (?o (funcall edit-and-update)
+                                               (?e (funcall edit-and-update)
-                                               (?e (funcall edit-and-update 
+                                               (?E (funcall edit-and-update 
                                                ((or ?q ?\C-g ?\r) (signal 
'quit t))

reply via email to

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