diff options
| author | Tino Calancha <tino.calancha@gmail.com> | 2018-06-03 23:28:14 +0900 |
|---|---|---|
| committer | Tino Calancha <tino.calancha@gmail.com> | 2018-06-03 23:28:14 +0900 |
| commit | 50c0624b2aecb9668505eb2cea3f30aecbf6d1ec (patch) | |
| tree | 2fd3af2490d590854f206b7b33f55f7d7f76ca00 /lisp/replace.el | |
| parent | defd53a56c709b8b8c736f0ab3b594490216d300 (diff) | |
| download | emacs-50c0624b2aecb9668505eb2cea3f30aecbf6d1ec.tar.gz | |
Backport: Preserve case in query-replace undo
If the user query and replaces 'foo' with 'BAR', then
undo must comeback to 'foo', not to 'FOO' (Bug#31073).
* lisp/replace.el (perform-replace): Bind nocasify to non-nil
value during undo/undo-all actions.
* test/lisp/replace-tests.el (query-replace-undo-bug31073): Add test.
(cherry picked from commit 32dc0cb1b5ae895d237c7118ccaeb084715934fd)
Diffstat (limited to 'lisp/replace.el')
| -rw-r--r-- | lisp/replace.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/replace.el b/lisp/replace.el index 6cee2253746..d1eabb035d3 100644 --- a/lisp/replace.el +++ b/lisp/replace.el @@ -2576,6 +2576,7 @@ It must return a string." (let ((stack-idx 0) (stack-len (length stack)) (num-replacements 0) + (nocasify t) ; Undo must preserve case (Bug#31073). search-string next-replacement) (while (and (< stack-idx stack-len) |