Sync up with r21-4-15-chise-0_21-30-ccs-props.

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

diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el
index 839fca2..d2887cd 100644 (file)
--- a/lisp/mule/mule-conf.el
+++ b/lisp/mule/mule-conf.el
@@ -173,8 +173,8 @@
   (define-charset-alias 'japanese-jisx0208-1990 '=jis-x0208-1990)
 
   (make-charset '=big5-cdp
-               "Big5-CDP"
-               `(long-name     "Big5 with CDP extension"
+               "Big5 with CDP extension"
+               `(long-name     "Big5-CDP"
                  chars         256
                  dimension     2
                  columns       2
@@ -187,8 +187,8 @@
   (define-charset-alias 'chinese-big5-cdp '=big5-cdp)
 
   (make-charset '=gt
-               "GT"
-               `(long-name     "GT 2000"
+               "GT 2000"
+               `(long-name     "GT"
                  chars         256
                  dimension     3
                  columns       2
@@ -200,8 +200,8 @@
                  code-offset   ,(lsh #x6100 16)))
   (define-charset-alias 'ideograph-gt '=gt)
   (make-charset '=gt-k
-               "GT parts"
-               `(long-name     "Ideographic parts of GT"
+               "Ideographic components of GT"
+               `(long-name     "GT components"
                  chars         256
                  dimension     2
                  columns       2
@@ -216,8 +216,8 @@
     (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)
+       (format "GT 2000 (pseudo JIS encoding) part %d" i)
+       `(long-name ,(format "GT PJ %d" i)
                   chars 94
                   dimension 2
                   columns 2
@@ -230,8 +230,8 @@
       (setq i (1+ i))))
   (make-charset
    '=gt-pj-k1
-   "GT K1"
-   `(long-name "Ideographic parts of GT (pseudo JIS encoding) part 1"
+   "Ideographic parts of GT (pseudo JIS encoding) part 1"
+   `(long-name "GT K1"
               chars 94
               dimension 2
               columns 2
@@ -241,8 +241,8 @@
   (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"
+   "Ideographic parts of GT (pseudo JIS encoding) part 2"
+   `(long-name "GT K2"
               chars 94
               dimension 2
               columns 2
@@ -252,8 +252,8 @@
   (define-charset-alias 'ideograph-gt-pj-k2 '=gt-pj-k2)
 
   (make-charset '=daikanwa
-               "Daikanwa"
-               `(long-name     "Daikanwa dictionary (revised version 2)"
+               "Daikanwa dictionary (revised version 2)"
+               `(long-name     "Daikanwa"
                  chars         256
                  dimension     2
                  columns       2
@@ -266,8 +266,8 @@
   (define-charset-alias 'ideograph-daikanwa '=daikanwa)
 
   (make-charset '=daikanwa-rev1
-               "Daikanwa Rev."
-               `(long-name     "Daikanwa dictionary (revised version)"
+               "Daikanwa dictionary (revised version)"
+               `(long-name     "Daikanwa Rev."
                  chars         256
                  dimension     2
                  columns       2
@@ -277,8 +277,8 @@
   (define-charset-alias 'ideograph-daikanwa-2 '=daikanwa-rev1)
 
   (make-charset '=daikanwa-rev2
-               "Daikanwa"
-               `(long-name     "Daikanwa dictionary (revised version 2)"
+               "Daikanwa dictionary (revised version 2)"
+               `(long-name     "Daikanwa"
                  chars         256
                  dimension     2
                  columns       2
@@ -290,8 +290,8 @@
                  code-offset   #xE00000))
 
   (make-charset '=big5-pua
-               "Big5-PUA"
-               `(long-name     "Big5 with private used area"
+               "Big5 with private used area"
+               `(long-name     "Big5-PUA"
                  chars         256
                  dimension     2
                  columns       2
@@ -301,8 +301,8 @@
                  registry      "Big5\\.ETEN"))
   (define-charset-alias 'chinese-big5-pua '=big5-pua)
   (make-charset '=big5-eten
-               "Big5-ETEN"
-               `(long-name     "Big5 ETEN"
+               "Big5 ETEN"
+               `(long-name     "Big5-ETEN"
                  chars         256
                  dimension     2
                  columns       2
@@ -314,8 +314,8 @@
                  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)"
+               "Big5 ETEN (#xF9D6 .. #xF9FE)"
+               `(long-name     "Big5-ETEN-a"
                  chars         256
                  dimension     2
                  columns       2
@@ -326,8 +326,8 @@
                  max-code      #xF9FE
                  registry      "Big5\\.ETEN"))
   (make-charset 'chinese-big5-eten-b
-               "Big5-ETEN-b"
-               `(long-name     "Big5 ETEN (#xC6A1 .. #xC8FE)"
+               "Big5 ETEN (#xC6A1 .. #xC8FE)"
+               `(long-name     "Big5-ETEN-b"
                  chars         256
                  dimension     2
                  columns       2
@@ -344,8 +344,8 @@
     (while (<= i 12)
       (make-charset
        (intern (format "=hanziku-%d" i))
-       (format "HANZIKU-%d" i)
-       `(long-name ,(format "HANZIKU (pseudo BIG5 encoding) part %d" i)
+       (format "HANZIKU (pseudo BIG5 encoding) part %d" i)
+       `(long-name ,(format "HANZIKU-%d" i)
                   chars 256
                   dimension 2
                   columns 2
@@ -362,8 +362,8 @@
            hzk-max (+ hzk-min 65535))
       (setq i (1+ i))))
 
-  (make-charset '=cbeta "CBETA PUA"
-               '(long-name     "CBETA private characters"
+  (make-charset '=cbeta "CBETA private characters"
+               '(long-name     "CBETA PUA"
                  chars         256
                  dimension     2
                  registry      "cbeta-0"
@@ -376,8 +376,8 @@
   (define-charset-alias 'ideograph-cbeta '=cbeta)
 
   (make-charset '=jef-china3
-               "JEF + CHINA3"
-               `(long-name     "JEF + CHINA3 private characters"
+               "JEF + CHINA3 private characters"
+               `(long-name     "JEF + CHINA3"
                  chars         256
                  dimension     2
                  columns       2
@@ -390,8 +390,8 @@
   (define-charset-alias 'china3-jef '=jef-china3)
 
   (make-charset '=ruimoku-v6
-               "RUI6"
-               `(long-name     "private characters used in RUIMOKU"
+               "private characters used in RUIMOKU Version.6"
+               `(long-name     "RUI6"
                  chars         256
                  dimension     2
                  columns       2
@@ -404,8 +404,8 @@
                  code-offset   ,(- #xE90000 #xE000)))
 
   (make-charset '=ucs@iso
-               "UCS for ISO"
-               `(long-name     "ISO/IEC 10646 for its representative glyphs"
+               "ISO/IEC 10646 for its representative glyphs"
+               `(long-name     "UCS for ISO"
                  chars         256
                  dimension     3
                  columns       2
@@ -413,8 +413,8 @@
                  direction     l2r
                  mother        =ucs))
   (make-charset '=ucs@unicode
-               "UCS for Unicode"
-               `(long-name     "Unicode for its representative glyphs"
+               "Unicode for its representative glyphs"
+               `(long-name     "UCS for Unicode"
                  chars         256
                  dimension     3
                  columns       2
@@ -422,8 +422,8 @@
                  direction     l2r
                  mother        =ucs@iso))
   (make-charset '=ucs@gb
-               "UCS for GB"
-               `(long-name     "ISO/IEC 10646 for GB"
+               "ISO/IEC 10646 for GB"
+               `(long-name     "UCS for GB"
                  chars         256
                  dimension     3
                  columns       2
@@ -432,8 +432,8 @@
                  mother        =ucs@unicode))
   (define-charset-alias 'ucs-gb '=ucs@gb)
   (make-charset '=ucs@cns
-               "UCS for CNS"
-               `(long-name     "ISO/IEC 10646 for CNS 11643"
+               "ISO/IEC 10646 for CNS 11643"
+               `(long-name     "UCS for CNS"
                  chars         256
                  dimension     3
                  columns       2
@@ -442,8 +442,8 @@
                  mother        =ucs@unicode))
   (define-charset-alias 'ucs-cns '=ucs@cns)
   (make-charset '=ucs@jis
-               "UCS for JIS"
-               `(long-name     "ISO/IEC 10646 for JIS X0208/0212/0213"
+               "ISO/IEC 10646 for JIS X0208/0212/0213"
+               `(long-name     "UCS for JIS"
                  chars         256
                  dimension     3
                  columns       2
@@ -452,8 +452,8 @@
                  mother        =ucs@unicode))
   (define-charset-alias 'ucs-jis '=ucs@jis)
   (make-charset '=ucs@jis-1990
-               "UCS for JIS:1990"
-               `(long-name     "ISO/IEC 10646 for JIS X 0208/0212:1990"
+               "ISO/IEC 10646 for JIS X 0208/0212:1990"
+               `(long-name     "UCS for JIS:1990"
                  chars         256
                  dimension     3
                  columns       2
@@ -462,8 +462,8 @@
                  mother        ucs-jis))
   (define-charset-alias '=ucs-jis-1990 '=ucs@jis-1990)
   (make-charset '=ucs@jis-2000
-               "UCS for JIS:2000"
-               `(long-name     "ISO/IEC 10646 for JIS X 0213:2000"
+               "ISO/IEC 10646 for JIS X 0213:2000"
+               `(long-name     "UCS for JIS:2000"
                  chars         256
                  dimension     3
                  columns       2
@@ -472,8 +472,8 @@
                  mother        ucs-jis))
   (define-charset-alias '=ucs-jis-2000 '=ucs@jis-2000)
   (make-charset '=ucs@jp
-               "UCS for Japan"
-               `(long-name     "UCS for common glyphs used in Japan"
+               "UCS for common glyphs used in Japan"
+               `(long-name     "UCS for Japan"
                  chars         256
                  dimension     3
                  columns       2
@@ -481,8 +481,8 @@
                  direction     l2r
                  mother        =ucs@jis-2000))
   (make-charset '=ucs@ks
-               "UCS for KS"
-               `(long-name     "ISO/IEC 10646 for Korean Standards"
+               "ISO/IEC 10646 for Korean Standards"
+               `(long-name     "UCS for KS"
                  chars         256
                  dimension     3
                  columns       2
@@ -491,8 +491,8 @@
                  mother        =ucs@unicode))
   (define-charset-alias 'ucs-ks '=ucs@ks)
   (make-charset '=ucs@big5
-               "UCS for Big5"
-               `(long-name     "ISO/IEC 10646 for Big5"
+               "ISO/IEC 10646 for Big5"
+               `(long-name     "UCS for Big5"
                  chars         256
                  dimension     3
                  columns       2
@@ -503,8 +503,8 @@
 
   (make-charset
    '=ucs-radicals
-   "UCS-Radicals"
-   `(long-name "CJK Radicals of UCS"
+   "CJK Radicals of UCS"
+   `(long-name "UCS-Radicals"
               chars 256
               dimension 2
               columns 2
@@ -515,8 +515,8 @@
               min-code #x2E00 max-code #x2FFF))
   (make-charset
    '=ucs-radicals@unicode
-   "UCS-Radicals"
-   `(long-name "CJK Radicals of UCS"
+   "CJK Radicals of UCS"
+   `(long-name "UCS-Radicals"
               chars 256
               dimension 2
               columns 2
@@ -527,8 +527,8 @@
               min-code #x2E00 max-code #x2FFF))
   (make-charset
    '=ucs-bmp-cjk
-   "UCS-BMP-CJK"
-   `(long-name "CJK Characters in BMP of UCS"
+   "CJK Characters in BMP of UCS"
+   `(long-name "UCS-BMP-CJK"
               chars 256
               dimension 2
               columns 2
@@ -539,8 +539,8 @@
               min-code #x2E00 max-code #xA4CF))
   (make-charset
    '=ucs-bmp-cjk@unicode
-   "Unicode-BMP-CJK"
-   `(long-name "CJK Characters in BMP of Unicode"
+   "CJK Characters in BMP of Unicode"
+   `(long-name "Unicode-BMP-CJK"
               chars 256
               dimension 2
               columns 2
@@ -551,8 +551,8 @@
               min-code #x2E00 max-code #xA4CF))
   (make-charset
    '=ucs-sip-ext-b
-   "UCS CJK Ext-B"
-   `(long-name "CJK Ideographs Extension B"
+   "CJK Ideographs Extension B"
+   `(long-name "UCS CJK Ext-B"
               chars 256
               dimension 2
               columns 2
@@ -564,8 +564,8 @@
               code-offset #x20000))
   (make-charset
    '=ucs-sip-ext-b@iso
-   "UCS CJK Ext-B"
-   `(long-name "CJK Ideographs Extension B (ISO/IEC 10646-2)"
+   "CJK Ideographs Extension B (ISO/IEC 10646-2)"
+   `(long-name "UCS CJK Ext-B"
               chars 256
               dimension 2
               columns 2