X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fmule%2Fmule-conf.el;h=882aca299b197380aa1c5b562f77a3e96c48615c;hb=0b2a9721d7c1ba39885e4e8975ec8eef977749a5;hp=3daff0a0f1854c15e9278aabafa52738b9b40687;hpb=a0c414d63b8ed88685b8d73058299384bff6176c;p=chise%2Fxemacs-chise.git.1 diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el index 3daff0a..882aca2 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 MORIOKA Tomohiko +;; 2009, 2010, 2011 MORIOKA Tomohiko ;; Keywords: mule, multilingual, character set, coding system @@ -320,12 +320,45 @@ (define-charset-alias 'japanese-jisx0208-1990 '=jis-x0208@1990) (make-charset + '=>>>jis-x0208 + "JIS X 0208 abstract glyph-images (unchanged part)." + '(registry "jisx0208\\.1990" + dimension 2 + chars 94 + mother =jis-x0208 + =>iso-ir 168 + ;; final ?B + graphic 0)) + (make-charset + '=>>>jis-x0208@1990 + "JIS X 0208:1990 abstract glyph-images." + '(registry "jisx0208\\.1990" + dimension 2 + chars 94 + mother =>>>jis-x0208 + =>iso-ir 168 + ;; final ?B + graphic 0)) + (make-charset + '=>>>jis-x0213-1 + "JIS X 0213 Plain 1 abstract glyph-images (unchanged part)" + '(registry "jisx0213\\(\\.[0-9]+\\)?-1" + dimension 2 + chars 94 + mother =jis-x0213-1 + =>iso-ir 228 + ;; final ?O + graphic 0 + ;; partial t + )) + + (make-charset '=>>jis-x0208 "JIS X 0208 abstract glyphs (unchanged part)." '(registry "jisx0208\\.1990" dimension 2 chars 94 - mother =jis-x0208 + mother =>>>jis-x0208 =>iso-ir 168 ;; final ?B graphic 0)) @@ -346,7 +379,7 @@ '(registry "jisx0213\\(\\.[0-9]+\\)?-1" dimension 2 chars 94 - mother =jis-x0213-1 + mother =>>>jis-x0213-1 =>iso-ir 228 ;; final ?O graphic 0 @@ -388,12 +421,22 @@ )) (make-charset + '=>jis-x0208@usual + "JIS X 0208 based on usual unification." + '(registry "jisx0208\\.1990" + dimension 2 + chars 94 + mother =>>jis-x0208 + =>iso-ir 168 + ;; final ?B + graphic 0)) + (make-charset '=>jis-x0208 "JIS X 0208 based on the unchanged unification rules." '(registry "jisx0208\\.1990" dimension 2 chars 94 - mother =>>jis-x0208 + mother =>jis-x0208@usual =>iso-ir 168 ;; final ?B graphic 0)) @@ -451,12 +494,22 @@ )) (define-charset-alias '<=>jis-x0213-1@2004 '=>jis-x0213-1@2004) (make-charset + '=>jis-x0213-2@usual + "JIS X 0213 Plain 2 based on usual unification." + '(registry "jisx0213\\(\\.\\(2000\\|2004\\)\\)?-2" + dimension 2 + chars 94 + mother =>>jis-x0213-2 + =>iso-ir 229 + ;; final ?P + graphic 0)) + (make-charset '=>jis-x0213-2 "JIS X 0213 Plain 2 abstract characters" '(registry "jisx0213\\(\\.\\(2000\\|2004\\)\\)?-2" dimension 2 chars 94 - mother =>>jis-x0213-2 + mother =>jis-x0213-2@usual =>iso-ir 229 ;; final ?P graphic 0)) @@ -475,6 +528,28 @@ max-code #x8DFE)) (define-charset-alias 'chinese-big5-cdp '=big5-cdp) + (make-charset '=>>big5-cdp + "Abstract glyphs of Big5-CDP" + '(long-name "Big5-CDP glyphs" + chars 256 + dimension 2 + columns 2 + graphic 2 + direction l2r + registry "big5\\.cdp-0" + mother =big5-cdp)) + + (make-charset '=>big5-cdp + "Big5-CDP abstract characters" + '(long-name "Big5-CDP abstract characters" + chars 256 + dimension 2 + columns 2 + graphic 2 + direction l2r + registry "big5\\.cdp-0" + mother =>>big5-cdp)) + (make-charset '=gt "GT 2000" `(long-name "GT" @@ -490,7 +565,7 @@ (define-charset-alias 'ideograph-gt '=gt) (make-charset '=>>gt "GT 2000 abstract glyphs" - `(long-name "abstract GT glyphs" + '(long-name "GT abstract glyphs" chars 256 dimension 3 columns 2 @@ -501,7 +576,7 @@ (define-charset-alias '<==>gt '=>>gt) (make-charset '=>gt "GT 2000 abstract characters" - `(long-name "abstract GT characters" + '(long-name "abstract GT characters" chars 256 dimension 3 columns 2 @@ -521,6 +596,15 @@ max-code ,(+ (lsh #x6110 16) 17090) code-offset ,(lsh #x6110 16))) (define-charset-alias 'ideograph-gt-k '=gt-k) + (make-charset '=>>gt-k + "abstract glyphs of GT-K" + '(long-name "GT-K abstract glyphs" + chars 256 + dimension 2 + columns 2 + graphic 2 + direction l2r + mother =gt-k)) (let ((i 1)) (while (<= i 11) (make-charset @@ -561,7 +645,7 @@ (define-charset-alias 'ideograph-gt-pj-k2 '=gt-pj-k2) (make-charset '=daikanwa - "Daikanwa dictionary (revised version 2)" + "Daikanwa dictionary (unchanged part)" `(long-name "Daikanwa" chars 256 dimension 2 @@ -606,6 +690,53 @@ )) (define-charset-alias '=daikanwa-rev2 '=daikanwa@rev2) + (make-charset '=daikanwa/+p + "Daikanwa dictionary (ddddd')" + `(long-name "Daikanwa ddddd'" + chars 256 + dimension 2 + columns 2 + graphic 2 + direction l2r)) + (make-charset '=daikanwa/+2p + "Daikanwa dictionary (ddddd'')" + `(long-name "Daikanwa ddddd''" + chars 256 + dimension 2 + columns 2 + graphic 2 + direction l2r)) + (make-charset '=daikanwa/ho + "Daikanwa dictionary (Hokan)" + `(long-name "Daikanwa-ho" + chars 256 + dimension 2 + columns 2 + graphic 2 + direction l2r)) + + (make-charset '=>>daikanwa + "Daikanwa abstract glyphs" + '(long-name "Daikanwa glyphs" + chars 256 + dimension 2 + columns 2 + graphic 2 + direction l2r + registry "Daikanwa\\(\\.[0-9]+\\)?-3" + mother =daikanwa)) + + (make-charset '=>daikanwa + "Daikanwa abstract characters" + '(long-name "abstract Daikanwa" + chars 256 + dimension 2 + columns 2 + graphic 2 + direction l2r + registry "Daikanwa\\(\\.[0-9]+\\)?-3" + mother =>>daikanwa)) + (make-charset '=shinjigen "Kadokawa ShinJigen dictionary (common parts)" `(long-name "Shinjigen common parts" @@ -796,6 +927,169 @@ min-code #xE90000 ; #xE000 max-code #xE908FF ; #xE8FF code-offset ,(- #xE90000 #xE000))) + (make-charset '=>>ruimoku-v6 + "RUIMOKU Version.6 glyphs" + '(long-name "RUI6 glyphs" + chars 256 + dimension 2 + columns 2 + graphic 2 + direction l2r + registry "rui6-0" + mother =ruimoku-v6)) + + (make-charset '==>ucs@bucs + "Basic Subset of Coded Character Sets (BUCS)" + '(long-name "BUCS abstract characters" + 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" + chars 256 + dimension 3 + columns 2 + graphic 2 + direction l2r + =>iso-ir 177 + mother =ucs)) + (make-charset '=>ucs@unicode + "Abstract characters of Unicode representatives" + '(long-name "UCS characters for Unicode" + chars 256 + dimension 3 + columns 2 + graphic 2 + direction l2r + =>iso-ir 177 + mother =>ucs@iso)) + (make-charset '=>ucs@jis + "UCS Representative characters for JIS X0208/0212/0213" + '(long-name "UCS characters for JIS" + chars 256 + dimension 3 + columns 2 + graphic 2 + direction l2r + =>iso-ir 177 + mother =>ucs@unicode)) + (make-charset '=>ucs@JP + "UCS Representative characters for Japanese usual unification" + '(long-name "UCS characters for JP" + chars 256 + dimension 3 + columns 2 + graphic 2 + direction l2r + =>iso-ir 177 + mother =>ucs@jis)) + (make-charset '=>ucs@ks + "UCS Representative characters for Korean Standards" + '(long-name "UCS characters for KS" + chars 256 + dimension 3 + columns 2 + graphic 2 + direction l2r + =>iso-ir 177 + mother =>ucs@unicode)) + (make-charset '=>ucs@cns + "UCS representatives characters for CNS 11643 sources" + '(long-name "UCS characters for CNS 11643" + chars 256 + dimension 3 + columns 2 + graphic 2 + direction l2r + =>iso-ir 177 + mother =>ucs@unicode)) + + (make-charset '=>>ucs@iso + "Representative abstract glyphs of ISO/IEC 10646" + '(long-name "UCS glyphs for UCS" + chars 256 + dimension 3 + columns 2 + graphic 2 + direction l2r + =>iso-ir 177 + mother =>ucs@iso)) + (make-charset '=>>ucs@unicode + "Representative abstract glyphs of Unicode" + '(long-name "Unicode abstract glyphs" + chars 256 + dimension 3 + columns 2 + graphic 2 + direction l2r + =>iso-ir 177 + mother =>>ucs@iso)) + (make-charset '=>>ucs@jis + "UCS Representative glyphs for JIS X0208/0212/0213" + '(long-name "UCS glyphs for JIS" + chars 256 + dimension 3 + columns 2 + graphic 2 + direction l2r + =>iso-ir 177 + mother =>>ucs@unicode)) + (make-charset '=>>ucs@jis/1990 + "UCS Representative glyphs for JIS X 0208/0212:1990" + '(long-name "UCS glyphs for JIS:1990" + chars 256 + dimension 3 + columns 2 + graphic 2 + direction l2r + =>iso-ir 177 + mother =>>ucs@jis)) + (make-charset '=>>ucs@jis/2000 + "UCS Representative glyphs for JIS X 0213:2000" + '(long-name "UCS glyphs for JIS:2000" + chars 256 + dimension 3 + columns 2 + graphic 2 + direction l2r + =>iso-ir 177 + mother =>>ucs@jis)) + (make-charset '=>>ucs@jis/2004 + "UCS Representative glyphs for JIS X 0213:2004" + '(long-name "UCS glyphs for JIS:2004" + chars 256 + dimension 3 + columns 2 + graphic 2 + direction l2r + =>iso-ir 177 + mother =>>ucs@jis)) + (make-charset '=>>ucs@ks + "UCS Representative glyphs for Korean Standards" + '(long-name "UCS glyphs for KS" + chars 256 + dimension 3 + columns 2 + graphic 2 + direction l2r + =>iso-ir 177 + mother =>>ucs@unicode)) + (make-charset '=>>ucs@cns + "UCS Representative glyphs for CNS 11643 sources" + '(long-name "UCS glyphs for CNS" + chars 256 + dimension 3 + columns 2 + graphic 2 + direction l2r + =>iso-ir 177 + mother =>>ucs@unicode)) (make-charset '=ucs@iso "ISO/IEC 10646 for its representative glyphs" @@ -806,7 +1100,7 @@ graphic 2 direction l2r =>iso-ir 177 - mother =ucs)) + mother =>>ucs@iso)) (make-charset '=ucs@unicode "Unicode for its representative glyphs" '(long-name "UCS for Unicode" @@ -922,7 +1216,7 @@ graphic 2 direction l2r =>iso-ir 177 - mother ucs-jis)) + mother =ucs@jis)) (define-charset-alias '=ucs@jis-1990 '=ucs@jis/1990) (define-charset-alias '=ucs-jis-1990 '=ucs@jis/1990) (make-charset '=ucs@jis/2000 @@ -934,7 +1228,7 @@ graphic 2 direction l2r =>iso-ir 177 - mother ucs-jis)) + mother =ucs@jis)) (define-charset-alias '=ucs@jis-2000 '=ucs@jis/2000) (define-charset-alias '=ucs-jis-2000 '=ucs@jis/2000) (make-charset '=ucs@jis/2004 @@ -946,7 +1240,7 @@ graphic 2 direction l2r =>iso-ir 177 - mother ucs-jis)) + mother =ucs@jis)) (make-charset '=ucs@JP "UCS for common glyphs used in Japan" '(long-name "UCS for Japan" @@ -990,17 +1284,6 @@ direction l2r =>iso-ir 177 mother =ucs@cns)) - - (make-charset '=>>ucs@unicode - "Representative abstract glyphs of Unicode" - '(long-name "Unicode abstract glyphs" - chars 256 - dimension 3 - columns 2 - graphic 2 - direction l2r - =>iso-ir 177 - mother =ucs@unicode)) (make-charset '=ucs@big5 "ISO/IEC 10646 for Big5" '(long-name "UCS for Big5" @@ -1010,7 +1293,7 @@ graphic 2 direction l2r =>iso-ir 177 - mother =>>ucs@unicode)) + 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" @@ -1090,6 +1373,21 @@ ;; max-code #xA4CF )) (make-charset + '==>ucs-bmp-cjk@bucs + "CJK Characters in BMP of BUCS" + '(long-name "BUCS-BMP-CJK" + chars 256 + dimension 2 + columns 2 + graphic 2 + direction l2r + registry "-zh-.*-ucs-0" + mother ==>ucs@bucs + min-code #x2E00 + max-code #x9FA5 + ;; max-code #xA4CF + )) + (make-charset '=ucs-sip-ext-b "CJK Ideographs Extension B" '(long-name "UCS CJK Ext-B" @@ -1220,6 +1518,136 @@ min-code 0 max-code 23057 registry "AdobeJapan1-6$")) + + (make-charset + '=hanyo-denshi/ja + "JA (JIS X0208) part of Han'you-Denshi characters" + `(long-name "Han'you-Denshi/JA" + chars 94 + dimension 2 + columns 2 + graphic 2 + direction l2r + registry "HanyoDenshi\\.JA-0$" + min-code ,(lsh #x6400 16) + max-code ,(+ (lsh #x6400 16) (1- (* 94 94))) + code-offset ,(lsh #x6400 16))) + (make-charset + '=hanyo-denshi/jb + "JB (JIS X0212) part of Han'you-Denshi characters" + `(long-name "Han'you-Denshi/JB" + chars 94 + dimension 2 + columns 2 + graphic 2 + direction l2r + registry "HanyoDenshi\\.JB-0$" + min-code ,(+ (lsh #x6400 16) (* 94 94)) + max-code ,(+ (lsh #x6400 16) (1- (* 94 94 2))) + code-offset ,(+ (lsh #x6400 16) (* 94 94)))) + (make-charset + '=hanyo-denshi/jc + "JC (JIS X0213:2000 Plane 1) part of Han'you-Denshi characters" + `(long-name "Han'you-Denshi/JC" + chars 94 + dimension 2 + columns 2 + graphic 2 + direction l2r + registry "HanyoDenshi\\.JC-0$" + min-code ,(+ (lsh #x6400 16) (* 94 94 2)) + max-code ,(+ (lsh #x6400 16) (1- (* 94 94 3))) + code-offset ,(+ (lsh #x6400 16) (* 94 94 2)))) + (make-charset + '=hanyo-denshi/jd + "JD (JIS X0213:2000 Plane 1) part of Han'you-Denshi characters" + `(long-name "Han'you-Denshi/JD" + chars 94 + dimension 2 + columns 2 + graphic 2 + direction l2r + registry "HanyoDenshi\\.JD-0$" + min-code ,(+ (lsh #x6400 16) (* 94 94 3)) + max-code ,(+ (lsh #x6400 16) (1- (* 94 94 4))) + code-offset ,(+ (lsh #x6400 16) (* 94 94 3)))) + (make-charset + '=hanyo-denshi/ft + "FT (FDPC additional) part of Han'you-Denshi characters" + `(long-name "Han'you-Denshi/FT" + chars 94 + dimension 2 + columns 2 + graphic 2 + direction l2r + registry "HanyoDenshi\\.FT-0$" + min-code ,(+ (lsh #x6400 16) (* 94 94 4)) + max-code ,(+ (lsh #x6400 16) (1- (* 94 94 5))) + code-offset ,(+ (lsh #x6400 16) (* 94 94 4)))) + (make-charset + '=hanyo-denshi/ia + "IA part of Han'you-Denshi characters" + `(long-name "Han'you-Denshi/IA" + chars 94 + dimension 2 + columns 2 + graphic 2 + direction l2r + registry "HanyoDenshi\\.IA-0$" + min-code ,(+ (lsh #x6400 16) (* 94 94 5)) + max-code ,(+ (lsh #x6400 16) (1- (* 94 94 6))) + code-offset ,(+ (lsh #x6400 16) (* 94 94 5)))) + (make-charset + '=hanyo-denshi/ib + "IB part of Han'you-Denshi characters" + `(long-name "Han'you-Denshi/IB" + chars 94 + dimension 2 + columns 2 + graphic 2 + direction l2r + registry "HanyoDenshi\\.IB-0$" + min-code ,(+ (lsh #x6400 16) (* 94 94 6)) + max-code ,(+ (lsh #x6400 16) (1- (* 94 94 7))) + code-offset ,(+ (lsh #x6400 16) (* 94 94 6)))) + (make-charset + '=hanyo-denshi/hg + "HG (HyouGai Kanji) part of Han'you-Denshi characters" + `(long-name "Han'you-Denshi/HG" + chars 94 + dimension 2 + columns 2 + graphic 2 + direction l2r + registry "HanyoDenshi\\.HG-0$" + min-code ,(+ (lsh #x6400 16) (* 94 94 7)) + max-code ,(+ (lsh #x6400 16) (1- (* 94 94 8))) + code-offset ,(+ (lsh #x6400 16) (* 94 94 7)))) + (make-charset + '=hanyo-denshi/ip + "IP (for IPA) part of Han'you-Denshi characters" + `(long-name "Han'you-Denshi/IP" + chars 256 + dimension 2 + columns 2 + graphic 2 + direction l2r + registry "HanyoDenshi\\.IP-0$" + min-code ,(+ (lsh #x6402 16) #x4E00) + max-code ,(+ (lsh #x6402 16) #x9FFF) + code-offset ,(+ (lsh #x6402 16)))) + + (make-charset + '=>>hanyo-denshi/ft + "Han'you-Denshi/FT abstract glyphs" + '(long-name "Han'you-Denshi/FT" + chars 94 + dimension 2 + columns 2 + graphic 2 + direction l2r + registry "HanyoDenshi\\.FT-0$" + mother =hanyo-denshi/ft)) ) ;;; mule-conf.el ends here