Mercurial > emacs
diff lisp/replace.el @ 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 | 3ca22a873859 |
| children | 8a881b02ea7b |
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)