Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

* lisp/international/characters.el (standard-case-table): Improve last change.

Browse source
This commit is contained in:
Eli Zaretskii 2016-06-23 22:44:08 +03:00
parent 92289cec7c
commit 037f82a7e7
1 changed files with 6 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lisp/international/characters.el
View file

@ -623,21 +623,19 @@ with L, LRE, or LRO Unicode bidi character type.")
(set-case-syntax-pair ?Ʊ ?ʊ tbl)
(set-case-syntax-pair ?Ʋ ?ʋ tbl)
(set-case-syntax-pair ?Ʒ ?ʒ tbl)
;; The order of the next 6 lines is important, since we want
;; upcase of dž return DŽ, not Dž, and the same for the rest.
(set-case-syntax-pair ?Dž ?dž tbl)
;; We use set-downcase-syntax below, since we want upcase of dž
;; return DŽ, not Dž, and the same for the rest.
(set-case-syntax-pair ?DŽ ?dž tbl)
(set-case-syntax-pair ?Lj ?lj tbl)
(set-downcase-syntax ?Dž ?dž tbl)
(set-case-syntax-pair ?LJ ?lj tbl)
(set-case-syntax-pair ?Nj ?nj tbl)
(set-downcase-syntax ?Lj ?lj tbl)
(set-case-syntax-pair ?NJ ?nj tbl)
(set-downcase-syntax ?Nj ?nj tbl)
;; 01F0; F; 006A 030C; # LATIN SMALL LETTER J WITH CARON
;; The order of the next two lines is important, since we want
;; upcase of dz return DZ, not Dz.
(set-case-syntax-pair ?Dz ?dz tbl)
(set-case-syntax-pair ?DZ ?dz tbl)
(set-downcase-syntax ?Dz ?dz tbl)
(set-case-syntax-pair ?Ƕ ?ƕ tbl)
(set-case-syntax-pair ?Ƿ ?ƿ tbl)
(set-case-syntax-pair ?Ⱥ ?ⱥ tbl)