diff options
| author | Glenn Morris <rgm@gnu.org> | 2010-08-17 19:33:13 -0700 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2010-08-17 19:33:13 -0700 |
| commit | bb25c8d7a1da7de1cb5d12a47e27be30879c4237 (patch) | |
| tree | 42718940f0ccbf77262be9f2e359b0fdfa71a232 /lisp/woman.el | |
| parent | b72e07172e5ce15093094d521b133a6283d5d94c (diff) | |
| download | emacs-bb25c8d7a1da7de1cb5d12a47e27be30879c4237.tar.gz | |
* lisp/woman.el (woman-translate): Case matters. (Bug#6849)
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 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: |