X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2Fu0FE30-CJK-Compatibility-Forms.el;h=3eef04e0597a6b880d42b7f8fb8bce7c671fd5e6;hb=9d47207c76db948a8be6ff75c68c07fc57fcba77;hp=139766a3fd9de572553a33f8fe8221dbe23fc47b;hpb=ed79ca47b430a917433a5f779c37c2f7c8ee11ba;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/utf-2000/u0FE30-CJK-Compatibility-Forms.el b/lisp/utf-2000/u0FE30-CJK-Compatibility-Forms.el
index 139766a..3eef04e 100644
--- a/lisp/utf-2000/u0FE30-CJK-Compatibility-Forms.el
+++ b/lisp/utf-2000/u0FE30-CJK-Compatibility-Forms.el
@@ -4,215 +4,272 @@
     (general-category	punctuation other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	vertical #x2025)
     (=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)
     (=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)
     (=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)
     (=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)
-    (=cns11643-1	. #x213C)	; &C1-213C; [01-28]
+    (=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)
     (=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)
     (=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)
     (=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)
     (=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)
     (=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)
     (=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)
     (=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)
     (=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)
     (=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)
     (=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)
     (=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)
     (=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)
     (=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)
     (=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)
     (=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)
     (=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")
@@ -229,75 +286,89 @@
     (general-category	punctuation other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	compat #x203E)
     (=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)
     (=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)
     (=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)
     (=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)
     (=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)
     (=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)
-    (=cns11643-1	. #x213D)	; &C1-213D; [01-29]
+    (=cns11643-1	. #x213D)	; &I-C1-213D; [01-29]
     (=big5		. #xA15C)	; &I-B-A15C;
+    (<-compat
+     ((name		  . "LOW LINE")
+      (=ucs		  . #x005F)	; _
+      ))
     ))