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

diff --git a/lisp/utf-2000/u0FE30-CJK-Compatibility-Forms.el b/lisp/utf-2000/u0FE30-CJK-Compatibility-Forms.el
index 139766a..ffeb3e2 100644
--- a/lisp/utf-2000/u0FE30-CJK-Compatibility-Forms.el
+++ b/lisp/utf-2000/u0FE30-CJK-Compatibility-Forms.el
@@ -4,7 +4,10 @@
     (general-category	punctuation other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	vertical #x2025)
+    (<-vertical
+     ((name		  . "TWO DOT LEADER")
+      (=ucs		  . #x2025)	; ‥
+      ))
     (=ucs		. #xFE30)	; ︰
     (=cns11643-1	. #x212B)	; &I-C1-212B; [01-11]
     (=big5		. #xA14A)	; &I-B-A14A;
@@ -14,7 +17,10 @@
     (general-category	punctuation dash) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	vertical #x2014)
+    (<-vertical
+     ((name		  . "EM DASH")
+      (=ucs		  . #x2014)	; —
+      ))
     (=ucs		. #xFE31)	; ︱
     (=cns11643-1	. #x2136)	; &I-C1-2136; [01-22]
     (=big5		. #xA157)	; &I-B-A157;
@@ -24,7 +30,10 @@
     (general-category	punctuation dash) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	vertical #x2013)
+    (<-vertical
+     ((name		  . "EN DASH")
+      (=ucs		  . #x2013)	; –
+      ))
     (=ucs		. #xFE32)	; ︲
     (=cns11643-1	. #x2138)	; &I-C1-2138; [01-24]
     ))
@@ -33,8 +42,12 @@
     (general-category	punctuation connector) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	vertical #x005F)
+    (<-vertical
+     ((name		  . "LOW LINE")
+      (=ucs		  . #x005F)	; _
+      ))
     (=ucs		. #xFE33)	; ︳
+    (=cns11643-1	. #x213A)	; &I-C1-213A; [01-26]
     (=big5		. #xA159)	; &I-B-A159;
     ))
 (define-char
@@ -42,16 +55,12 @@
     (general-category	punctuation connector) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	vertical #x005F)
+    (<-vertical
+     ((name		  . "LOW LINE")
+      (=ucs		  . #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;
     ))
 (define-char
@@ -59,7 +68,10 @@
     (general-category	punctuation open) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	vertical #x0028)
+    (<-vertical
+     ((name		  . "LEFT PARENTHESIS")
+      (=ucs		  . #x0028)	; (
+      ))
     (=ucs		. #xFE35)	; ︵
     (=cns11643-1	. #x2140)	; &I-C1-2140; [01-32]
     (=big5		. #xA15F)	; &I-B-A15F;
@@ -69,7 +81,10 @@
     (general-category	punctuation close) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	vertical #x0029)
+    (<-vertical
+     ((name		  . "RIGHT PARENTHESIS")
+      (=ucs		  . #x0029)	; )
+      ))
     (=ucs		. #xFE36)	; ︶
     (=cns11643-1	. #x2141)	; &I-C1-2141; [01-33]
     (=big5		. #xA160)	; &I-B-A160;
@@ -79,7 +94,10 @@
     (general-category	punctuation open) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	vertical #x007B)
+    (<-vertical
+     ((name		  . "LEFT CURLY BRACKET")
+      (=ucs		  . #x007B)	; {
+      ))
     (=ucs		. #xFE37)	; ︷
     (=cns11643-1	. #x2144)	; &I-C1-2144; [01-36]
     (=big5		. #xA163)	; &I-B-A163;
@@ -89,7 +107,10 @@
     (general-category	punctuation close) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	vertical #x007D)
+    (<-vertical
+     ((name		  . "RIGHT CURLY BRACKET")
+      (=ucs		  . #x007D)	; }
+      ))
     (=ucs		. #xFE38)	; ︸
     (=cns11643-1	. #x2145)	; &I-C1-2145; [01-37]
     (=big5		. #xA164)	; &I-B-A164;
@@ -99,7 +120,10 @@
     (general-category	punctuation open) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	vertical #x3014)
+    (<-vertical
+     ((name		  . "LEFT TORTOISE SHELL BRACKET")
+      (=ucs		  . #x3014)	; 〔
+      ))
     (=ucs		. #xFE39)	; ︹
     (=cns11643-1	. #x2148)	; &I-C1-2148; [01-40]
     (=big5		. #xA167)	; &I-B-A167;
@@ -109,7 +133,10 @@
     (general-category	punctuation close) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	vertical #x3015)
+    (<-vertical
+     ((name		  . "RIGHT TORTOISE SHELL BRACKET")
+      (=ucs		  . #x3015)	; 〕
+      ))
     (=ucs		. #xFE3A)	; ︺
     (=cns11643-1	. #x2149)	; &I-C1-2149; [01-41]
     (=big5		. #xA168)	; &I-B-A168;
@@ -119,7 +146,10 @@
     (general-category	punctuation open) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	vertical #x3010)
+    (<-vertical
+     ((name		  . "LEFT BLACK LENTICULAR BRACKET")
+      (=ucs		  . #x3010)	; 【
+      ))
     (=ucs		. #xFE3B)	; ︻
     (=cns11643-1	. #x214C)	; &I-C1-214C; [01-44]
     (=big5		. #xA16B)	; &I-B-A16B;
@@ -129,7 +159,10 @@
     (general-category	punctuation close) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	vertical #x3011)
+    (<-vertical
+     ((name		  . "RIGHT BLACK LENTICULAR BRACKET")
+      (=ucs		  . #x3011)	; 】
+      ))
     (=ucs		. #xFE3C)	; ︼
     (=cns11643-1	. #x214D)	; &I-C1-214D; [01-45]
     (=big5		. #xA16C)	; &I-B-A16C;
@@ -139,7 +172,10 @@
     (general-category	punctuation open) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	vertical #x300A)
+    (<-vertical
+     ((name		  . "LEFT DOUBLE ANGLE BRACKET")
+      (=ucs		  . #x300A)	; 《
+      ))
     (=ucs		. #xFE3D)	; ︽
     (=cns11643-1	. #x2150)	; &I-C1-2150; [01-48]
     (=big5		. #xA16F)	; &I-B-A16F;
@@ -149,7 +185,10 @@
     (general-category	punctuation close) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	vertical #x300B)
+    (<-vertical
+     ((name		  . "RIGHT DOUBLE ANGLE BRACKET")
+      (=ucs		  . #x300B)	; 》
+      ))
     (=ucs		. #xFE3E)	; ︾
     (=cns11643-1	. #x2151)	; &I-C1-2151; [01-49]
     (=big5		. #xA170)	; &I-B-A170;
@@ -159,7 +198,10 @@
     (general-category	punctuation open) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	vertical #x3008)
+    (<-vertical
+     ((name		  . "LEFT ANGLE BRACKET")
+      (=ucs		  . #x3008)	; 〈
+      ))
     (=ucs		. #xFE3F)	; ︿
     (=cns11643-1	. #x2154)	; &I-C1-2154; [01-52]
     (=big5		. #xA173)	; &I-B-A173;
@@ -169,7 +211,10 @@
     (general-category	punctuation close) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	vertical #x3009)
+    (<-vertical
+     ((name		  . "RIGHT ANGLE BRACKET")
+      (=ucs		  . #x3009)	; 〉
+      ))
     (=ucs		. #xFE40)	; ﹀
     (=cns11643-1	. #x2155)	; &I-C1-2155; [01-53]
     (=big5		. #xA174)	; &I-B-A174;
@@ -179,7 +224,10 @@
     (general-category	punctuation open) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	vertical #x300C)
+    (<-vertical
+     ((name		  . "LEFT CORNER BRACKET")
+      (=ucs		  . #x300C)	; 「
+      ))
     (=ucs		. #xFE41)	; ﹁
     (=cns11643-1	. #x2158)	; &I-C1-2158; [01-56]
     (=big5		. #xA177)	; &I-B-A177;
@@ -189,7 +237,10 @@
     (general-category	punctuation close) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	vertical #x300D)
+    (<-vertical
+     ((name		  . "RIGHT CORNER BRACKET")
+      (=ucs		  . #x300D)	; 」
+      ))
     (=ucs		. #xFE42)	; ﹂
     (=cns11643-1	. #x2159)	; &I-C1-2159; [01-57]
     (=big5		. #xA178)	; &I-B-A178;
@@ -199,7 +250,10 @@
     (general-category	punctuation open) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	vertical #x300E)
+    (<-vertical
+     ((name		  . "LEFT WHITE CORNER BRACKET")
+      (=ucs		  . #x300E)	; 『
+      ))
     (=ucs		. #xFE43)	; ﹃
     (=cns11643-1	. #x215C)	; &I-C1-215C; [01-60]
     (=big5		. #xA17B)	; &I-B-A17B;
@@ -209,7 +263,10 @@
     (general-category	punctuation close) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	vertical #x300F)
+    (<-vertical
+     ((name		  . "RIGHT WHITE CORNER BRACKET")
+      (=ucs		  . #x300F)	; 』
+      ))
     (=ucs		. #xFE44)	; ﹄
     (=cns11643-1	. #x215D)	; &I-C1-215D; [01-61]
     (=big5		. #xA17C)	; &I-B-A17C;
@@ -229,7 +286,10 @@
     (general-category	punctuation other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	compat #x203E)
+    (<-compat
+     ((name		  . "OVERLINE")
+      (=ucs		  . #x203E)	; ‾
+      ))
     (=ucs		. #xFE49)	; ﹉
     (=cns11643-1	. #x2227)	; &I-C1-2227; [02-07]
     (=big5		. #xA1C6)	; &I-B-A1C6;
@@ -239,7 +299,10 @@
     (general-category	punctuation other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	compat #x203E)
+    (<-compat
+     ((name		  . "OVERLINE")
+      (=ucs		  . #x203E)	; ‾
+      ))
     (=ucs		. #xFE4A)	; ﹊
     (=cns11643-1	. #x2228)	; &I-C1-2228; [02-08]
     (=big5		. #xA1C7)	; &I-B-A1C7;
@@ -249,7 +312,10 @@
     (general-category	punctuation other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	compat #x203E)
+    (<-compat
+     ((name		  . "OVERLINE")
+      (=ucs		  . #x203E)	; ‾
+      ))
     (=ucs		. #xFE4B)	; ﹋
     (=cns11643-1	. #x222B)	; &I-C1-222B; [02-11]
     (=big5		. #xA1CA)	; &I-B-A1CA;
@@ -259,7 +325,10 @@
     (general-category	punctuation other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	compat #x203E)
+    (<-compat
+     ((name		  . "OVERLINE")
+      (=ucs		  . #x203E)	; ‾
+      ))
     (=ucs		. #xFE4C)	; ﹌
     (=cns11643-1	. #x222C)	; &I-C1-222C; [02-12]
     (=big5		. #xA1CB)	; &I-B-A1CB;
@@ -269,7 +338,10 @@
     (general-category	punctuation connector) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	compat #x005F)
+    (<-compat
+     ((name		  . "LOW LINE")
+      (=ucs		  . #x005F)	; _
+      ))
     (=ucs		. #xFE4D)	; ﹍
     (=cns11643-1	. #x2229)	; &I-C1-2229; [02-09]
     (=big5		. #xA1C8)	; &I-B-A1C8;
@@ -279,7 +351,10 @@
     (general-category	punctuation connector) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	compat #x005F)
+    (<-compat
+     ((name		  . "LOW LINE")
+      (=ucs		  . #x005F)	; _
+      ))
     (=ucs		. #xFE4E)	; ﹎
     (=cns11643-1	. #x222A)	; &I-C1-222A; [02-10]
     (=big5		. #xA1C9)	; &I-B-A1C9;
@@ -289,15 +364,11 @@
     (general-category	punctuation connector) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	compat #x005F)
+    (<-compat
+     ((name		  . "LOW LINE")
+      (=ucs		  . #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;
     ))