diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2010-08-22 16:02:16 -0400 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2010-08-22 16:02:16 -0400 |
| commit | b0126eac41487b9bca5af5cbb2212ff5b2c58b80 (patch) | |
| tree | 680ba932d259776ebfdb6d424fa8f668e1001f7c /lisp/woman.el | |
| parent | b613941ba003bbf5024415ac4f8c2a0e12434751 (diff) | |
| parent | bc7d7ea63ba9d98b3ecc3b6decf4392a651dcbfb (diff) | |
| download | emacs-b0126eac41487b9bca5af5cbb2212ff5b2c58b80.tar.gz | |
Merge changes from emacs-23 branch.
Diffstat (limited to 'lisp/woman.el')
| -rw-r--r-- | lisp/woman.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/woman.el b/lisp/woman.el index 291ebcee740..1a9d512d302 100644 --- a/lisp/woman.el +++ b/lisp/woman.el @@ -3388,7 +3388,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: |