diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-06-07 18:04:58 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-06-07 18:04:58 +0000 |
| commit | 6ee37df2e65931026cb3c46b9359ab79d8027dc1 (patch) | |
| tree | 9a2af23c36c949556d5ec7cd86fb712a2226968e /lisp/international/iso-cvt.el | |
| parent | c3a14a2bcf428118c788eddc0387f3879c47acb2 (diff) | |
| download | emacs-6ee37df2e65931026cb3c46b9359ab79d8027dc1.tar.gz | |
(iso-translate-conventions): Use case-dependent search and don't alter case.
Diffstat (limited to 'lisp/international/iso-cvt.el')
| -rw-r--r-- | lisp/international/iso-cvt.el | 5 |
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 () |