# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1004023606 0
# Node ID 70819225d683c4dbaa4fe4c5331ce279e4f8869f
# Parent  47dd2c916c80418f32d8da67e6d77777f9b18053
(tags-query-replace): Make tags-loop-scan
bind case-fold-search if FROM is not all lower case.

diff -r 47dd2c916c80 -r 70819225d683 lisp/progmodes/etags.el
--- a/lisp/progmodes/etags.el	Thu Oct 25 15:01:23 2001 +0000
+++ b/lisp/progmodes/etags.el	Thu Oct 25 15:26:46 2001 +0000
@@ -1737,12 +1737,15 @@
 See documentation of variable `tags-file-name'."
   (interactive (query-replace-read-args "Tags query replace (regexp)" t))
   (setq tags-loop-scan (list 'prog1
-			     (list 'if (list 're-search-forward
-					     (list 'quote from) nil t)
-				   ;; When we find a match, move back
-				   ;; to the beginning of it so perform-replace
-				   ;; will see it.
-				   '(goto-char (match-beginning 0))))
+			     (list 'let
+				   (if (not (equal from (downcase from)))
+				       '((case-fold-search nil)))
+				   (list 'if (list 're-search-forward
+						   (list 'quote from) nil t)
+					 ;; When we find a match, move back
+					 ;; to the beginning of it so
+					 ;; perform-replace will see it.
+					 '(goto-char (match-beginning 0)))))
 	tags-loop-operate (list 'perform-replace
 				(list 'quote from) (list 'quote to)
 				t t (list 'quote delimited)))