From 6ee37df2e65931026cb3c46b9359ab79d8027dc1 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 7 Jun 1994 18:04:58 +0000 Subject: [PATCH] (iso-translate-conventions): Use case-dependent search and don't alter case. --- lisp/international/iso-cvt.el | 5 +++-- 1 file 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 () -- 2.39.5