2 files changed, 8 insertions, 1 deletions

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  <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).
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: