update.

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

diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el
index 95ce151..e2e6ec8 100644 (file)
--- a/lisp/mule/mule-conf.el
+++ b/lisp/mule/mule-conf.el
@@ -477,7 +477,7 @@
 
   (make-charset '=>>big5-cdp
                "Abstract glyphs of Big5-CDP"
-               '(long-name     "Big5-CDP"
+               '(long-name     "Big5-CDP glyphs"
                  chars         256
                  dimension     2
                  columns       2
@@ -486,6 +486,17 @@
                  registry      "big5\\.cdp-0"
                  mother        =big5-cdp))
 
+  (make-charset '=>big5-cdp
+               "Big5-CDP abstract characters"
+               '(long-name     "Big5-CDP abstract characters"
+                 chars         256
+                 dimension     2
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 registry      "big5\\.cdp-0"
+                 mother        =>>big5-cdp))
+
   (make-charset '=gt
                "GT 2000"
                `(long-name     "GT"
@@ -581,7 +592,7 @@
   (define-charset-alias 'ideograph-gt-pj-k2 '=gt-pj-k2)
 
   (make-charset '=daikanwa
-               "Daikanwa dictionary (revised version 2)"
+               "Daikanwa dictionary (unchanged part)"
                `(long-name     "Daikanwa"
                  chars         256
                  dimension     2
@@ -626,6 +637,17 @@
                  ))
   (define-charset-alias '=daikanwa-rev2 '=daikanwa@rev2)
 
+  (make-charset '=>daikanwa
+               "Daikanwa abstract characters"
+               '(long-name     "abstract Daikanwa"
+                 chars         256
+                 dimension     2
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 registry      "Daikanwa\\(\\.[0-9]+\\)?-3"
+                 mother        =daikanwa))
+
   (make-charset '=shinjigen
                "Kadokawa ShinJigen dictionary (common parts)"
                `(long-name     "Shinjigen common parts"
@@ -817,6 +839,38 @@
                  max-code      #xE908FF ; #xE8FF
                  code-offset   ,(- #xE90000 #xE000)))
 
+  (make-charset '==>ucs@bucs
+               "Basic Subset of Coded Character Sets (BUCS)"
+               '(long-name     "BUCS abstract characters"
+                 chars         256
+                 dimension     3
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 =>iso-ir      177
+                 mother        =ucs))
+
+  (make-charset '=>ucs@iso
+               "Abstract characters of ISO/IEC 10646 representatives"
+               '(long-name     "UCS characters for ISO"
+                 chars         256
+                 dimension     3
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 =>iso-ir      177
+                 mother        =ucs))
+  (make-charset '=>ucs@unicode
+               "Abstract characters of Unicode representatives"
+               '(long-name     "UCS characters for Unicode"
+                 chars         256
+                 dimension     3
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 =>iso-ir      177
+                 mother        =>ucs@iso))
+
   (make-charset '=>>ucs@iso
                "Representative abstract glyphs of ISO/IEC 10646"
                '(long-name     "UCS glyphs for UCS"
@@ -826,7 +880,7 @@
                  graphic       2
                  direction     l2r
                  =>iso-ir      177
-                 mother        =ucs))
+                 mother        =>ucs@iso))
   (make-charset '=>>ucs@unicode
                "Representative abstract glyphs of Unicode"
                '(long-name     "Unicode abstract glyphs"
@@ -847,6 +901,36 @@
                  direction     l2r
                  =>iso-ir      177
                  mother        =>>ucs@unicode))
+  (make-charset '=>>ucs@jis/1990
+               "UCS Representative glyphs for JIS X 0208/0212:1990"
+               '(long-name     "UCS glyphs for JIS:1990"
+                 chars         256
+                 dimension     3
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 =>iso-ir      177
+                 mother        =>>ucs@jis))
+  (make-charset '=>>ucs@jis/2000
+               "UCS Representative glyphs for JIS X 0213:2000"
+               '(long-name     "UCS glyphs for JIS:2000"
+                 chars         256
+                 dimension     3
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 =>iso-ir      177
+                 mother        =>>ucs@jis))
+  (make-charset '=>>ucs@jis/2004
+               "UCS Representative glyphs for JIS X 0213:2004"
+               '(long-name     "UCS glyphs for JIS:2004"
+                 chars         256
+                 dimension     3
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                 =>iso-ir      177
+                 mother        =>>ucs@jis))
   (make-charset '=>>ucs@cns
                "UCS Representative glyphs for CNS 11643 sources"
                '(long-name     "UCS glyphs for CNS"
@@ -1140,6 +1224,21 @@
               ;; max-code #xA4CF
               ))
   (make-charset
+   '==>ucs-bmp-cjk@bucs
+   "CJK Characters in BMP of BUCS"
+   '(long-name "BUCS-BMP-CJK"
+              chars 256
+              dimension 2
+              columns 2
+              graphic 2
+              direction l2r
+              registry "-zh-.*-ucs-0"
+              mother ==>ucs@bucs
+              min-code #x2E00
+               max-code #x9FA5
+              ;; max-code #xA4CF
+              ))
+  (make-charset
    '=ucs-sip-ext-b
    "CJK Ideographs Extension B"
    '(long-name "UCS CJK Ext-B"