(U+8821): Use `->subsumptive'.

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

diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el
index 4f5b312..3848ec8 100644 (file)
--- a/lisp/mule/mule-conf.el
+++ b/lisp/mule/mule-conf.el
@@ -451,6 +451,15 @@
                  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@cns
                "ISO/IEC 10646 for CNS 11643"
                '(long-name     "UCS for CNS"
@@ -461,6 +470,15 @@
                  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@jis
                "ISO/IEC 10646 for JIS X0208/0212/0213"
                '(long-name     "UCS for JIS"
@@ -560,7 +578,7 @@
               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
@@ -572,10 +590,22 @@
               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"