From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 21 Jul 1999 23:01:38 +0000 (+0000)
Subject: (perform-replace): Turn off case-fold-search
X-Git-Tag: emacs-pretest-21.0.90~7402
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5a78b471034e492c43f0bdc869f1fde99c13cdf0;p=emacs.git

(perform-replace): Turn off case-fold-search
if FROM-STRING argument has uppercase in it.
---

diff --git a/lisp/replace.el b/lisp/replace.el
index 5412b127624..4921fd1fd4f 100644
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -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)