diff options
| -rw-r--r-- | lisp/international/characters.el | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/lisp/international/characters.el b/lisp/international/characters.el index 371f6987bf2..ad9432c5cc6 100644 --- a/lisp/international/characters.el +++ b/lisp/international/characters.el | |||
| @@ -623,16 +623,21 @@ 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 | (set-case-syntax-pair ?DŽ ?dž tbl) | 626 | ;; The order of the next 6 lines is important, since we want |
| 627 | ;; upcase of dž return DŽ, not Dž, and the same for the rest. | ||
| 627 | (set-case-syntax-pair ?Dž ?dž tbl) | 628 | (set-case-syntax-pair ?Dž ?dž tbl) |
| 628 | (set-case-syntax-pair ?LJ ?lj tbl) | 629 | (set-case-syntax-pair ?DŽ ?dž tbl) |
| 629 | (set-case-syntax-pair ?Lj ?lj tbl) | 630 | (set-case-syntax-pair ?Lj ?lj tbl) |
| 630 | (set-case-syntax-pair ?NJ ?nj tbl) | 631 | (set-case-syntax-pair ?LJ ?lj tbl) |
| 631 | (set-case-syntax-pair ?Nj ?nj tbl) | 632 | (set-case-syntax-pair ?Nj ?nj tbl) |
| 633 | (set-case-syntax-pair ?NJ ?nj tbl) | ||
| 632 | 634 | ||
| 633 | ;; 01F0; F; 006A 030C; # LATIN SMALL LETTER J WITH CARON | 635 | ;; 01F0; F; 006A 030C; # LATIN SMALL LETTER J WITH CARON |
| 634 | (set-case-syntax-pair ?DZ ?dz tbl) | 636 | |
| 637 | ;; The order of the next two lines is important, since we want | ||
| 638 | ;; upcase of dz return DZ, not Dz. | ||
| 635 | (set-case-syntax-pair ?Dz ?dz tbl) | 639 | (set-case-syntax-pair ?Dz ?dz tbl) |
| 640 | (set-case-syntax-pair ?DZ ?dz tbl) | ||
| 636 | (set-case-syntax-pair ?Ƕ ?ƕ tbl) | 641 | (set-case-syntax-pair ?Ƕ ?ƕ tbl) |
| 637 | (set-case-syntax-pair ?Ç· ?Æ¿ tbl) | 642 | (set-case-syntax-pair ?Ç· ?Æ¿ tbl) |
| 638 | (set-case-syntax-pair ?Ⱥ ?ⱥ tbl) | 643 | (set-case-syntax-pair ?Ⱥ ?ⱥ tbl) |