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

1 files changed, 3 insertions, 2 deletions

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 ()