(dolist (l '(katakana-jisx0201 japanese-jisx0208 japanese-jisx0212
japanese-jisx0213-1 japanese-jisx0213-2
+ japanese-jisx0213.2004-1
cp932-2-byte))
(map-charset-chars #'modify-category-entry l ?j))
(set-case-syntax-pair ?Ʊ ?ʊ tbl)
(set-case-syntax-pair ?Ʋ ?ʋ tbl)
(set-case-syntax-pair ?Ʒ ?ʒ 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 ?Dž ?dž tbl)
+ (set-downcase-syntax ?Dž ?dž tbl)
(set-case-syntax-pair ?LJ ?lj tbl)
- (set-case-syntax-pair ?Lj ?lj tbl)
+ (set-downcase-syntax ?Lj ?lj tbl)
(set-case-syntax-pair ?NJ ?nj tbl)
- (set-case-syntax-pair ?Nj ?nj tbl)
+ (set-downcase-syntax ?Nj ?nj tbl)
;; 01F0; F; 006A 030C; # LATIN SMALL LETTER J WITH CARON
+
(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)