From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 7 Jun 1994 18:04:58 +0000 (+0000)
Subject: (iso-translate-conventions): Use case-dependent search and don't alter case.
X-Git-Tag: emacs-19.34~8022
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6ee37df2e65931026cb3c46b9359ab79d8027dc1;p=emacs.git

(iso-translate-conventions): Use case-dependent search and don't alter case.
---

diff --git a/lisp/international/iso-cvt.el b/lisp/international/iso-cvt.el
index 4e8b69f3db1..68a72ea88af 100644
--- a/lisp/international/iso-cvt.el
+++ b/lisp/international/iso-cvt.el
@@ -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 ()