;; max-code #xA4CF
))
(make-charset
+ '=ucs-bmp-cjk-compat
+ "CJK Compatibility Ideographs in BMP of UCS"
+ '(long-name "CJK Compatibility Ideographs"
+ chars 256
+ dimension 2
+ columns 2
+ graphic 2
+ direction l2r
+ registry "-ja-.*-ucs-0"
+ mother ucs-bmp
+ min-code #xF900
+ max-code #xFAFF
+ ))
+ (make-charset
'=ucs-sip-ext-b
"CJK Ideographs Extension B"
'(long-name "UCS CJK Ext-B"