Commit 5a78b471 authored by Karl Heuer's avatar Karl Heuer

(perform-replace): Turn off case-fold-search

if FROM-STRING argument has uppercase in it.
parent b412189c
......@@ -703,6 +703,9 @@ which will run faster and probably do exactly what you want."
(let ((nocasify (not (and case-fold-search case-replace
(string-equal from-string
(downcase from-string)))))
(case-fold-search (and case-fold-search
(string-equal from-string
(downcase from-string))))
(literal (not regexp-flag))
(search-function (if regexp-flag 're-search-forward 'search-forward))
(search-string from-string)
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment