From: Tino Calancha <f92capac@gmail.com>
To: 21684@debbugs.gnu.org
Subject: bug#21684: 25.0.50; undo in query-replace w/o exit
Date: Sat, 17 Oct 2015 22:04:44 +0900 (JST) [thread overview]
Message-ID: <alpine.LRH.2.20.1510172201170.637@calancha-ilc.kek.jp> (raw)
In-Reply-To: <87k2qpmna2.fsf@mail.linkov.net>
[-- Attachment #1: Type: text/plain, Size: 577 bytes --]
> I wonder why it's harder to implement for regexps?
Basically for my lack of expertise in this code: i was trying
to extend my patch to support regexp without success.
> you could add all previous replacements strings
> to the same stack at the end of data elements
> like we did when necessary by adding new data at
> the end of the similar isearch stack elements in isearch-cmds.
Thank you, it sounds a good idea!!
See new patch (replace-2.patch): AFAICS is working as i wanted.
Please try it and feel free to give me any comments if you
find some issues to fix/improve.
[-- Attachment #2: Type: text/plain, Size: 6384 bytes --]
diff --git a/lisp/replace.el b/lisp/replace.el
index 3a908ac..7ada519 100644
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -1802,6 +1802,7 @@ query-replace-help
C-l to clear the screen, redisplay, and offer same replacement again,
! to replace all remaining matches in this buffer with no more questions,
^ to move point back to previous match,
+U to undo previous replacement,
E to edit the replacement string.
In multi-buffer replacements type `Y' to replace all remaining
matches in all remaining buffers with no more questions,
@@ -1831,6 +1832,8 @@ query-replace-map
(define-key map "\C-l" 'recenter)
(define-key map "!" 'automatic)
(define-key map "^" 'backup)
+ (define-key map "u" 'undo)
+ (define-key map "U" 'undo)
(define-key map "\C-h" 'help)
(define-key map [f1] 'help)
(define-key map [help] 'help)
@@ -1856,7 +1859,7 @@ query-replace-map
`act-and-exit', `exit', `exit-prefix', `recenter', `scroll-up',
`scroll-down', `scroll-other-window', `scroll-other-window-down',
`edit', `edit-replacement', `delete-and-edit', `automatic',
-`backup', `quit', and `help'.
+`backup', `undo', `quit', and `help'.
This keymap is used by `y-or-n-p' as well as `query-replace'.")
@@ -2105,6 +2108,9 @@ perform-replace
(noedit nil)
(keep-going t)
(stack nil)
+ (search-string-solved-regexp nil) ; last string matching `from-string'
+ (next-replacement-solved-regexp nil) ; replacement string (substituted regexp)
+ (last-was-undo)
(replace-count 0)
(skip-read-only-count 0)
(skip-filtered-count 0)
@@ -2279,6 +2285,22 @@ perform-replace
(match-beginning 0) (match-end 0)
start end search-string
regexp-flag delimited-flag case-fold-search backward)
+ ;; Obtain the matched groups: needed only when regexp-flag non nil
+ (when (and last-was-undo regexp-flag)
+ (setq last-was-undo nil
+ real-match-data
+ (save-excursion
+ (goto-char (match-beginning 0))
+ (looking-at search-string)
+ (match-data t real-match-data))))
+ ;; Matched string and next-replacement (subtituted matched groups) stored in stack.
+ (setq search-string-solved-regexp (buffer-substring-no-properties (match-beginning 0)
+ (match-end 0))
+ next-replacement-solved-regexp
+ (query-replace-descr
+ (save-match-data
+ (set-match-data real-match-data)
+ (match-substitute-replacement next-replacement nocasify literal))))
;; Bind message-log-max so we don't fill up the message log
;; with a bunch of identical messages.
(let ((message-log-max nil)
@@ -2332,6 +2354,45 @@ perform-replace
(message "No previous match")
(ding 'no-terminate)
(sit-for 1)))
+ ((eq def 'undo)
+ (if (null stack)
+ (progn
+ (message "No previous match")
+ (ding 'no-terminate)
+ (sit-for 1))
+ (let* (search-string next-replacement (elt (pop stack)))
+ (goto-char (nth 0 elt))
+ (setq replaced (nth 1 elt)
+ ;; Bind locally swapped values (search-string <---> replacement).
+ search-string (nth (if replaced 1 0) (nth 3 elt))
+ next-replacement (nth (if replaced 0 1) (nth 3 elt))
+ search-string-solved-regexp search-string
+ next-replacement-solved-regexp next-replacement)
+
+ (cond ((null replaced) ; nothing to undo
+ (setq real-match-data
+ (replace-match-data
+ t real-match-data
+ (nth 2 elt))))
+ (t ; undo replacement
+ (set-match-data (nth 2 elt))
+ (setq real-match-data
+ (save-excursion
+ (goto-char (match-beginning 0))
+ (looking-at search-string)
+ (match-data t (nth 2 elt)))
+ noedit
+ (replace-match-maybe-edit
+ next-replacement nocasify literal
+ noedit real-match-data backward)
+ replace-count (1- replace-count)
+ real-match-data
+ (save-excursion
+ (goto-char (match-beginning 0))
+ (looking-at next-replacement)
+ (match-data t (nth 2 elt))))))
+ (setq replaced nil
+ last-was-undo t))))
((eq def 'act)
(or replaced
(setq noedit
@@ -2454,8 +2515,12 @@ perform-replace
(match-beginning 0)
(match-end 0)
(current-buffer))
- (match-data t)))
- stack))))))
+ (match-data t))
+ (list search-string-solved-regexp
+ next-replacement-solved-regexp))
+ stack)
+ (setq next-replacement-solved-regexp nil
+ search-string-solved-regexp nil))))))
(replace-dehighlight))
(or unread-command-events
next prev parent reply other threads:[~2015-10-17 13:04 UTC|newest]
Thread overview: 23+ messages / expand[flat|nested] mbox.gz Atom feed top
2015-10-14 13:26 bug#21684: 25.0.50; undo in query-replace w/o exit Tino Calancha
2015-10-14 16:23 ` Juri Linkov
2015-10-17 13:04 ` Tino Calancha [this message]
2015-10-17 21:49 ` Juri Linkov
2015-10-18 9:45 ` Tino Calancha
2015-10-18 15:58 ` Richard Stallman
2015-10-19 1:20 ` Tino Calancha
2015-10-19 22:04 ` Juri Linkov
2015-10-20 12:02 ` Tino Calancha
2016-02-23 8:40 ` Lars Ingebrigtsen
2016-02-23 16:46 ` Tino Calancha
2016-02-23 17:54 ` Eli Zaretskii
2016-02-24 1:36 ` Lars Ingebrigtsen
2016-02-24 13:13 ` Tino Calancha
2016-05-31 22:32 ` Glenn Morris
2016-06-01 2:44 ` Tino Calancha
2016-06-01 17:45 ` Glenn Morris
2016-06-01 17:53 ` Lars Ingebrigtsen
2016-06-01 17:56 ` Glenn Morris
2016-06-02 16:44 ` Glenn Morris
2016-06-04 22:06 ` bug#21663: 25.0.50; isearch-edit-string dont resume multi isearches Juri Linkov
2015-10-26 4:09 ` bug#21684: 25.0.50; undo in query-replace w/o exit Richard Stallman
[not found] ` <handler.21684.B.144482901430164.ack@debbugs.gnu.org>
2015-10-20 13:01 ` bug#21684: Acknowledgement (25.0.50; undo in query-replace w/o exit) Tino Calancha
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=alpine.LRH.2.20.1510172201170.637@calancha-ilc.kek.jp \
--to=f92capac@gmail.com \
--cc=21684@debbugs.gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.