Mercurial > emacs

comparison lisp/international/iso-cvt.el @ 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 eb4b69bf2d4e
children b6f3dd2511bc
comparison
equal deleted inserted replaced
7830:1f9ae5be19a2 7831:343a21c51172
88 (interactive) 88 (interactive)
89 (save-excursion 89 (save-excursion
90 (widen) 90 (widen)
91 (goto-char (point-min)) 91 (goto-char (point-min))
92 (let ((work-tab trans-tab) 92 (let ((work-tab trans-tab)
93 (buffer-read-only nil)) 93 (buffer-read-only nil)
94 (case-fold-search nil))
94 (while work-tab 95 (while work-tab
95 (save-excursion 96 (save-excursion
96 (let ((trans-this (car work-tab))) 97 (let ((trans-this (car work-tab)))
97 (while (re-search-forward (car trans-this) nil t) 98 (while (re-search-forward (car trans-this) nil t)
98 (replace-match (car (cdr trans-this)) nil nil))) 99 (replace-match (car (cdr trans-this)) t nil)))
99 (setq work-tab (cdr work-tab))))))) 100 (setq work-tab (cdr work-tab)))))))
100 101
101 (defun iso-spanish () 102 (defun iso-spanish ()
102 "Translate net conventions for Spanish to ISO 8859-1." 103 "Translate net conventions for Spanish to ISO 8859-1."
103 (interactive) 104 (interactive)