X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fmule%2Fmule-conf.el;h=3f359996bc5c292643119f1d5530acec8e80bdee;hb=3d02bc02477677c38a8f01ecf196d018230b23a6;hp=f991126e35a883af2c917e0746691a77b9a02cec;hpb=4417ad42985aecfb35fde21beaf32c268c1e8f8b;p=chise%2Fxemacs-chise.git- diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el index f991126..3f35999 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 MORIOKA Tomohiko +;; Copyright (C) 1997,1999,2000,2002,2003 MORIOKA Tomohiko ;; Keywords: mule, multilingual, character set, coding system @@ -25,13 +25,14 @@ ;;; Code: -;; IPA (International Phonetic Alphabet) -(make-charset 'ipa "International Phonetic Alphabet" - '(registry "MuleIPA" +;; PinYin-ZhuYin +(make-charset 'sisheng "PinYin-ZhuYin" + '(registry "sisheng_cwnn\\|OMRON_UDC_ZH" dimension 1 - chars 96 + chars 94 final ?0 - graphic 1)) + graphic 0 + )) ;; Lao script. ;; ISO10646's 0x0E80..0x0EDF are mapped to 0x20..0x7F. @@ -42,4 +43,239 @@ final ?1 graphic 1)) +;; IPA (International Phonetic Alphabet) +(make-charset 'ipa "International Phonetic Alphabet" + '(registry "MuleIPA" + dimension 1 + chars 96 + final ?0 + graphic 1)) + +;; Ethiopic +(make-charset 'ethiopic "Ethiopic" + '(registry "Ethio" + dimension 2 + chars 94 + final ?3 + graphic 0 + )) + +;; ISO-IR-165 (CCITT Extended GB) +;; It is based on CCITT Recommendation T.101, includes GB 2312-80 + +;; GB 8565-88 table A4 + 293 characters. +(make-charset + 'chinese-isoir165 + "ISO-IR-165 (CCITT Extended GB; Chinese simplified)" + `(registry "isoir165" + dimension 2 + chars 94 + final ?E + graphic 0)) + +;; CNS11643 Plane3 thru Plane7 +;; These represent more and more obscure Chinese characters. +;; By the time you get to Plane 7, we're talking about characters +;; that appear once in some ancient manuscript and whose meaning +;; is unknown. + +(flet + ((make-chinese-cns11643-charset + (name plane final) + (make-charset + name (concat "CNS 11643 Plane " plane " (Chinese traditional)") + `(registry + ,(concat "CNS11643[.-]\\(.*[.-]\\)?" plane "$") + dimension 2 + chars 94 + final ,final + graphic 0)) + )) + (make-chinese-cns11643-charset 'chinese-cns11643-3 "3" ?I) + (make-chinese-cns11643-charset 'chinese-cns11643-4 "4" ?J) + (make-chinese-cns11643-charset 'chinese-cns11643-5 "5" ?K) + (make-chinese-cns11643-charset 'chinese-cns11643-6 "6" ?L) + (make-chinese-cns11643-charset 'chinese-cns11643-7 "7" ?M) + ) + +;; JIS X 0213:2000 +(if (featurep 'utf-2000) + (progn + (make-charset + '=jis-x0213-1-2000 + "JIS X 0213:2000 Plain 1" + '(registry "jisx0213\\(\\.2000\\)-1" + dimension 2 + chars 94 + mother japanese-jisx0208-1990 + final ?O + graphic 0)) + (make-charset + '=jis-x0213-2-2000 + "JIS X 0213:2000 Plain 2" + '(registry "jisx0213\\(\\.2000\\)-2" + dimension 2 + chars 94 + final ?P + graphic 0)) + (define-charset-alias 'japanese-jisx0213-1 '=jis-x0213-1-2000) + (define-charset-alias 'japanese-jisx0213-2 '=jis-x0213-2-2000) + ) + (make-charset + 'japanese-jisx0213-1 + "JIS X 0213:2000 Plain 1" + '(registry "jisx0213\\(\\.2000\\)-1" + dimension 2 + chars 94 + final ?O + graphic 0)) + (make-charset + 'japanese-jisx0213-2 + "JIS X 0213:2000 Plain 2" + '(registry "jisx0213\\(\\.2000\\)-2" + dimension 2 + chars 94 + final ?P + graphic 0)) + ) + +(when (featurep 'utf-2000) + (make-charset '=ucs-jis-1990 + "UCS for JIS:1990" + `(long-name "ISO/IEC 10646 for JIS X 0208/0212:1990" + chars 256 + dimension 3 + columns 2 + graphic 2 + direction l2r + mother ucs-jis)) + (make-charset '=ucs-jis-2000 + "UCS for JIS:2000" + `(long-name "ISO/IEC 10646 for JIS X 0213:2000" + chars 256 + dimension 3 + columns 2 + graphic 2 + direction l2r + mother ucs-jis)) + (make-charset '=big5-pua + "Big5-PUA" + `(long-name "Big5 with private used area" + chars 256 + dimension 2 + columns 2 + graphic 2 + direction l2r + mother chinese-big5 + registry "Big5\\.ETEN")) + (define-charset-alias 'chinese-big5-pua '=big5-pua) + (make-charset '=big5-eten + "Big5-ETEN" + `(long-name "Big5 ETEN" + chars 256 + dimension 2 + columns 2 + graphic 2 + direction l2r + mother chinese-big5 + min-code #x8140 + max-code #xFEFE + registry "Big5\\.ETEN")) + (define-charset-alias 'chinese-big5-eten '=big5-eten) + (make-charset 'chinese-big5-eten-a + "Big5-ETEN-a" + `(long-name "Big5 ETEN (#xF9D6 .. #xF9FE)" + chars 256 + dimension 2 + columns 2 + graphic 2 + direction l2r + mother chinese-big5 + min-code #xF9D6 + max-code #xF9FE + registry "Big5\\.ETEN")) + (make-charset 'chinese-big5-eten-b + "Big5-ETEN-b" + `(long-name "Big5 ETEN (#xC6A1 .. #xC8FE)" + chars 256 + dimension 2 + columns 2 + graphic 2 + direction l2r + mother chinese-big5 + min-code #xC6A1 + max-code #xC8FE + registry "Big5\\.ETEN")) + (make-charset '=big5-cdp + "Big5-CDP" + `(long-name "Big5 with CDP extension" + chars 256 + dimension 2 + columns 2 + graphic 2 + direction l2r + registry "big5\\.cdp-0" + mother chinese-big5 + min-code #x8140 + max-code #x8DFE)) + (define-charset-alias 'chinese-big5-cdp '=big5-cdp) + (make-charset + 'ideograph-gt-k + "GT parts" + `(long-name "Ideographic parts of GT" + chars 256 + dimension 2 + columns 2 + graphic 2 + direction l2r + registry "" + min-code ,(lsh #x6110 16) + max-code ,(+ (lsh #x6110 16) 17090) + code-offset ,(lsh #x6110 16))) + (make-charset + 'ideograph-gt-pj-k1 + "GT K1" + `(long-name "Ideographic parts of GT (pseudo JIS encoding) part 1" + chars 94 + dimension 2 + columns 2 + graphic 0 + direction l2r + registry "\\(GTKpj-1\\|jisx0208\\.GTK-1\\)$")) + (make-charset + 'ideograph-gt-pj-k2 + "GT K2" + `(long-name "Ideographic parts of GT (pseudo JIS encoding) part 2" + chars 94 + dimension 2 + columns 2 + graphic 0 + direction l2r + registry "\\(GTKpj-2\\|jisx0208\\.GTK-2\\)$")) + (make-charset '=cbeta "CBETA PUA" + '(long-name "CBETA private characters" + chars 256 + dimension 2 + registry "cbeta-0" + graphic 2 + min-code #xE20000 + max-code #xE2FFFF + code-offset #xE20000 + columns 2 + direction l2r)) + (define-charset-alias 'ideograph-cbeta '=cbeta) + (make-charset '=jef-china3 + "JEF + CHINA3" + `(long-name "JEF + CHINA3 private characters" + chars 256 + dimension 2 + columns 2 + graphic 2 + direction l2r + registry "china3jef-0" + min-code #xE80000 + max-code #xE8FFFF + code-offset #xE80000)) + (define-charset-alias 'china3-jef '=jef-china3) + ) + ;;; mule-conf.el ends here