# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1282098793 25200
# Node ID f985155316b2df917db39efa235140ccb45170dd
# Parent  7daea44c7bccb53347a3b3651008daf55caa4eb3
* lisp/woman.el (woman-translate): Case matters.  (Bug#6849)

diff -r 7daea44c7bcc -r f985155316b2 lisp/ChangeLog
--- a/lisp/ChangeLog	Tue Aug 17 23:07:50 2010 +0200
+++ b/lisp/ChangeLog	Tue Aug 17 19:33:13 2010 -0700
@@ -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 -r 7daea44c7bcc -r f985155316b2 lisp/woman.el
--- a/lisp/woman.el	Tue Aug 17 23:07:50 2010 +0200
+++ b/lisp/woman.el	Tue Aug 17 19:33:13 2010 -0700
@@ -3384,7 +3384,10 @@
   "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: