* lisp/woman.el (woman-translate): Case matters. (Bug#6849)

This commit is contained in:
Glenn Morris 2010-08-17 19:33:13 -07:00
parent b72e07172e
commit bb25c8d7a1
2 changed files with 8 additions and 1 deletions

View file

@ -1,3 +1,7 @@
2010-08-18 Glenn Morris <rgm@gnu.org>
* woman.el (woman-translate): Case matters. (Bug#6849)
2010-08-14 Chong Yidong <cyd@stupidchicken.com>
* simple.el (kill-region): Doc fix (Bug#6787).

View file

@ -3384,7 +3384,10 @@ Format paragraphs upto TO. Supports special chars.
"Translate up to marker TO. Do this last of all transformations."
(if translations
(let ((matches (car translations))
(alist (cdr translations)))
(alist (cdr translations))
;; Translations are case-sensitive, eg ".tr ab" does not
;; affect "A" (bug#6849).
(case-fold-search nil))
(while (re-search-forward matches to t)
;; Done like this to retain text properties and
;; support translation of special characters: