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)