- Use `<-vertical' instead of `->decomposition' for compatibility

  mapping to single character tagged `vertical'.
- Use `<-compat' instead of `->decomposition' for compatibility
  mapping to single character.

diff --git a/lisp/utf-2000/u0FE30-CJK-Compatibility-Forms.el b/lisp/utf-2000/u0FE30-CJK-Compatibility-Forms.el
index f61067e..ffeb3e2 100644 (file)
--- 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,7 +42,10 @@
     (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;
@@ -43,7 +55,10 @@
     (general-category  punctuation connector) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
-    (->decomposition   vertical #x005F)
+    (<-vertical
+     ((name              . "LOW LINE")
+      (=ucs              . #x005F)     ; _
+      ))
     (=ucs              . #xFE34)       ; ︴
     (=cns11643-1       . #x213C)       ; &I-C1-213C; [01-28]
     (=big5             . #xA15B)       ; &I-B-A15B;
@@ -53,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;
@@ -63,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;
@@ -73,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;
@@ -83,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;
@@ -93,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;
@@ -103,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;
@@ -113,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;
@@ -123,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;
@@ -133,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;
@@ -143,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;
@@ -153,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;
@@ -163,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;
@@ -173,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;
@@ -183,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;
@@ -193,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;
@@ -203,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;
@@ -223,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;
@@ -233,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;
@@ -243,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;
@@ -253,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;
@@ -263,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;
@@ -273,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;
@@ -283,7 +364,10 @@
     (general-category  punctuation connector) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
-    (->decomposition   compat #x005F)
+    (<-compat
+     ((name              . "LOW LINE")
+      (=ucs              . #x005F)     ; _
+      ))
     (=ucs              . #xFE4F)       ; ﹏
     (=cns11643-1       . #x213D)       ; &I-C1-213D; [01-29]
     (=big5             . #xA15C)       ; &I-B-A15C;