X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fmule%2Fmule-conf.el;h=f34b2c32567326ba27a1d20f4bf51f1894c94427;hb=905dec8b7c2ec74267d6a8ccbdf4f5fea3a2ccae;hp=2e4ae30e2650f8bd8fe5e47b00103882030ed213;hpb=6406d3e85669e209a387395e2282d45e5a414cf0;p=chise%2Fxemacs-chise.git- diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el index 2e4ae30..f34b2c3 100644 --- a/lisp/mule/mule-conf.el +++ b/lisp/mule/mule-conf.el @@ -3,7 +3,7 @@ ;; Copyright (C) 1995,1999 Electrotechnical Laboratory, JAPAN. ;; Licensed to the Free Software Foundation. ;; Copyright (C) 1997, 1999, 2000, 2002, 2003, 2004, 2005, 2006, 2008, -;; 2009, 2010, 2011, 2012, 2013 MORIOKA Tomohiko +;; 2009, 2010, 2011, 2012, 2013, 2014 MORIOKA Tomohiko ;; Keywords: mule, multilingual, character set, coding system @@ -38,9 +38,13 @@ graphic 2 direction l2r registry "AdobeJapan1-[0-6]$" - min-code ,(lsh #x6300 16) - max-code ,(+ (lsh #x6300 16) 23057) - code-offset ,(lsh #x6300 16))) + min-code #xE10000 + max-code ,(+ #xE10000 23057) + code-offset #xE10000 + ;; min-code ,(lsh #x6300 16) + ;; max-code ,(+ (lsh #x6300 16) 23057) + ;; code-offset ,(lsh #x6300 16) + )) (make-charset '=adobe-japan1-0 "Adobe-Japan1-0 Character Collection for CID-Keyed Fonts" @@ -1421,6 +1425,50 @@ mother =>>big5-cdp)) (make-charset + '=mj + "Moji-Jouhou-Kiban characters" + `(long-name "Moji-Jouhou-Kiban" + chars 256 + dimension 2 + columns 2 + graphic 2 + direction l2r + ;; registry "mj-0$" + min-code #xE30000 + max-code ,(+ #xE30000 68053) + code-offset #xE30000 + ;; min-code ,(lsh #x6404 16) + ;; max-code ,(+ (lsh #x6404 16) 68053) + ;; code-offset ,(lsh #x6404 16) + )) + (make-charset + '=mj-0 + "Moji-Jouhou-Kiban plane 0" + '(long-name "Moji-Jouhou-Kiban-0" + chars 256 + dimension 2 + columns 2 + graphic 2 + direction l2r + registry "mj-0$" + mother =mj + min-code 0 + max-code #xFFFF)) + (make-charset + '=mj-1 + "Moji-Jouhou-Kiban plane 1" + '(long-name "Moji-Jouhou-Kiban-1" + chars 256 + dimension 2 + columns 2 + graphic 2 + direction l2r + registry "mj-1$" + mother =mj + min-code #x10000 + code-offset #x10000)) + + (make-charset '=hanyo-denshi/ja "JA (JIS X0208) part of Han'you-Denshi characters" `(long-name "Han'you-Denshi/JA" @@ -1561,6 +1609,43 @@ direction l2r)) (make-charset + '==mj + "Moji-Jouhou-Kiban detailed glyph-images." + '(long-name "MJ glyph-images" + chars 256 + dimension 2 + columns 2 + graphic 2 + direction l2r + mother =mj)) + (make-charset + '==mj-0 + "MJ detailed glyph-images plane 0" + '(long-name "MJ glyph-images-0" + chars 256 + dimension 2 + columns 2 + graphic 2 + direction l2r + registry "mj-0$" + mother ==mj + min-code 0 + max-code #xFFFF)) + (make-charset + '==mj-1 + "MJ detailed glyph-images plane 1" + '(long-name "MJ glyph-images-1" + chars 256 + dimension 2 + columns 2 + graphic 2 + direction l2r + registry "mj-1$" + mother ==mj + min-code #x10000 + code-offset #x10000)) + + (make-charset '==hanyo-denshi/ja "Han'you-Denshi/JA detailed glyph-images." '(long-name "Han'you-Denshi/JA glyph-images" @@ -1649,6 +1734,17 @@ registry "HanyoDenshi\\.HG-0$" mother =hanyo-denshi/hg)) (make-charset + '==hanyo-denshi/ip + "Han'you-Denshi/IP detailed glyph-images." + '(long-name "Han'you-Denshi/IP glyph-images" + chars 256 + dimension 2 + columns 2 + graphic 2 + direction l2r + registry "HanyoDenshi\\.IP-0$" + mother =hanyo-denshi/ip)) + (make-charset '==hanyo-denshi/jt "JT (Juuki Touitsu Moji) detailed glyph-images." '(long-name "Han'you-Denshi/JT glyph-images" @@ -1684,6 +1780,17 @@ max-code ,(+ (lsh #x6403 16) #xFFFF) code-offset ,(lsh #x6403 16))) + (make-charset + '=koseki + "Representative glyph-images of KoSeki-touitsu-moji." + '(long-name "KoSeki-touitsu-moji" + chars 256 + dimension 3 + columns 2 + graphic 2 + direction l2r + mother =hanyo-denshi/ks)) + (define-charset-alias '=>>>hanyo-denshi/ja '=hanyo-denshi/ja) ;; (make-charset ;; '=>>>hanyo-denshi/ja @@ -1793,6 +1900,17 @@ ;; mother =hanyo-denshi/ks)) (make-charset + '=>>mj + "Moji-Jouhou-Kiban abstract glyphs." + '(long-name "MJ glyphs" + chars 256 + dimension 2 + columns 2 + graphic 2 + direction l2r + mother =mj)) + + (make-charset '=>>hanyo-denshi/ja "Han'you-Denshi/JA abstract glyphs" '(long-name "Han'you-Denshi/JA glyphs" @@ -2478,6 +2596,17 @@ =>iso-ir 177 mother =ucs)) + (make-charset '=>ucs@hanyo-denshi + "UCS abstract characters based on Han'you-Denshi collection." + '(long-name "UCS base characters of Han'you-Denshi" + chars 256 + dimension 3 + columns 2 + graphic 2 + direction l2r + =>iso-ir 177 + mother =ucs)) + (make-charset '=>ucs@iso "Abstract characters of ISO/IEC 10646 representatives" '(long-name "UCS characters for ISO" @@ -2976,6 +3105,16 @@ mother =ucs@unicode)) (define-charset-alias 'ucs-ks '=ucs@ks) (define-charset-alias '=>>>ucs@ks '=ucs@ks) + (make-charset '=ucs@ks/2012 + "Mapping for Korean Standards in ISO/IEC 10646:2012" + '(long-name "UCS:2012 for KS" + chars 256 + dimension 3 + columns 2 + graphic 2 + direction l2r + =>iso-ir 177 + mother =ucs@ks)) (make-charset '=ucs-bmp@ks "ISO/IEC 10646 BMP for KS" '(long-name "BMP for KS" @@ -3006,7 +3145,9 @@ graphic 2 direction l2r =>iso-ir 177 - mother =>>ucs@cns)) + mother =ucs@cns + ;; mother =>>ucs@cns + )) (define-charset-alias 'ucs-big5 '=ucs@big5) (make-charset '=ucs@big5/cns11643 "ISO/IEC 10646 for Big5 based on www.cns11643.gov.tw"