Mercurial > emacs

changeset 7831:343a21c51172

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(iso-translate-conventions): Use case-dependent search and don't alter case.
author Richard M. Stallman <rms@gnu.org>
date Tue, 07 Jun 1994 18:04:58 +0000
parents 1f9ae5be19a2
children 44cfbd972edd
files lisp/international/iso-cvt.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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 ()