From bb25c8d7a1da7de1cb5d12a47e27be30879c4237 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Tue, 17 Aug 2010 19:33:13 -0700 Subject: [PATCH] * lisp/woman.el (woman-translate): Case matters. (Bug#6849) --- lisp/ChangeLog | 4 ++++ lisp/woman.el | 5 ++++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a0cdf2f8a77..8d74713da93 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2010-08-18 Glenn Morris + + * woman.el (woman-translate): Case matters. (Bug#6849) + 2010-08-14 Chong Yidong * simple.el (kill-region): Doc fix (Bug#6787). diff --git a/lisp/woman.el b/lisp/woman.el index 79d6d84aff1..eb21f01e564 100644 --- a/lisp/woman.el +++ b/lisp/woman.el @@ -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: -- 2.39.2