From: tomo Date: Fri, 23 Jul 2004 17:09:53 +0000 (+0000) Subject: (=big5-cdp): Swap DOC-string and long-name. X-Git-Tag: r21-4-15-chise-0_21-30-ccs-props^2~3 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=bf8e5303869c3cd8d30f0cd38f90acb69190987a;p=chise%2Fxemacs-chise.git (=big5-cdp): Swap DOC-string and long-name. (=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. --- diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el index 839fca2..d2887cd 100644 --- 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