X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fmule%2Fmule-conf.el;h=0d7960c428d5214f27932f093884e6f224521033;hb=1ff41b5aa9a8da699c405a4458f827374fdbdc5b;hp=a00aff00394d7c0b106f265068084b0ede4766a1;hpb=102de834d3114d4118e8a5516847aab5a4e3f91b;p=chise%2Fxemacs-chise.git diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el index a00aff0..0d7960c 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 @@ -97,4 +97,325 @@ (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 =jis-x0208-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) + (define-charset-alias 'ucs '=ucs) + (define-charset-alias 'japanese-jisx0208-1990 '=jis-x0208-1990) + (make-charset 'ucs-gb + "UCS for GB" + `(long-name "ISO/IEC 10646 for GB" + chars 256 + dimension 3 + columns 2 + graphic 2 + direction l2r + mother =ucs)) + (make-charset 'ucs-cns + "UCS for CNS" + `(long-name "ISO/IEC 10646 for CNS 11643" + chars 256 + dimension 3 + columns 2 + graphic 2 + direction l2r + mother =ucs)) + (make-charset 'ucs-jis + "UCS for JIS" + `(long-name "ISO/IEC 10646 for JIS X0208/0212/0213" + chars 256 + dimension 3 + columns 2 + graphic 2 + direction l2r + mother =ucs)) + (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 'ucs-ks + "UCS for KS" + `(long-name "ISO/IEC 10646 for Korean Standards" + chars 256 + dimension 3 + columns 2 + graphic 2 + direction l2r + mother =ucs)) + (make-charset 'ucs-big5 + "UCS for Big5" + `(long-name "ISO/IEC 10646 for Big5" + chars 256 + dimension 3 + columns 2 + graphic 2 + direction l2r + mother =ucs)) + + (make-charset 'ideograph-daikanwa + "Daikanwa" + `(long-name "Daikanwa dictionary (revised version 2)" + chars 256 + dimension 2 + columns 2 + graphic 2 + direction l2r + registry "Daikanwa\\(\\.[0-9]+\\)?-3" + min-code #xE00000 + max-code ,(+ #xE00000 50100) + code-offset #xE00000)) + + (make-charset '=daikanwa-rev1 + "Daikanwa Rev." + `(long-name "Daikanwa dictionary (revised version)" + chars 256 + dimension 2 + columns 2 + graphic 2 + direction l2r + registry "Daikanwa\\(\\.[0-9]+\\)?-2")) + (define-charset-alias 'ideograph-daikanwa-2 '=daikanwa-rev1) + + (make-charset '=daikanwa-rev2 + "Daikanwa" + `(long-name "Daikanwa dictionary (revised version 2)" + chars 256 + dimension 2 + columns 2 + graphic 2 + direction l2r + registry "Daikanwa\\(\\.[0-9]+\\)?-3" + min-code #xE00000 + max-code ,(+ #xE00000 50100) + code-offset #xE00000)) + + (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) + (let* ((i 1) + (hzk-min (+ (lsh #x6200 16) 65536)) + (hzk-max (+ hzk-min 65535))) + (while (<= i 12) + (make-charset + (intern (format "=hanziku-%d" i)) + (format "HANZIKU-%d" i) + `(long-name ,(format "HANZIKU (pseudo BIG5 encoding) part %d" i) + chars 256 + dimension 2 + columns 2 + graphic 2 + direction l2r + registry ,(format "hanziku-%d$" i i) + min-code ,hzk-min + max-code ,hzk-max + code-offset ,hzk-min)) + (define-charset-alias + (intern (format "ideograph-hanziku-%d" i)) + (intern (format "=hanziku-%d" i))) + (setq hzk-min (1+ hzk-max) + hzk-max (+ hzk-min 65535)) + (setq i (1+ i)))) + + (make-charset '=gt + "GT" + `(long-name "GT 2000" + chars 256 + dimension 3 + columns 2 + graphic 2 + direction l2r + registry "" + min-code ,(lsh #x6100 16) + max-code ,(+ (lsh #x6100 16) 67547) + code-offset ,(lsh #x6100 16))) + (define-charset-alias 'ideograph-gt '=gt) + (make-charset '=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))) + (define-charset-alias 'ideograph-gt-k '=gt-k) + (let ((i 1)) + (while (<= i 11) + (make-charset + (intern (format "=gt-pj-%d" i)) + (format "GT PJ %d" i) + `(long-name ,(format "GT 2000 (pseudo JIS encoding) part %d" i) + chars 94 + dimension 2 + columns 2 + graphic 0 + direction l2r + registry ,(format "\\(GTpj-%d\\|jisx0208\\.GT-%d\\)$" i i))) + (define-charset-alias + (intern (format "ideograph-gt-pj-%d" i)) + (intern (format "=gt-pj-%d" i))) + (setq i (1+ i)))) + (make-charset + '=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\\)$")) + (define-charset-alias 'ideograph-gt-pj-k1 '=gt-pj-k1) + (make-charset + '=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\\)$")) + (define-charset-alias 'ideograph-gt-pj-k2 '=gt-pj-k2) + (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