# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 771012298 0
# Node ID 343a21c51172fc535e1781135ed424db13de791a
# Parent  1f9ae5be19a27f51ed5067fc5a0cc8e93ee2ea12
(iso-translate-conventions): Use case-dependent search and don't alter case.

diff -r 1f9ae5be19a2 -r 343a21c51172 lisp/international/iso-cvt.el
--- a/lisp/international/iso-cvt.el	Tue Jun 07 18:02:08 1994 +0000
+++ b/lisp/international/iso-cvt.el	Tue Jun 07 18:04:58 1994 +0000
@@ -90,12 +90,13 @@
     (widen)
     (goto-char (point-min))
     (let ((work-tab trans-tab)
-	  (buffer-read-only nil))
+	  (buffer-read-only nil)
+	  (case-fold-search nil))
       (while work-tab
 	(save-excursion
 	  (let ((trans-this (car work-tab)))
 	    (while (re-search-forward (car trans-this) nil t)
-	      (replace-match (car (cdr trans-this)) nil nil)))
+	      (replace-match (car (cdr trans-this)) t nil)))
 	  (setq work-tab (cdr work-tab)))))))
 
 (defun iso-spanish ()