[Emacs-diffs] /srv/bzr/emacs/emacs-23 r99984: * lisp/woman.el (woman-translate): Case matters. (Bug#6849)

[Glenn Morris]

------------------------------------------------------------
revno: 99984
committer: Glenn Morris <address@hidden>
branch nick: emacs-23
timestamp: Tue 2010-08-17 19:33:13 -0700
message:
  * lisp/woman.el (woman-translate): Case matters.  (Bug#6849)
modified:
  lisp/ChangeLog
  lisp/woman.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-08-14 23:21:40 +0000
+++ b/lisp/ChangeLog    2010-08-18 02:33:13 +0000
@@ -1,3 +1,7 @@
+2010-08-18  Glenn Morris  <address@hidden>
+
+       * woman.el (woman-translate): Case matters.  (Bug#6849)
+
 2010-08-14  Chong Yidong  <address@hidden>
 
        * simple.el (kill-region): Doc fix (Bug#6787).

=== modified file 'lisp/woman.el'
--- a/lisp/woman.el     2010-03-16 17:24:44 +0000
+++ b/lisp/woman.el     2010-08-18 02:33:13 +0000
@@ -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: