summaryrefslogtreecommitdiff
path: root/lisp/replace.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/replace.el')
-rw-r--r--lisp/replace.el1
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)