X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=blobdiff_plain;f=lisp%2Futf-2000%2Fu0FE30-CJK-Compatibility-Forms.el;h=fa69ace0108d07759525f2484887a339261c3ad8;hp=bea77ac3d45a716d02594aa8126b749dec0a909f;hb=8ba3626da629f1b4ecafae24c85f3d0cb3bf8b8e;hpb=a5812bf2ff9a9cf40f4ff78dcb83f5b4c295bd18

diff --git a/lisp/utf-2000/u0FE30-CJK-Compatibility-Forms.el b/lisp/utf-2000/u0FE30-CJK-Compatibility-Forms.el
index bea77ac..fa69ace 100644
--- a/lisp/utf-2000/u0FE30-CJK-Compatibility-Forms.el
+++ b/lisp/utf-2000/u0FE30-CJK-Compatibility-Forms.el
@@ -1,302 +1,374 @@
+;; -*- coding: utf-8-mcs-er -*-
 (define-char
   '((name . "PRESENTATION FORM FOR VERTICAL TWO DOT LEADER")
     (general-category	punctuation other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	vertical #x2025)
-    (chinese-cns11643-1 . #x212B)	; ø»‘‚¦
-    (chinese-big5	. #xA14A)	; ý¢€Š…Š
     (=ucs		. #xFE30)	; ︰
+    (=cns11643-1	. #x212B)	; &I-C1-212B; [01-11]
+    (=big5		. #xA14A)	; &I-B-A14A;
+    (<-vertical
+     ((name		  . "TWO DOT LEADER")
+      (=ucs		  . #x2025)	; ‥
+      ))
     ))
 (define-char
   '((name		. "PRESENTATION FORM FOR VERTICAL EM DASH")
     (general-category	punctuation dash) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	vertical #x2014)
-    (chinese-cns11643-1 . #x2136)	; ø»‘‚±
-    (chinese-big5	. #xA157)	; ý¢€Š…—
     (=ucs		. #xFE31)	; ︱
+    (=cns11643-1	. #x2136)	; &I-C1-2136; [01-22]
+    (=big5		. #xA157)	; &I-B-A157;
+    (<-vertical
+     ((name		  . "EM DASH")
+      (=ucs		  . #x2014)	; —
+      ))
     ))
 (define-char
   '((name		. "PRESENTATION FORM FOR VERTICAL EN DASH")
     (general-category	punctuation dash) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	vertical #x2013)
-    (chinese-cns11643-1 . #x2138)	; ø»‘‚³
     (=ucs		. #xFE32)	; ︲
+    (=cns11643-1	. #x2138)	; &I-C1-2138; [01-24]
+    (<-vertical
+     ((name		  . "EN DASH")
+      (=ucs		  . #x2013)	; –
+      ))
     ))
 (define-char
   '((name		. "PRESENTATION FORM FOR VERTICAL LOW LINE")
     (general-category	punctuation connector) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	vertical #x005F)
-    (chinese-big5	. #xA159)	; ý¢€Š…™
     (=ucs		. #xFE33)	; ︳
+    (=cns11643-1	. #x213A)	; &I-C1-213A; [01-26]
+    (=big5		. #xA159)	; &I-B-A159;
+    (<-vertical
+     ((name		  . "LOW LINE")
+      (=ucs		  . #x005F)	; _
+      ))
     ))
 (define-char
   '((name		. "PRESENTATION FORM FOR VERTICAL WAVY LOW LINE")
     (general-category	punctuation connector) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	vertical #x005F)
     (=ucs		. #xFE34)	; ︴
-    ))
-(define-char
-  '((name . "presentation form for vertical book name mark")
-    (=>ucs		. #xFE34)	; ︴
-    (general-category	punctuation connector) ; Informative Category
-    (bidi-category	. "ON")
-    (mirrored		. nil)
-    (chinese-cns11643-1 . #x213C)	; ø»‘‚·
-    (chinese-big5	. #xA15B)	; ý¢€Š…›
+    (=cns11643-1	. #x213C)	; &I-C1-213C; [01-28]
+    (=big5		. #xA15B)	; &I-B-A15B;
+    (<-vertical
+     ((name		  . "LOW LINE")
+      (=ucs		  . #x005F)	; _
+      ))
     ))
 (define-char
   '((name . "PRESENTATION FORM FOR VERTICAL LEFT PARENTHESIS")
     (general-category	punctuation open) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	vertical #x0028)
-    (chinese-cns11643-1 . #x2140)	; ø»‘‚»
-    (chinese-big5	. #xA15F)	; ý¢€Š…Ÿ
     (=ucs		. #xFE35)	; ︵
+    (=cns11643-1	. #x2140)	; &I-C1-2140; [01-32]
+    (=big5		. #xA15F)	; &I-B-A15F;
+    (<-vertical
+     ((name		  . "LEFT PARENTHESIS")
+      (=ucs		  . #x0028)	; (
+      ))
     ))
 (define-char
   '((name . "PRESENTATION FORM FOR VERTICAL RIGHT PARENTHESIS")
     (general-category	punctuation close) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	vertical #x0029)
-    (chinese-cns11643-1 . #x2141)	; ø»‘‚¼
-    (chinese-big5	. #xA160)	; ý¢€Š… 
     (=ucs		. #xFE36)	; ︶
+    (=cns11643-1	. #x2141)	; &I-C1-2141; [01-33]
+    (=big5		. #xA160)	; &I-B-A160;
+    (<-vertical
+     ((name		  . "RIGHT PARENTHESIS")
+      (=ucs		  . #x0029)	; )
+      ))
     ))
 (define-char
   '((name . "PRESENTATION FORM FOR VERTICAL LEFT CURLY BRACKET")
     (general-category	punctuation open) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	vertical #x007B)
-    (chinese-cns11643-1 . #x2144)	; ø»‘‚¿
-    (chinese-big5	. #xA163)	; ý¢€Š…£
     (=ucs		. #xFE37)	; ︷
+    (=cns11643-1	. #x2144)	; &I-C1-2144; [01-36]
+    (=big5		. #xA163)	; &I-B-A163;
+    (<-vertical
+     ((name		  . "LEFT CURLY BRACKET")
+      (=ucs		  . #x007B)	; {
+      ))
     ))
 (define-char
   '((name . "PRESENTATION FORM FOR VERTICAL RIGHT CURLY BRACKET")
     (general-category	punctuation close) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	vertical #x007D)
-    (chinese-cns11643-1 . #x2145)	; ø»‘ƒ€
-    (chinese-big5	. #xA164)	; ý¢€Š…¤
     (=ucs		. #xFE38)	; ︸
+    (=cns11643-1	. #x2145)	; &I-C1-2145; [01-37]
+    (=big5		. #xA164)	; &I-B-A164;
+    (<-vertical
+     ((name		  . "RIGHT CURLY BRACKET")
+      (=ucs		  . #x007D)	; }
+      ))
     ))
 (define-char
   '((name . "PRESENTATION FORM FOR VERTICAL LEFT TORTOISE SHELL BRACKET")
     (general-category	punctuation open) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	vertical #x3014)
-    (chinese-cns11643-1 . #x2148)	; ø»‘ƒƒ
-    (chinese-big5	. #xA167)	; ý¢€Š…§
     (=ucs		. #xFE39)	; ︹
+    (=cns11643-1	. #x2148)	; &I-C1-2148; [01-40]
+    (=big5		. #xA167)	; &I-B-A167;
+    (<-vertical
+     ((name		  . "LEFT TORTOISE SHELL BRACKET")
+      (=ucs		  . #x3014)	; 〔
+      ))
     ))
 (define-char
   '((name . "PRESENTATION FORM FOR VERTICAL RIGHT TORTOISE SHELL BRACKET")
     (general-category	punctuation close) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	vertical #x3015)
-    (chinese-cns11643-1 . #x2149)	; ø»‘ƒ„
-    (chinese-big5	. #xA168)	; ý¢€Š…¨
     (=ucs		. #xFE3A)	; ︺
+    (=cns11643-1	. #x2149)	; &I-C1-2149; [01-41]
+    (=big5		. #xA168)	; &I-B-A168;
+    (<-vertical
+     ((name		  . "RIGHT TORTOISE SHELL BRACKET")
+      (=ucs		  . #x3015)	; 〕
+      ))
     ))
 (define-char
   '((name . "PRESENTATION FORM FOR VERTICAL LEFT BLACK LENTICULAR BRACKET")
     (general-category	punctuation open) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	vertical #x3010)
-    (chinese-cns11643-1 . #x214C)	; ø»‘ƒ‡
-    (chinese-big5	. #xA16B)	; ý¢€Š…«
     (=ucs		. #xFE3B)	; ︻
+    (=cns11643-1	. #x214C)	; &I-C1-214C; [01-44]
+    (=big5		. #xA16B)	; &I-B-A16B;
+    (<-vertical
+     ((name		  . "LEFT BLACK LENTICULAR BRACKET")
+      (=ucs		  . #x3010)	; 【
+      ))
     ))
 (define-char
   '((name . "PRESENTATION FORM FOR VERTICAL RIGHT BLACK LENTICULAR BRACKET")
     (general-category	punctuation close) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	vertical #x3011)
-    (chinese-cns11643-1 . #x214D)	; ø»‘ƒˆ
-    (chinese-big5	. #xA16C)	; ý¢€Š…¬
     (=ucs		. #xFE3C)	; ︼
+    (=cns11643-1	. #x214D)	; &I-C1-214D; [01-45]
+    (=big5		. #xA16C)	; &I-B-A16C;
+    (<-vertical
+     ((name		  . "RIGHT BLACK LENTICULAR BRACKET")
+      (=ucs		  . #x3011)	; 】
+      ))
     ))
 (define-char
   '((name . "PRESENTATION FORM FOR VERTICAL LEFT DOUBLE ANGLE BRACKET")
     (general-category	punctuation open) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	vertical #x300A)
-    (chinese-cns11643-1 . #x2150)	; ø»‘ƒ‹
-    (chinese-big5	. #xA16F)	; ý¢€Š…¯
     (=ucs		. #xFE3D)	; ︽
+    (=cns11643-1	. #x2150)	; &I-C1-2150; [01-48]
+    (=big5		. #xA16F)	; &I-B-A16F;
+    (<-vertical
+     ((name		  . "LEFT DOUBLE ANGLE BRACKET")
+      (=ucs		  . #x300A)	; 《
+      ))
     ))
 (define-char
   '((name . "PRESENTATION FORM FOR VERTICAL RIGHT DOUBLE ANGLE BRACKET")
     (general-category	punctuation close) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	vertical #x300B)
-    (chinese-cns11643-1 . #x2151)	; ø»‘ƒŒ
-    (chinese-big5	. #xA170)	; ý¢€Š…°
     (=ucs		. #xFE3E)	; ︾
+    (=cns11643-1	. #x2151)	; &I-C1-2151; [01-49]
+    (=big5		. #xA170)	; &I-B-A170;
+    (<-vertical
+     ((name		  . "RIGHT DOUBLE ANGLE BRACKET")
+      (=ucs		  . #x300B)	; 》
+      ))
     ))
 (define-char
   '((name . "PRESENTATION FORM FOR VERTICAL LEFT ANGLE BRACKET")
     (general-category	punctuation open) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	vertical #x3008)
-    (chinese-cns11643-1 . #x2154)	; ø»‘ƒ
-    (chinese-big5	. #xA173)	; ý¢€Š…³
     (=ucs		. #xFE3F)	; ︿
+    (=cns11643-1	. #x2154)	; &I-C1-2154; [01-52]
+    (=big5		. #xA173)	; &I-B-A173;
+    (<-vertical
+     ((name		  . "LEFT ANGLE BRACKET")
+      (=ucs		  . #x3008)	; 〈
+      ))
     ))
 (define-char
   '((name . "PRESENTATION FORM FOR VERTICAL RIGHT ANGLE BRACKET")
     (general-category	punctuation close) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	vertical #x3009)
-    (chinese-cns11643-1 . #x2155)	; ø»‘ƒ
-    (chinese-big5	. #xA174)	; ý¢€Š…´
     (=ucs		. #xFE40)	; ﹀
+    (=cns11643-1	. #x2155)	; &I-C1-2155; [01-53]
+    (=big5		. #xA174)	; &I-B-A174;
+    (<-vertical
+     ((name		  . "RIGHT ANGLE BRACKET")
+      (=ucs		  . #x3009)	; 〉
+      ))
     ))
 (define-char
   '((name . "PRESENTATION FORM FOR VERTICAL LEFT CORNER BRACKET")
     (general-category	punctuation open) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	vertical #x300C)
-    (chinese-cns11643-1 . #x2158)	; ø»‘ƒ“
-    (chinese-big5	. #xA177)	; ý¢€Š…·
     (=ucs		. #xFE41)	; ﹁
+    (=cns11643-1	. #x2158)	; &I-C1-2158; [01-56]
+    (=big5		. #xA177)	; &I-B-A177;
+    (<-vertical
+     ((name		  . "LEFT CORNER BRACKET")
+      (=ucs		  . #x300C)	; 「
+      ))
     ))
 (define-char
   '((name . "PRESENTATION FORM FOR VERTICAL RIGHT CORNER BRACKET")
     (general-category	punctuation close) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	vertical #x300D)
-    (chinese-cns11643-1 . #x2159)	; ø»‘ƒ”
-    (chinese-big5	. #xA178)	; ý¢€Š…¸
     (=ucs		. #xFE42)	; ﹂
+    (=cns11643-1	. #x2159)	; &I-C1-2159; [01-57]
+    (=big5		. #xA178)	; &I-B-A178;
+    (<-vertical
+     ((name		  . "RIGHT CORNER BRACKET")
+      (=ucs		  . #x300D)	; 」
+      ))
     ))
 (define-char
   '((name . "PRESENTATION FORM FOR VERTICAL LEFT WHITE CORNER BRACKET")
     (general-category	punctuation open) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	vertical #x300E)
-    (chinese-cns11643-1 . #x215C)	; ø»‘ƒ—
-    (chinese-big5	. #xA17B)	; ý¢€Š…»
     (=ucs		. #xFE43)	; ﹃
+    (=cns11643-1	. #x215C)	; &I-C1-215C; [01-60]
+    (=big5		. #xA17B)	; &I-B-A17B;
+    (<-vertical
+     ((name		  . "LEFT WHITE CORNER BRACKET")
+      (=ucs		  . #x300E)	; 『
+      ))
     ))
 (define-char
   '((name . "PRESENTATION FORM FOR VERTICAL RIGHT WHITE CORNER BRACKET")
     (general-category	punctuation close) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	vertical #x300F)
-    (chinese-cns11643-1 . #x215D)	; ø»‘ƒ˜
-    (chinese-big5	. #xA17C)	; ý¢€Š…¼
     (=ucs		. #xFE44)	; ﹄
+    (=cns11643-1	. #x215D)	; &I-C1-215D; [01-61]
+    (=big5		. #xA17C)	; &I-B-A17C;
+    (<-vertical
+     ((name		  . "RIGHT WHITE CORNER BRACKET")
+      (=ucs		  . #x300F)	; 』
+      ))
     ))
 (define-char
   '((name		. "SESAME DOT")
-    (=jis-x0213-1-2000	. #x233E)	; ø»¢–•
     (=ucs		. #xFE45)	; ﹅
+    (=jis-x0213-1	. #x233E)	; &I-JX1-233E; [03-30]
     ))
 (define-char
   '((name		. "WHITE SESAME DOT")
-    (=jis-x0213-1-2000	. #x233D)	; ø»¢–”
     (=ucs		. #xFE46)	; ﹆
+    (=jis-x0213-1	. #x233D)	; &I-JX1-233D; [03-29]
     ))
 (define-char
   '((name		. "DASHED OVERLINE")
     (general-category	punctuation other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	compat #x203E)
-    (chinese-cns11643-1 . #x2227)	; ø»‘„€
-    (chinese-big5	. #xA1C6)	; ý¢€Š‡†
     (=ucs		. #xFE49)	; ﹉
+    (=cns11643-1	. #x2227)	; &I-C1-2227; [02-07]
+    (=big5		. #xA1C6)	; &I-B-A1C6;
+    (<-compat
+     ((name		  . "OVERLINE")
+      (=ucs		  . #x203E)	; ‾
+      ))
     ))
 (define-char
   '((name		. "CENTRELINE OVERLINE")
     (general-category	punctuation other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	compat #x203E)
-    (chinese-cns11643-1 . #x2228)	; ø»‘„
-    (chinese-big5	. #xA1C7)	; ý¢€Š‡‡
     (=ucs		. #xFE4A)	; ﹊
+    (=cns11643-1	. #x2228)	; &I-C1-2228; [02-08]
+    (=big5		. #xA1C7)	; &I-B-A1C7;
+    (<-compat
+     ((name		  . "OVERLINE")
+      (=ucs		  . #x203E)	; ‾
+      ))
     ))
 (define-char
   '((name		. "WAVY OVERLINE")
     (general-category	punctuation other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	compat #x203E)
-    (chinese-cns11643-1 . #x222B)	; ø»‘„„
-    (chinese-big5	. #xA1CA)	; ý¢€Š‡Š
     (=ucs		. #xFE4B)	; ﹋
+    (=cns11643-1	. #x222B)	; &I-C1-222B; [02-11]
+    (=big5		. #xA1CA)	; &I-B-A1CA;
+    (<-compat
+     ((name		  . "OVERLINE")
+      (=ucs		  . #x203E)	; ‾
+      ))
     ))
 (define-char
   '((name		. "DOUBLE WAVY OVERLINE")
     (general-category	punctuation other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	compat #x203E)
-    (chinese-cns11643-1 . #x222C)	; ø»‘„…
-    (chinese-big5	. #xA1CB)	; ý¢€Š‡‹
     (=ucs		. #xFE4C)	; ﹌
+    (=cns11643-1	. #x222C)	; &I-C1-222C; [02-12]
+    (=big5		. #xA1CB)	; &I-B-A1CB;
+    (<-compat
+     ((name		  . "OVERLINE")
+      (=ucs		  . #x203E)	; ‾
+      ))
     ))
 (define-char
   '((name		. "DASHED LOW LINE")
     (general-category	punctuation connector) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	compat #x005F)
-    (chinese-cns11643-1 . #x2229)	; ø»‘„‚
-    (chinese-big5	. #xA1C8)	; ý¢€Š‡ˆ
     (=ucs		. #xFE4D)	; ﹍
+    (=cns11643-1	. #x2229)	; &I-C1-2229; [02-09]
+    (=big5		. #xA1C8)	; &I-B-A1C8;
+    (<-compat
+     ((name		  . "LOW LINE")
+      (=ucs		  . #x005F)	; _
+      ))
     ))
 (define-char
   '((name		. "CENTRELINE LOW LINE")
     (general-category	punctuation connector) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	compat #x005F)
-    (chinese-cns11643-1 . #x222A)	; ø»‘„ƒ
-    (chinese-big5	. #xA1C9)	; ý¢€Š‡‰
     (=ucs		. #xFE4E)	; ﹎
+    (=cns11643-1	. #x222A)	; &I-C1-222A; [02-10]
+    (=big5		. #xA1C9)	; &I-B-A1C9;
+    (<-compat
+     ((name		  . "LOW LINE")
+      (=ucs		  . #x005F)	; _
+      ))
     ))
 (define-char
   '((name		. "WAVY LOW LINE")
     (general-category	punctuation connector) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	compat #x005F)
     (=ucs		. #xFE4F)	; ﹏
-    ))
-(define-char
-  '((name		. "book name mark")
-    (=>ucs		. #xFE4F)	; ﹏
-    (general-category	punctuation connector) ; Informative Category
-    (bidi-category	. "ON")
-    (mirrored		. nil)
-    (chinese-cns11643-1 . #x213D)	; ø»‘‚¸
-    (chinese-big5	. #xA15C)	; ý¢€Š…œ
+    (=cns11643-1	. #x213D)	; &I-C1-213D; [01-29]
+    (=big5		. #xA15C)	; &I-B-A15C;
+    (<-compat
+     ((name		  . "LOW LINE")
+      (=ucs		  . #x005F)	; _
+      ))
     ))