Mercurial > emacs
changeset 25039:7a53fe8294bf
(perform-replace): Turn off case-fold-search
if FROM-STRING argument has uppercase in it.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Wed, 21 Jul 1999 23:01:38 +0000 |
parents | 740d12d42387 |
children | a3b19ebb46f9 |
files | lisp/replace.el |
diffstat | 1 files changed, 3 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/replace.el Wed Jul 21 21:43:52 1999 +0000 +++ b/lisp/replace.el Wed Jul 21 23:01:38 1999 +0000 @@ -703,6 +703,9 @@ (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)