Sync up with r21-4-11-chise-0_21-=daikanwa-rev1+2.

[chise/xemacs-chise.git] / lisp / mule / mule-conf.el

diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el
index a2929ec..0d7960c 100644 (file)
--- a/lisp/mule/mule-conf.el
+++ b/lisp/mule/mule-conf.el
@@ -106,7 +106,7 @@
        '(registry "jisx0213\\(\\.2000\\)-1"
                  dimension 2
                  chars 94
-                 mother japanese-jisx0208-1990
+                 mother =jis-x0208-1990
                  final ?O
                  graphic 0))
       (make-charset
@@ -139,6 +139,35 @@
   )
 
 (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"
@@ -157,6 +186,15 @@
                  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"
@@ -165,11 +203,35 @@
                  columns       2
                  graphic       2
                  direction     l2r
-                 mother        ucs))
+                 mother        =ucs))
 
   (make-charset 'ideograph-daikanwa
                "Daikanwa"
-               `(long-name     "Morohashi's Daikanwa Rev.2"
+               `(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
@@ -246,7 +308,7 @@
         (hzk-max (+ hzk-min 65535)))
     (while (<= i 12)
       (make-charset
-       (intern (format "ideograph-hanziku-%d" i))
+       (intern (format "=hanziku-%d" i))
        (format "HANZIKU-%d" i)
        `(long-name ,(format "HANZIKU (pseudo BIG5 encoding) part %d" i)
                   chars 256
@@ -258,6 +320,9 @@
                   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))))