diff options
| author | Eli Zaretskii | 2016-06-23 22:44:08 +0300 |
|---|---|---|
| committer | Eli Zaretskii | 2016-06-23 22:44:08 +0300 |
| commit | 037f82a7e72fa7bdc7b1d507f9b760884aecf2f0 (patch) | |
| tree | 166989826e21f0b7a4d9422a9db7c9768a080a87 | |
| parent | 92289cec7c460a2e7042bf0a450b86bbaac601d5 (diff) | |
| download | emacs-037f82a7e72fa7bdc7b1d507f9b760884aecf2f0.tar.gz emacs-037f82a7e72fa7bdc7b1d507f9b760884aecf2f0.zip | |
* lisp/international/characters.el (standard-case-table): Improve last change.
| -rw-r--r-- | lisp/international/characters.el | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/lisp/international/characters.el b/lisp/international/characters.el index ad9432c5cc6..1757d2ba12c 100644 --- a/lisp/international/characters.el +++ b/lisp/international/characters.el | |||
| @@ -623,21 +623,19 @@ with L, LRE, or LRO Unicode bidi character type.") | |||
| 623 | (set-case-syntax-pair ?Ʊ ?ʊ tbl) | 623 | (set-case-syntax-pair ?Ʊ ?ʊ tbl) |
| 624 | (set-case-syntax-pair ?Ʋ ?ʋ tbl) | 624 | (set-case-syntax-pair ?Ʋ ?ʋ tbl) |
| 625 | (set-case-syntax-pair ?Æ· ?Ê’ tbl) | 625 | (set-case-syntax-pair ?Æ· ?Ê’ tbl) |
| 626 | ;; The order of the next 6 lines is important, since we want | 626 | ;; We use set-downcase-syntax below, since we want upcase of dž |
| 627 | ;; upcase of dž return DŽ, not Dž, and the same for the rest. | 627 | ;; return DŽ, not Dž, and the same for the rest. |
| 628 | (set-case-syntax-pair ?Dž ?dž tbl) | ||
| 629 | (set-case-syntax-pair ?DŽ ?dž tbl) | 628 | (set-case-syntax-pair ?DŽ ?dž tbl) |
| 630 | (set-case-syntax-pair ?Lj ?lj tbl) | 629 | (set-downcase-syntax ?Dž ?dž tbl) |
| 631 | (set-case-syntax-pair ?LJ ?lj tbl) | 630 | (set-case-syntax-pair ?LJ ?lj tbl) |
| 632 | (set-case-syntax-pair ?Nj ?nj tbl) | 631 | (set-downcase-syntax ?Lj ?lj tbl) |
| 633 | (set-case-syntax-pair ?NJ ?nj tbl) | 632 | (set-case-syntax-pair ?NJ ?nj tbl) |
| 633 | (set-downcase-syntax ?Nj ?nj tbl) | ||
| 634 | 634 | ||
| 635 | ;; 01F0; F; 006A 030C; # LATIN SMALL LETTER J WITH CARON | 635 | ;; 01F0; F; 006A 030C; # LATIN SMALL LETTER J WITH CARON |
| 636 | 636 | ||
| 637 | ;; The order of the next two lines is important, since we want | ||
| 638 | ;; upcase of dz return DZ, not Dz. | ||
| 639 | (set-case-syntax-pair ?Dz ?dz tbl) | ||
| 640 | (set-case-syntax-pair ?DZ ?dz tbl) | 637 | (set-case-syntax-pair ?DZ ?dz tbl) |
| 638 | (set-downcase-syntax ?Dz ?dz tbl) | ||
| 641 | (set-case-syntax-pair ?Ƕ ?ƕ tbl) | 639 | (set-case-syntax-pair ?Ƕ ?ƕ tbl) |
| 642 | (set-case-syntax-pair ?Ç· ?Æ¿ tbl) | 640 | (set-case-syntax-pair ?Ç· ?Æ¿ tbl) |
| 643 | (set-case-syntax-pair ?Ⱥ ?ⱥ tbl) | 641 | (set-case-syntax-pair ?Ⱥ ?ⱥ tbl) |