Mercurial > emacs
changeset 109931:f985155316b2
* lisp/woman.el (woman-translate): Case matters. (Bug#6849)
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Tue, 17 Aug 2010 19:33:13 -0700 |
| parents | 7daea44c7bcc |
| children | fa7a6dee64ce 9c1bdb509bda |
| files | lisp/ChangeLog lisp/woman.el |
| diffstat | 2 files changed, 8 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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).
--- 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: