(=big5-cdp): Swap DOC-string and long-name.
authortomo <tomo>
Fri, 23 Jul 2004 17:09:53 +0000 (17:09 +0000)
committertomo <tomo>
Fri, 23 Jul 2004 17:09:53 +0000 (17:09 +0000)
(=gt): Likewise.
(=gt-k): Likewise.
(=gt-pj-*): Likewise.
(=gt-pj-k1): Likewise.
(=gt-pj-k2): Likewise.
(=daikanwa): Likewise.
(=daikanwa-rev1): Likewise.
(=daikanwa-rev2): Likewise.
(=big5-pua): Likewise.
(=big5-eten): Likewise.
(chinese-big5-eten-a): Likewise.
(chinese-big5-eten-b): Likewise.
(=hanziku-*): Likewise.
(=cbeta): Likewise.
(=jef-china3): Likewise.
(=ruimoku-v6): Likewise.
(=ucs@iso): Likewise.
(=ucs@unicode): Likewise.
(=ucs@gb): Likewise.
(=ucs@cns): Likewise.
(=ucs@jis): Likewise.
(=ucs@jis-1990): Likewise.
(=ucs@jis-2000): Likewise.
(=ucs@jp): Likewise.
(=ucs@ks): Likewise.
(=ucs@big5): Likewise.
(=ucs-radicals): Likewise.
(=ucs-radicals@unicode): Likewise.
(=ucs-bmp-cjk): Likewise.
(=ucs-bmp-cjk@unicode): Likewise.
(=ucs-sip-ext-b): Likewise.
(=ucs-sip-ext-b@iso): Likewise.

lisp/mule/mule-conf.el

index 839fca2..d2887cd 100644 (file)
   (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
   (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
                  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
     (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
       (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
   (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
   (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
   (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
   (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
                  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
                  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
                  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
                  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
     (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
            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"
   (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
   (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
                  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
                  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
                  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
                  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
                  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
                  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
                  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
                  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
                  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
                  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
 
   (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
               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
               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
               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
               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
               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