projects / chise / xemacs-chise.git / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
Sync up with r21-4-10-utf-2000-0_20-=gt.
[chise/xemacs-chise.git] / lisp / mule / mule-conf.el
diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el
index 5ed91ae..93130b8 100644 (file)
--- a/lisp/mule/mule-conf.el
+++ b/lisp/mule/mule-conf.el
@@ -139,101 +139,122 @@
   )
 
 (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
-   'chinese-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"))
-  (make-charset
-   'chinese-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"))
-  (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
-   'chinese-big5-cdp
-   "Big5-CDP"
-   `(long-name "Big5 with CDP extension"
-              chars 256
-              dimension 2
-              columns 2
-              graphic 2
-              direction l2r
-              registry "big5\\.cdp-0"
-              ;; min-code ,(lsh #x6200 16)
-              ;; max-code ,(+ (lsh #x6200 16) #xFFFF)
-              ;; code-offset ,(lsh #x6200 16)
-              mother chinese-big5
-              min-code #x8140 max-code #x8DFE))
-  (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 '=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-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 '=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 '=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)
   (make-charset
    'ideograph-gt-pj-k1
    "GT K1"
@@ -254,9 +275,8 @@
               graphic 0
               direction l2r
               registry "\\(GTKpj-2\\|jisx0208\\.GTK-2\\)$"))
-  (make-charset 'ideograph-cbeta "CBETA PUA"
-               '(long-name
-                 "CBETA private characters"
+  (make-charset '=cbeta "CBETA PUA"
+               '(long-name     "CBETA private characters"
                  chars         256
                  dimension     2
                  registry      "cbeta-0"
@@ -266,19 +286,20 @@
                  code-offset   #xE20000
                  columns       2
                  direction     l2r))
-  (make-charset
-   'china3-jef
-   "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 '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