X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fmule%2Fmule-conf.el;h=6a76af3164a7f1bfb496b5061562d8854cc043d0;hb=6e2c417d0c23bd76ed5374c78c814277bdcca597;hp=d2887cd1e13b896bb03e83f2163db73e950340d8;hpb=bf8e5303869c3cd8d30f0cd38f90acb69190987a;p=chise%2Fxemacs-chise.git- diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el index d2887cd..6a76af3 100644 --- a/lisp/mule/mule-conf.el +++ b/lisp/mule/mule-conf.el @@ -2,7 +2,7 @@ ;; Copyright (C) 1995,1999 Electrotechnical Laboratory, JAPAN. ;; Licensed to the Free Software Foundation. -;; Copyright (C) 1997,1999,2000,2002,2003,2004 MORIOKA Tomohiko +;; Copyright (C) 1997,1999,2000,2002,2003,2004,2005,2006 MORIOKA Tomohiko ;; Keywords: mule, multilingual, character set, coding system @@ -25,9 +25,11 @@ ;;; Code: -(define-charset-alias 'japanese-jisx0208-1978 '=jis-x0208-1978) +(define-charset-alias '=jis-x0208-1978 '=jis-x0208@1978) +(define-charset-alias 'japanese-jisx0208-1978 '=jis-x0208@1978) (define-charset-alias 'chinese-gb2312 '=gb2312) -(define-charset-alias 'japanese-jisx0208 '=jis-x0208-1983) +(define-charset-alias '=jis-x0208-1983 '=jis-x0208@1983) +(define-charset-alias 'japanese-jisx0208 '=jis-x0208@1983) (define-charset-alias 'korean-ksc5601 '=ks-x1001) (define-charset-alias 'japanese-jisx0212 '=jis-x0212) (define-charset-alias 'chinese-cns11643-1 '=cns11643-1) @@ -135,7 +137,7 @@ registry "jisx0213\\(\\.2000\\)-1" dimension 2 chars 94 - mother =jis-x0208-1990 + mother =jis-x0208@1990 final ?O graphic 0)) (make-charset @@ -170,11 +172,39 @@ (when (featurep 'utf-2000) (define-charset-alias 'ucs '=ucs) - (define-charset-alias 'japanese-jisx0208-1990 '=jis-x0208-1990) + (define-charset-alias '=jis-x0208-1990 '=jis-x0208@1990) + (define-charset-alias 'japanese-jisx0208-1990 '=jis-x0208@1990) + (make-charset + '=jis-x0208@1997 + "JIS X 0208 based on the unification rule of 1997 edition." + '(registry "jisx0208\\.1990" + dimension 2 + chars 94 + mother =jis-x0208 + ;; final ?B + graphic 0)) + (make-charset + '=jis-x0208@1978/i1 + "The first impression of JIS X 0208:1978." + '(registry "jisx0208\\.1978" + dimension 2 + chars 94 + mother =jis-x0208@1978 + ;; final ?@ + graphic 0)) + (make-charset + '=jis-x0208@1978/i-4 + "The second and third impressions of JIS X 0208:1978." + '(registry "jisx0208\\.1978" + dimension 2 + chars 94 + mother =jis-x0208@1978 + ;; final ?@ + graphic 0)) (make-charset '=big5-cdp "Big5 with CDP extension" - `(long-name "Big5-CDP" + '(long-name "Big5-CDP" chars 256 dimension 2 columns 2 @@ -231,7 +261,7 @@ (make-charset '=gt-pj-k1 "Ideographic parts of GT (pseudo JIS encoding) part 1" - `(long-name "GT K1" + '(long-name "GT K1" chars 94 dimension 2 columns 2 @@ -242,7 +272,7 @@ (make-charset '=gt-pj-k2 "Ideographic parts of GT (pseudo JIS encoding) part 2" - `(long-name "GT K2" + '(long-name "GT K2" chars 94 dimension 2 columns 2 @@ -265,7 +295,7 @@ code-offset #xE00000)) (define-charset-alias 'ideograph-daikanwa '=daikanwa) - (make-charset '=daikanwa-rev1 + (make-charset '=daikanwa@rev1 "Daikanwa dictionary (revised version)" `(long-name "Daikanwa Rev." chars 256 @@ -273,10 +303,13 @@ columns 2 graphic 2 direction l2r - registry "Daikanwa\\(\\.[0-9]+\\)?-2")) - (define-charset-alias 'ideograph-daikanwa-2 '=daikanwa-rev1) + registry "Daikanwa\\(\\.[0-9]+\\)?-2" + mother =daikanwa + )) + (define-charset-alias 'ideograph-daikanwa-2 '=daikanwa@rev1) + (define-charset-alias '=daikanwa-rev1 '=daikanwa@rev1) - (make-charset '=daikanwa-rev2 + (make-charset '=daikanwa@rev2 "Daikanwa dictionary (revised version 2)" `(long-name "Daikanwa" chars 256 @@ -285,13 +318,18 @@ graphic 2 direction l2r registry "Daikanwa\\(\\.[0-9]+\\)?-3" - min-code #xE00000 - max-code ,(+ #xE00000 50100) - code-offset #xE00000)) + mother =daikanwa + min-code 1 + max-code 49964 + ;; min-code #xE00000 + ;; max-code ,(+ #xE00000 50100) + ;; code-offset #xE00000 + )) + (define-charset-alias '=daikanwa-rev2 '=daikanwa@rev2) (make-charset '=big5-pua "Big5 with private used area" - `(long-name "Big5-PUA" + '(long-name "Big5-PUA" chars 256 dimension 2 columns 2 @@ -302,7 +340,7 @@ (define-charset-alias 'chinese-big5-pua '=big5-pua) (make-charset '=big5-eten "Big5 ETEN" - `(long-name "Big5-ETEN" + '(long-name "Big5-ETEN" chars 256 dimension 2 columns 2 @@ -315,7 +353,7 @@ (define-charset-alias 'chinese-big5-eten '=big5-eten) (make-charset 'chinese-big5-eten-a "Big5 ETEN (#xF9D6 .. #xF9FE)" - `(long-name "Big5-ETEN-a" + '(long-name "Big5-ETEN-a" chars 256 dimension 2 columns 2 @@ -327,7 +365,7 @@ registry "Big5\\.ETEN")) (make-charset 'chinese-big5-eten-b "Big5 ETEN (#xC6A1 .. #xC8FE)" - `(long-name "Big5-ETEN-b" + '(long-name "Big5-ETEN-b" chars 256 dimension 2 columns 2 @@ -375,9 +413,22 @@ direction l2r)) (define-charset-alias 'ideograph-cbeta '=cbeta) + (make-charset '=zinbun-oracle + "Oracle Bones Script" + `(long-name "Oracle Bones Script in Zinbun, Kyoto Univ." + chars 256 + dimension 2 + registry "zob1968-0" + graphic 2 + min-code #xE70000 + max-code ,(+ #xE70000 8192) + code-offset #xE70000 + columns 2 + direction l2r)) + (make-charset '=jef-china3 "JEF + CHINA3 private characters" - `(long-name "JEF + CHINA3" + '(long-name "JEF + CHINA3" chars 256 dimension 2 columns 2 @@ -405,7 +456,7 @@ (make-charset '=ucs@iso "ISO/IEC 10646 for its representative glyphs" - `(long-name "UCS for ISO" + '(long-name "UCS for ISO" chars 256 dimension 3 columns 2 @@ -414,7 +465,7 @@ mother =ucs)) (make-charset '=ucs@unicode "Unicode for its representative glyphs" - `(long-name "UCS for Unicode" + '(long-name "UCS for Unicode" chars 256 dimension 3 columns 2 @@ -423,7 +474,7 @@ mother =ucs@iso)) (make-charset '=ucs@gb "ISO/IEC 10646 for GB" - `(long-name "UCS for GB" + '(long-name "UCS for GB" chars 256 dimension 3 columns 2 @@ -431,9 +482,29 @@ direction l2r mother =ucs@unicode)) (define-charset-alias 'ucs-gb '=ucs@gb) + (make-charset '=ucs@gb/fw + "ISO/IEC 10646 for GB with fullwidth" + '(long-name "UCS for GB-fullwidth" + chars 256 + dimension 3 + columns 2 + graphic 2 + direction l2r + mother =ucs@gb)) + (make-charset '=ucs-bmp@gb + "ISO/IEC 10646 BMP for GB" + '(long-name "BMP for GB" + chars 256 + dimension 3 + columns 2 + graphic 2 + direction l2r + mother =ucs@gb + min-code #x0000 + max-code #xFFFF)) (make-charset '=ucs@cns "ISO/IEC 10646 for CNS 11643" - `(long-name "UCS for CNS" + '(long-name "UCS for CNS" chars 256 dimension 3 columns 2 @@ -441,9 +512,29 @@ direction l2r mother =ucs@unicode)) (define-charset-alias 'ucs-cns '=ucs@cns) + (make-charset '=ucs@cns/fw + "ISO/IEC 10646 for CNS 11643 with fullwidth" + '(long-name "UCS for CNS-fullwidth" + chars 256 + dimension 3 + columns 2 + graphic 2 + direction l2r + mother =ucs@cns)) + (make-charset '=ucs-bmp@cns + "ISO/IEC 10646 BMP for CNS" + '(long-name "BMP for CNS" + chars 256 + dimension 3 + columns 2 + graphic 2 + direction l2r + mother =ucs@cns + min-code #x0000 + max-code #xFFFF)) (make-charset '=ucs@jis "ISO/IEC 10646 for JIS X0208/0212/0213" - `(long-name "UCS for JIS" + '(long-name "UCS for JIS" chars 256 dimension 3 columns 2 @@ -451,38 +542,61 @@ direction l2r mother =ucs@unicode)) (define-charset-alias 'ucs-jis '=ucs@jis) - (make-charset '=ucs@jis-1990 + (make-charset '=ucs@jis/fw + "ISO/IEC 10646 for JIS X0208/0212/0213 with fullwidth" + '(long-name "UCS for JIS-fullwidth" + chars 256 + dimension 3 + columns 2 + graphic 2 + direction l2r + mother =ucs@jis)) + (make-charset '=ucs-bmp@jis + "ISO/IEC 10646 BMP for JIS" + '(long-name "BMP for JIS" + chars 256 + dimension 3 + columns 2 + graphic 2 + direction l2r + mother =ucs@jis + min-code #x0000 + max-code #xFFFF)) + (make-charset '=ucs@jis/1990 "ISO/IEC 10646 for JIS X 0208/0212:1990" - `(long-name "UCS for JIS:1990" + '(long-name "UCS for JIS:1990" chars 256 dimension 3 columns 2 graphic 2 direction l2r mother ucs-jis)) - (define-charset-alias '=ucs-jis-1990 '=ucs@jis-1990) - (make-charset '=ucs@jis-2000 + (define-charset-alias '=ucs@jis-1990 '=ucs@jis/1990) + (define-charset-alias '=ucs-jis-1990 '=ucs@jis/1990) + (make-charset '=ucs@jis/2000 "ISO/IEC 10646 for JIS X 0213:2000" - `(long-name "UCS for JIS:2000" + '(long-name "UCS for JIS:2000" chars 256 dimension 3 columns 2 graphic 2 direction l2r mother ucs-jis)) - (define-charset-alias '=ucs-jis-2000 '=ucs@jis-2000) - (make-charset '=ucs@jp + (define-charset-alias '=ucs@jis-2000 '=ucs@jis/2000) + (define-charset-alias '=ucs-jis-2000 '=ucs@jis/2000) + (make-charset '=ucs@JP "UCS for common glyphs used in Japan" - `(long-name "UCS for Japan" + '(long-name "UCS for Japan" chars 256 dimension 3 columns 2 graphic 2 direction l2r - mother =ucs@jis-2000)) + mother =ucs@jis/2000)) + (define-charset-alias '=ucs@jp '=ucs@JP) (make-charset '=ucs@ks "ISO/IEC 10646 for Korean Standards" - `(long-name "UCS for KS" + '(long-name "UCS for KS" chars 256 dimension 3 columns 2 @@ -490,9 +604,20 @@ direction l2r mother =ucs@unicode)) (define-charset-alias 'ucs-ks '=ucs@ks) + (make-charset '=ucs-bmp@ks + "ISO/IEC 10646 BMP for KS" + '(long-name "BMP for KS" + chars 256 + dimension 3 + columns 2 + graphic 2 + direction l2r + mother =ucs@ks + min-code #x0000 + max-code #xFFFF)) (make-charset '=ucs@big5 "ISO/IEC 10646 for Big5" - `(long-name "UCS for Big5" + '(long-name "UCS for Big5" chars 256 dimension 3 columns 2 @@ -500,35 +625,65 @@ direction l2r mother =ucs@unicode)) (define-charset-alias 'ucs-big5 '=ucs@big5) - + (make-charset '=ucs@big5/cns11643 + "ISO/IEC 10646 for Big5 based on www.cns11643.gov.tw" + '(long-name "UCS for Big5@CNS11643" + chars 256 + dimension 3 + columns 2 + graphic 2 + direction l2r + mother =ucs@big5)) + (make-charset '=ucs@cns11643 + "ISO/IEC 10646 for CNS based on www.cns11643.gov.tw" + '(long-name "UCS for CNS11643" + chars 256 + dimension 3 + columns 2 + graphic 2 + direction l2r + mother =ucs@cns)) + (make-charset '=ucs-radicals "CJK Radicals of UCS" - `(long-name "UCS-Radicals" + '(long-name "UCS-Radicals" chars 256 dimension 2 columns 2 graphic 2 direction l2r - registry "-zh-.*-ucs-0" + registry "-zhRadicals-.*-ucs-0" mother ucs-bmp min-code #x2E00 max-code #x2FFF)) (make-charset '=ucs-radicals@unicode "CJK Radicals of UCS" - `(long-name "UCS-Radicals" + '(long-name "UCS-Radicals" chars 256 dimension 2 columns 2 graphic 2 direction l2r - registry "-zh-.*-ucs-0" + registry "-zhRadicals-.*-ucs-0" mother =ucs@unicode min-code #x2E00 max-code #x2FFF)) (make-charset + '=ucs-hangul + "Hangul Syllables of UCS" + '(long-name "UCS-Hangul-Syllables" + chars 256 + dimension 2 + columns 2 + graphic 2 + direction l2r + registry "-Hangul-.*-ucs-0" + mother =ucs + min-code #xAC00 max-code #xD7AF)) + (make-charset '=ucs-bmp-cjk "CJK Characters in BMP of UCS" - `(long-name "UCS-BMP-CJK" + '(long-name "UCS-BMP-CJK" chars 256 dimension 2 columns 2 @@ -536,11 +691,14 @@ direction l2r registry "-zh-.*-ucs-0" mother ucs-bmp - min-code #x2E00 max-code #xA4CF)) + min-code #x2E00 + max-code #x9FA5 + ;; max-code #xA4CF + )) (make-charset '=ucs-bmp-cjk@unicode "CJK Characters in BMP of Unicode" - `(long-name "Unicode-BMP-CJK" + '(long-name "Unicode-BMP-CJK" chars 256 dimension 2 columns 2 @@ -548,11 +706,14 @@ direction l2r registry "-zh-.*-ucs-0" mother =ucs@unicode - min-code #x2E00 max-code #xA4CF)) + 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" + '(long-name "UCS CJK Ext-B" chars 256 dimension 2 columns 2 @@ -565,7 +726,7 @@ (make-charset '=ucs-sip-ext-b@iso "CJK Ideographs Extension B (ISO/IEC 10646-2)" - `(long-name "UCS CJK Ext-B" + '(long-name "UCS CJK Ext-B" chars 256 dimension 2 columns 2 @@ -575,6 +736,83 @@ mother =ucs@iso min-code #x20000 max-code #x2A6D6 code-offset #x20000)) + + (make-charset + '=adobe-japan1-0 + "Adobe-Japan1-0 Character Collection for CID-Keyed Fonts" + '(long-name "Adobe-Japan1-0" + chars 256 + dimension 2 + columns 2 + graphic 2 + direction l2r + registry "AdobeJapan1-0$")) + (make-charset + '=adobe-japan1-1 + "Adobe-Japan1-1 Character Collection for CID-Keyed Fonts" + '(long-name "Adobe-Japan1-1" + chars 256 + dimension 2 + columns 2 + graphic 2 + direction l2r + mother =adobe-japan1-0 + registry "AdobeJapan1-1$")) + (make-charset + '=adobe-japan1-2 + "Adobe-Japan1-2 Character Collection for CID-Keyed Fonts" + '(long-name "Adobe-Japan1-2" + chars 256 + dimension 2 + columns 2 + graphic 2 + direction l2r + mother =adobe-japan1-1 + registry "AdobeJapan1-2$")) + (make-charset + '=adobe-japan1-3 + "Adobe-Japan1-3 Character Collection for CID-Keyed Fonts" + '(long-name "Adobe-Japan1-3" + chars 256 + dimension 2 + columns 2 + graphic 2 + direction l2r + mother =adobe-japan1-2 + registry "AdobeJapan1-3$")) + (make-charset + '=adobe-japan1-4 + "Adobe-Japan1-4 Character Collection for CID-Keyed Fonts" + '(long-name "Adobe-Japan1-4" + chars 256 + dimension 2 + columns 2 + graphic 2 + direction l2r + mother =adobe-japan1-3 + registry "AdobeJapan1-4$")) + (make-charset + '=adobe-japan1-5 + "Adobe-Japan1-5 Character Collection for CID-Keyed Fonts" + '(long-name "Adobe-Japan1-5" + chars 256 + dimension 2 + columns 2 + graphic 2 + direction l2r + mother =adobe-japan1-4 + registry "AdobeJapan1-5$")) + (make-charset + '=adobe-japan1-6 + "Adobe-Japan1-6 Character Collection for CID-Keyed Fonts" + '(long-name "Adobe-Japan1-6" + chars 256 + dimension 2 + columns 2 + graphic 2 + direction l2r + mother =adobe-japan1-5 + registry "AdobeJapan1-6$")) ) ;;; mule-conf.el ends here