X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2Fu02150-Number-Forms.el;h=523e6573d88b1a5c7f3fe01db309d57cd76eacf5;hb=a8b2ee36ac6507f5568b2ded4c36474496e2b8cd;hp=a2018543314af096dcbfae13b468a3c0a186e50b;hpb=ed79ca47b430a917433a5f779c37c2f7c8ee11ba;p=chise%2Fxemacs-chise.git-

diff --git a/lisp/utf-2000/u02150-Number-Forms.el b/lisp/utf-2000/u02150-Number-Forms.el
index a201854..523e657 100644
--- a/lisp/utf-2000/u02150-Number-Forms.el
+++ b/lisp/utf-2000/u02150-Number-Forms.el
@@ -5,7 +5,16 @@
     (bidi-category	. "ON")
     (mirrored		. nil)
     (numeric-value	. 1/3)
-    (->decomposition	fraction #x0031 #x2044 #x0033)
+    (=>decomposition@fraction
+     ((name		  . "DIGIT ONE")
+      (=ucs		  . #x0031)	; 1
+      )
+     ((name		  . "FRACTION SLASH")
+      (=ucs		  . #x2044)	; ⁄
+      )
+     ((name		  . "DIGIT THREE")
+      (=ucs		  . #x0033)	; 3
+      ))
     (=ucs		. #x2153)	; ⅓
     (=ks-x1001		. #x2877)	; &I-K0-2877; [08-87]
     (=jis-x0213-1-2000	. #x2778)	; &I-JX1-2778; [07-88]
@@ -16,7 +25,16 @@
     (bidi-category	. "ON")
     (mirrored		. nil)
     (numeric-value	. 2/3)
-    (->decomposition	fraction #x0032 #x2044 #x0033)
+    (=>decomposition@fraction
+     ((name		  . "DIGIT TWO")
+      (=ucs		  . #x0032)	; 2
+      )
+     ((name		  . "FRACTION SLASH")
+      (=ucs		  . #x2044)	; ⁄
+      )
+     ((name		  . "DIGIT THREE")
+      (=ucs		  . #x0033)	; 3
+      ))
     (=ucs		. #x2154)	; ⅔
     (=ks-x1001		. #x2878)	; &I-K0-2878; [08-88]
     (=jis-x0213-1-2000	. #x2779)	; &I-JX1-2779; [07-89]
@@ -27,7 +45,16 @@
     (bidi-category	. "ON")
     (mirrored		. nil)
     (numeric-value	. 1/5)
-    (->decomposition	fraction #x0031 #x2044 #x0035)
+    (=>decomposition@fraction
+     ((name		  . "DIGIT ONE")
+      (=ucs		  . #x0031)	; 1
+      )
+     ((name		  . "FRACTION SLASH")
+      (=ucs		  . #x2044)	; ⁄
+      )
+     ((name		  . "DIGIT FIVE")
+      (=ucs		  . #x0035)	; 5
+      ))
     (=ucs		. #x2155)	; ⅕
     (=jis-x0213-1-2000	. #x277A)	; &I-JX1-277A; [07-90]
     ))
@@ -37,7 +64,16 @@
     (bidi-category	. "ON")
     (mirrored		. nil)
     (numeric-value	. 2/5)
-    (->decomposition	fraction #x0032 #x2044 #x0035)
+    (=>decomposition@fraction
+     ((name		  . "DIGIT TWO")
+      (=ucs		  . #x0032)	; 2
+      )
+     ((name		  . "FRACTION SLASH")
+      (=ucs		  . #x2044)	; ⁄
+      )
+     ((name		  . "DIGIT FIVE")
+      (=ucs		  . #x0035)	; 5
+      ))
     (=ucs		. #x2156)	; ⅖
     ))
 (define-char
@@ -46,7 +82,16 @@
     (bidi-category	. "ON")
     (mirrored		. nil)
     (numeric-value	. 3/5)
-    (->decomposition	fraction #x0033 #x2044 #x0035)
+    (=>decomposition@fraction
+     ((name		  . "DIGIT THREE")
+      (=ucs		  . #x0033)	; 3
+      )
+     ((name		  . "FRACTION SLASH")
+      (=ucs		  . #x2044)	; ⁄
+      )
+     ((name		  . "DIGIT FIVE")
+      (=ucs		  . #x0035)	; 5
+      ))
     (=ucs		. #x2157)	; ⅗
     ))
 (define-char
@@ -55,7 +100,16 @@
     (bidi-category	. "ON")
     (mirrored		. nil)
     (numeric-value	. 4/5)
-    (->decomposition	fraction #x0034 #x2044 #x0035)
+    (=>decomposition@fraction
+     ((name		  . "DIGIT FOUR")
+      (=ucs		  . #x0034)	; 4
+      )
+     ((name		  . "FRACTION SLASH")
+      (=ucs		  . #x2044)	; ⁄
+      )
+     ((name		  . "DIGIT FIVE")
+      (=ucs		  . #x0035)	; 5
+      ))
     (=ucs		. #x2158)	; ⅘
     ))
 (define-char
@@ -64,7 +118,16 @@
     (bidi-category	. "ON")
     (mirrored		. nil)
     (numeric-value	. 1/6)
-    (->decomposition	fraction #x0031 #x2044 #x0036)
+    (=>decomposition@fraction
+     ((name		  . "DIGIT ONE")
+      (=ucs		  . #x0031)	; 1
+      )
+     ((name		  . "FRACTION SLASH")
+      (=ucs		  . #x2044)	; ⁄
+      )
+     ((name		  . "DIGIT SIX")
+      (=ucs		  . #x0036)	; 6
+      ))
     (=ucs		. #x2159)	; ⅙
     ))
 (define-char
@@ -73,7 +136,16 @@
     (bidi-category	. "ON")
     (mirrored		. nil)
     (numeric-value	. 5/6)
-    (->decomposition	fraction #x0035 #x2044 #x0036)
+    (=>decomposition@fraction
+     ((name		  . "DIGIT FIVE")
+      (=ucs		  . #x0035)	; 5
+      )
+     ((name		  . "FRACTION SLASH")
+      (=ucs		  . #x2044)	; ⁄
+      )
+     ((name		  . "DIGIT SIX")
+      (=ucs		  . #x0036)	; 6
+      ))
     (=ucs		. #x215A)	; ⅚
     ))
 (define-char
@@ -82,7 +154,16 @@
     (bidi-category	. "ON")
     (mirrored		. nil)
     (numeric-value	. 1/8)
-    (->decomposition	fraction #x0031 #x2044 #x0038)
+    (=>decomposition@fraction
+     ((name		  . "DIGIT ONE")
+      (=ucs		  . #x0031)	; 1
+      )
+     ((name		  . "FRACTION SLASH")
+      (=ucs		  . #x2044)	; ⁄
+      )
+     ((name		  . "DIGIT EIGHT")
+      (=ucs		  . #x0038)	; 8
+      ))
     (=ucs		. #x215B)	; ⅛
     (=ks-x1001		. #x287B)	; &I-K0-287B; [08-91]
     ))
@@ -92,7 +173,16 @@
     (bidi-category	. "ON")
     (mirrored		. nil)
     (numeric-value	. 3/8)
-    (->decomposition	fraction #x0033 #x2044 #x0038)
+    (=>decomposition@fraction
+     ((name		  . "DIGIT THREE")
+      (=ucs		  . #x0033)	; 3
+      )
+     ((name		  . "FRACTION SLASH")
+      (=ucs		  . #x2044)	; ⁄
+      )
+     ((name		  . "DIGIT EIGHT")
+      (=ucs		  . #x0038)	; 8
+      ))
     (=ucs		. #x215C)	; ⅜
     (=ks-x1001		. #x287C)	; &I-K0-287C; [08-92]
     ))
@@ -102,7 +192,16 @@
     (bidi-category	. "ON")
     (mirrored		. nil)
     (numeric-value	. 5/8)
-    (->decomposition	fraction #x0035 #x2044 #x0038)
+    (=>decomposition@fraction
+     ((name		  . "DIGIT FIVE")
+      (=ucs		  . #x0035)	; 5
+      )
+     ((name		  . "FRACTION SLASH")
+      (=ucs		  . #x2044)	; ⁄
+      )
+     ((name		  . "DIGIT EIGHT")
+      (=ucs		  . #x0038)	; 8
+      ))
     (=ucs		. #x215D)	; ⅝
     (=ks-x1001		. #x287D)	; &I-K0-287D; [08-93]
     ))
@@ -112,7 +211,16 @@
     (bidi-category	. "ON")
     (mirrored		. nil)
     (numeric-value	. 7/8)
-    (->decomposition	fraction #x0037 #x2044 #x0038)
+    (=>decomposition@fraction
+     ((name		  . "DIGIT SEVEN")
+      (=ucs		  . #x0037)	; 7
+      )
+     ((name		  . "FRACTION SLASH")
+      (=ucs		  . #x2044)	; ⁄
+      )
+     ((name		  . "DIGIT EIGHT")
+      (=ucs		  . #x0038)	; 8
+      ))
     (=ucs		. #x215E)	; ⅞
     (=ks-x1001		. #x287E)	; &I-K0-287E; [08-94]
     ))
@@ -122,7 +230,13 @@
     (bidi-category	. "ON")
     (mirrored		. nil)
     (numeric-value	. 1)
-    (->decomposition	fraction #x0031 #x2044)
+    (=>decomposition@fraction
+     ((name		  . "DIGIT ONE")
+      (=ucs		  . #x0031)	; 1
+      )
+     ((name		  . "FRACTION SLASH")
+      (=ucs		  . #x2044)	; ⁄
+      ))
     (=ucs		. #x215F)	; ⅟
     ))
 (define-char
@@ -131,11 +245,14 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 1)
-    (->decomposition	compat #x0049)
     (->lowercase
      ((name		  . "SMALL ROMAN NUMERAL ONE")
       (=ucs		  . #x2170)	; ⅰ
       ))
+    (<-compat/Roman-Numeral
+     ((name		  . "LATIN CAPITAL LETTER I")
+      (=ucs		  . #x0049)	; I
+      ))
     (=ucs		. #x2160)	; Ⅰ
     (=gb2312		. #x2271)	; &I-G0-2271; [02-81]
     (=ks-x1001		. #x2530)	; &I-K0-2530; [05-16]
@@ -150,11 +267,17 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 2)
-    (->decomposition	compat #x0049 #x0049)
     (->lowercase
      ((name		  . "SMALL ROMAN NUMERAL TWO")
       (=ucs		  . #x2171)	; ⅱ
       ))
+    (=>decomposition@compat/Roman-Numeral
+     ((name		  . "LATIN CAPITAL LETTER I")
+      (=ucs		  . #x0049)	; I
+      )
+     ((name		  . "LATIN CAPITAL LETTER I")
+      (=ucs		  . #x0049)	; I
+      ))
     (=ucs		. #x2161)	; Ⅱ
     (=gb2312		. #x2272)	; &I-G0-2272; [02-82]
     (=ks-x1001		. #x2531)	; &I-K0-2531; [05-17]
@@ -169,11 +292,20 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 3)
-    (->decomposition	compat #x0049 #x0049 #x0049)
     (->lowercase
      ((name		  . "SMALL ROMAN NUMERAL THREE")
       (=ucs		  . #x2172)	; ⅲ
       ))
+    (=>decomposition@compat/Roman-Numeral
+     ((name		  . "LATIN CAPITAL LETTER I")
+      (=ucs		  . #x0049)	; I
+      )
+     ((name		  . "LATIN CAPITAL LETTER I")
+      (=ucs		  . #x0049)	; I
+      )
+     ((name		  . "LATIN CAPITAL LETTER I")
+      (=ucs		  . #x0049)	; I
+      ))
     (=ucs		. #x2162)	; Ⅲ
     (=gb2312		. #x2273)	; &I-G0-2273; [02-83]
     (=ks-x1001		. #x2532)	; &I-K0-2532; [05-18]
@@ -188,11 +320,17 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 4)
-    (->decomposition	compat #x0049 #x0056)
     (->lowercase
      ((name		  . "SMALL ROMAN NUMERAL FOUR")
       (=ucs		  . #x2173)	; ⅳ
       ))
+    (=>decomposition@compat/Roman-Numeral
+     ((name		  . "LATIN CAPITAL LETTER I")
+      (=ucs		  . #x0049)	; I
+      )
+     ((name		  . "LATIN CAPITAL LETTER V")
+      (=ucs		  . #x0056)	; V
+      ))
     (=ucs		. #x2163)	; Ⅳ
     (=gb2312		. #x2274)	; &I-G0-2274; [02-84]
     (=ks-x1001		. #x2533)	; &I-K0-2533; [05-19]
@@ -207,11 +345,14 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 5)
-    (->decomposition	compat #x0056)
     (->lowercase
      ((name		  . "SMALL ROMAN NUMERAL FIVE")
       (=ucs		  . #x2174)	; ⅴ
       ))
+    (<-compat/Roman-Numeral
+     ((name		  . "LATIN CAPITAL LETTER V")
+      (=ucs		  . #x0056)	; V
+      ))
     (=ucs		. #x2164)	; Ⅴ
     (=gb2312		. #x2275)	; &I-G0-2275; [02-85]
     (=ks-x1001		. #x2534)	; &I-K0-2534; [05-20]
@@ -226,11 +367,17 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 6)
-    (->decomposition	compat #x0056 #x0049)
     (->lowercase
      ((name		  . "SMALL ROMAN NUMERAL SIX")
       (=ucs		  . #x2175)	; ⅵ
       ))
+    (=>decomposition@compat/Roman-Numeral
+     ((name		  . "LATIN CAPITAL LETTER V")
+      (=ucs		  . #x0056)	; V
+      )
+     ((name		  . "LATIN CAPITAL LETTER I")
+      (=ucs		  . #x0049)	; I
+      ))
     (=ucs		. #x2165)	; Ⅵ
     (=gb2312		. #x2276)	; &I-G0-2276; [02-86]
     (=ks-x1001		. #x2535)	; &I-K0-2535; [05-21]
@@ -245,11 +392,20 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 7)
-    (->decomposition	compat #x0056 #x0049 #x0049)
     (->lowercase
      ((name		  . "SMALL ROMAN NUMERAL SEVEN")
       (=ucs		  . #x2176)	; ⅶ
       ))
+    (=>decomposition@compat/Roman-Numeral
+     ((name		  . "LATIN CAPITAL LETTER V")
+      (=ucs		  . #x0056)	; V
+      )
+     ((name		  . "LATIN CAPITAL LETTER I")
+      (=ucs		  . #x0049)	; I
+      )
+     ((name		  . "LATIN CAPITAL LETTER I")
+      (=ucs		  . #x0049)	; I
+      ))
     (=ucs		. #x2166)	; Ⅶ
     (=gb2312		. #x2277)	; &I-G0-2277; [02-87]
     (=ks-x1001		. #x2536)	; &I-K0-2536; [05-22]
@@ -264,11 +420,23 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 8)
-    (->decomposition	compat #x0056 #x0049 #x0049 #x0049)
     (->lowercase
      ((name		  . "SMALL ROMAN NUMERAL EIGHT")
       (=ucs		  . #x2177)	; ⅷ
       ))
+    (=>decomposition@compat/Roman-Numeral
+     ((name		  . "LATIN CAPITAL LETTER V")
+      (=ucs		  . #x0056)	; V
+      )
+     ((name		  . "LATIN CAPITAL LETTER I")
+      (=ucs		  . #x0049)	; I
+      )
+     ((name		  . "LATIN CAPITAL LETTER I")
+      (=ucs		  . #x0049)	; I
+      )
+     ((name		  . "LATIN CAPITAL LETTER I")
+      (=ucs		  . #x0049)	; I
+      ))
     (=ucs		. #x2167)	; Ⅷ
     (=gb2312		. #x2278)	; &I-G0-2278; [02-88]
     (=ks-x1001		. #x2537)	; &I-K0-2537; [05-23]
@@ -283,11 +451,17 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 9)
-    (->decomposition	compat #x0049 #x0058)
     (->lowercase
      ((name		  . "SMALL ROMAN NUMERAL NINE")
       (=ucs		  . #x2178)	; ⅸ
       ))
+    (=>decomposition@compat/Roman-Numeral
+     ((name		  . "LATIN CAPITAL LETTER I")
+      (=ucs		  . #x0049)	; I
+      )
+     ((name		  . "LATIN CAPITAL LETTER X")
+      (=ucs		  . #x0058)	; X
+      ))
     (=ucs		. #x2168)	; Ⅸ
     (=gb2312		. #x2279)	; &I-G0-2279; [02-89]
     (=ks-x1001		. #x2538)	; &I-K0-2538; [05-24]
@@ -302,11 +476,14 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 10)
-    (->decomposition	compat #x0058)
     (->lowercase
      ((name		  . "SMALL ROMAN NUMERAL TEN")
       (=ucs		  . #x2179)	; ⅹ
       ))
+    (<-compat/Roman-Numeral
+     ((name		  . "LATIN CAPITAL LETTER X")
+      (=ucs		  . #x0058)	; X
+      ))
     (=ucs		. #x2169)	; Ⅹ
     (=gb2312		. #x227A)	; &I-G0-227A; [02-90]
     (=ks-x1001		. #x2539)	; &I-K0-2539; [05-25]
@@ -321,11 +498,17 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 11)
-    (->decomposition	compat #x0058 #x0049)
     (->lowercase
      ((name		  . "SMALL ROMAN NUMERAL ELEVEN")
       (=ucs		  . #x217A)	; ⅺ
       ))
+    (=>decomposition@compat/Roman-Numeral
+     ((name		  . "LATIN CAPITAL LETTER X")
+      (=ucs		  . #x0058)	; X
+      )
+     ((name		  . "LATIN CAPITAL LETTER I")
+      (=ucs		  . #x0049)	; I
+      ))
     (=ucs		. #x216A)	; Ⅺ
     (=gb2312		. #x227B)	; &I-G0-227B; [02-91]
     (=jis-x0213-1-2000	. #x2D3F)	; &I-JX1-2D3F; [13-31]
@@ -336,11 +519,20 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 12)
-    (->decomposition	compat #x0058 #x0049 #x0049)
     (->lowercase
      ((name		  . "SMALL ROMAN NUMERAL TWELVE")
       (=ucs		  . #x217B)	; ⅻ
       ))
+    (=>decomposition@compat/Roman-Numeral
+     ((name		  . "LATIN CAPITAL LETTER X")
+      (=ucs		  . #x0058)	; X
+      )
+     ((name		  . "LATIN CAPITAL LETTER I")
+      (=ucs		  . #x0049)	; I
+      )
+     ((name		  . "LATIN CAPITAL LETTER I")
+      (=ucs		  . #x0049)	; I
+      ))
     (=ucs		. #x216B)	; Ⅻ
     (=gb2312		. #x227C)	; &I-G0-227C; [02-92]
     (=jis-x0213-1-2000	. #x2D57)	; &I-JX1-2D57; [13-55]
@@ -351,11 +543,14 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 50)
-    (->decomposition	compat #x004C)
     (->lowercase
      ((name		  . "SMALL ROMAN NUMERAL FIFTY")
       (=ucs		  . #x217C)	; ⅼ
       ))
+    (<-compat/Roman-Numeral
+     ((name		  . "LATIN CAPITAL LETTER L")
+      (=ucs		  . #x004C)	; L
+      ))
     (=ucs		. #x216C)	; Ⅼ
     ))
 (define-char
@@ -364,11 +559,14 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 100)
-    (->decomposition	compat #x0043)
     (->lowercase
      ((name		  . "SMALL ROMAN NUMERAL ONE HUNDRED")
       (=ucs		  . #x217D)	; ⅽ
       ))
+    (<-compat/Roman-Numeral
+     ((name		  . "LATIN CAPITAL LETTER C")
+      (=ucs		  . #x0043)	; C
+      ))
     (=ucs		. #x216D)	; Ⅽ
     ))
 (define-char
@@ -377,11 +575,14 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 500)
-    (->decomposition	compat #x0044)
     (->lowercase
      ((name		  . "SMALL ROMAN NUMERAL FIVE HUNDRED")
       (=ucs		  . #x217E)	; ⅾ
       ))
+    (<-compat/Roman-Numeral
+     ((name		  . "LATIN CAPITAL LETTER D")
+      (=ucs		  . #x0044)	; D
+      ))
     (=ucs		. #x216E)	; Ⅾ
     ))
 (define-char
@@ -390,11 +591,14 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 1000)
-    (->decomposition	compat #x004D)
     (->lowercase
      ((name		  . "SMALL ROMAN NUMERAL ONE THOUSAND")
       (=ucs		  . #x217F)	; ⅿ
       ))
+    (<-compat/Roman-Numeral
+     ((name		  . "LATIN CAPITAL LETTER M")
+      (=ucs		  . #x004D)	; M
+      ))
     (=ucs		. #x216F)	; Ⅿ
     ))
 (define-char
@@ -403,11 +607,14 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 1)
-    (->decomposition	compat #x0069)
     (->uppercase
      ((name		  . "ROMAN NUMERAL ONE")
       (=ucs		  . #x2160)	; Ⅰ
       ))
+    (<-compat/Roman-Numeral
+     ((name		  . "LATIN SMALL LETTER I")
+      (=ucs		  . #x0069)	; i
+      ))
     (=ucs		. #x2170)	; ⅰ
     (=ks-x1001		. #x2521)	; &I-K0-2521; [05-01]
     (=cns11643-1	. #x2635)	; &I-C1-2635; [06-21]
@@ -421,11 +628,17 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 2)
-    (->decomposition	compat #x0069 #x0069)
     (->uppercase
      ((name		  . "ROMAN NUMERAL TWO")
       (=ucs		  . #x2161)	; Ⅱ
       ))
+    (=>decomposition@compat/Roman-Numeral
+     ((name		  . "LATIN SMALL LETTER I")
+      (=ucs		  . #x0069)	; i
+      )
+     ((name		  . "LATIN SMALL LETTER I")
+      (=ucs		  . #x0069)	; i
+      ))
     (=ucs		. #x2171)	; ⅱ
     (=ks-x1001		. #x2522)	; &I-K0-2522; [05-02]
     (=cns11643-1	. #x2636)	; &I-C1-2636; [06-22]
@@ -439,11 +652,20 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 3)
-    (->decomposition	compat #x0069 #x0069 #x0069)
     (->uppercase
      ((name		  . "ROMAN NUMERAL THREE")
       (=ucs		  . #x2162)	; Ⅲ
       ))
+    (=>decomposition@compat/Roman-Numeral
+     ((name		  . "LATIN SMALL LETTER I")
+      (=ucs		  . #x0069)	; i
+      )
+     ((name		  . "LATIN SMALL LETTER I")
+      (=ucs		  . #x0069)	; i
+      )
+     ((name		  . "LATIN SMALL LETTER I")
+      (=ucs		  . #x0069)	; i
+      ))
     (=ucs		. #x2172)	; ⅲ
     (=ks-x1001		. #x2523)	; &I-K0-2523; [05-03]
     (=cns11643-1	. #x2637)	; &I-C1-2637; [06-23]
@@ -457,11 +679,17 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 4)
-    (->decomposition	compat #x0069 #x0076)
     (->uppercase
      ((name		  . "ROMAN NUMERAL FOUR")
       (=ucs		  . #x2163)	; Ⅳ
       ))
+    (=>decomposition@compat/Roman-Numeral
+     ((name		  . "LATIN SMALL LETTER I")
+      (=ucs		  . #x0069)	; i
+      )
+     ((name		  . "LATIN SMALL LETTER V")
+      (=ucs		  . #x0076)	; v
+      ))
     (=ucs		. #x2173)	; ⅳ
     (=ks-x1001		. #x2524)	; &I-K0-2524; [05-04]
     (=cns11643-1	. #x2638)	; &I-C1-2638; [06-24]
@@ -475,11 +703,14 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 5)
-    (->decomposition	compat #x0076)
     (->uppercase
      ((name		  . "ROMAN NUMERAL FIVE")
       (=ucs		  . #x2164)	; Ⅴ
       ))
+    (<-compat/Roman-Numeral
+     ((name		  . "LATIN SMALL LETTER V")
+      (=ucs		  . #x0076)	; v
+      ))
     (=ucs		. #x2174)	; ⅴ
     (=ks-x1001		. #x2525)	; &I-K0-2525; [05-05]
     (=cns11643-1	. #x2639)	; &I-C1-2639; [06-25]
@@ -493,11 +724,17 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 6)
-    (->decomposition	compat #x0076 #x0069)
     (->uppercase
      ((name		  . "ROMAN NUMERAL SIX")
       (=ucs		  . #x2165)	; Ⅵ
       ))
+    (=>decomposition@compat/Roman-Numeral
+     ((name		  . "LATIN SMALL LETTER V")
+      (=ucs		  . #x0076)	; v
+      )
+     ((name		  . "LATIN SMALL LETTER I")
+      (=ucs		  . #x0069)	; i
+      ))
     (=ucs		. #x2175)	; ⅵ
     (=ks-x1001		. #x2526)	; &I-K0-2526; [05-06]
     (=cns11643-1	. #x263A)	; &I-C1-263A; [06-26]
@@ -511,11 +748,20 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 7)
-    (->decomposition	compat #x0076 #x0069 #x0069)
     (->uppercase
      ((name		  . "ROMAN NUMERAL SEVEN")
       (=ucs		  . #x2166)	; Ⅶ
       ))
+    (=>decomposition@compat/Roman-Numeral
+     ((name		  . "LATIN SMALL LETTER V")
+      (=ucs		  . #x0076)	; v
+      )
+     ((name		  . "LATIN SMALL LETTER I")
+      (=ucs		  . #x0069)	; i
+      )
+     ((name		  . "LATIN SMALL LETTER I")
+      (=ucs		  . #x0069)	; i
+      ))
     (=ucs		. #x2176)	; ⅶ
     (=ks-x1001		. #x2527)	; &I-K0-2527; [05-07]
     (=cns11643-1	. #x263B)	; &I-C1-263B; [06-27]
@@ -529,11 +775,23 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 8)
-    (->decomposition	compat #x0076 #x0069 #x0069 #x0069)
     (->uppercase
      ((name		  . "ROMAN NUMERAL EIGHT")
       (=ucs		  . #x2167)	; Ⅷ
       ))
+    (=>decomposition@compat/Roman-Numeral
+     ((name		  . "LATIN SMALL LETTER V")
+      (=ucs		  . #x0076)	; v
+      )
+     ((name		  . "LATIN SMALL LETTER I")
+      (=ucs		  . #x0069)	; i
+      )
+     ((name		  . "LATIN SMALL LETTER I")
+      (=ucs		  . #x0069)	; i
+      )
+     ((name		  . "LATIN SMALL LETTER I")
+      (=ucs		  . #x0069)	; i
+      ))
     (=ucs		. #x2177)	; ⅷ
     (=ks-x1001		. #x2528)	; &I-K0-2528; [05-08]
     (=cns11643-1	. #x263C)	; &I-C1-263C; [06-28]
@@ -547,11 +805,17 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 9)
-    (->decomposition	compat #x0069 #x0078)
     (->uppercase
      ((name		  . "ROMAN NUMERAL NINE")
       (=ucs		  . #x2168)	; Ⅸ
       ))
+    (=>decomposition@compat/Roman-Numeral
+     ((name		  . "LATIN SMALL LETTER I")
+      (=ucs		  . #x0069)	; i
+      )
+     ((name		  . "LATIN SMALL LETTER X")
+      (=ucs		  . #x0078)	; x
+      ))
     (=ucs		. #x2178)	; ⅸ
     (=ks-x1001		. #x2529)	; &I-K0-2529; [05-09]
     (=cns11643-1	. #x263D)	; &I-C1-263D; [06-29]
@@ -565,11 +829,14 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 10)
-    (->decomposition	compat #x0078)
     (->uppercase
      ((name		  . "ROMAN NUMERAL TEN")
       (=ucs		  . #x2169)	; Ⅹ
       ))
+    (<-compat/Roman-Numeral
+     ((name		  . "LATIN SMALL LETTER X")
+      (=ucs		  . #x0078)	; x
+      ))
     (=ucs		. #x2179)	; ⅹ
     (=ks-x1001		. #x252A)	; &I-K0-252A; [05-10]
     (=cns11643-1	. #x263E)	; &I-C1-263E; [06-30]
@@ -583,11 +850,17 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 11)
-    (->decomposition	compat #x0078 #x0069)
     (->uppercase
      ((name		  . "ROMAN NUMERAL ELEVEN")
       (=ucs		  . #x216A)	; Ⅺ
       ))
+    (=>decomposition@compat/Roman-Numeral
+     ((name		  . "LATIN SMALL LETTER X")
+      (=ucs		  . #x0078)	; x
+      )
+     ((name		  . "LATIN SMALL LETTER I")
+      (=ucs		  . #x0069)	; i
+      ))
     (=ucs		. #x217A)	; ⅺ
     (=jis-x0213-1-2000	. #x2C3F)	; &I-JX1-2C3F; [12-31]
     ))
@@ -597,11 +870,20 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 12)
-    (->decomposition	compat #x0078 #x0069 #x0069)
     (->uppercase
      ((name		  . "ROMAN NUMERAL TWELVE")
       (=ucs		  . #x216B)	; Ⅻ
       ))
+    (=>decomposition@compat/Roman-Numeral
+     ((name		  . "LATIN SMALL LETTER X")
+      (=ucs		  . #x0078)	; x
+      )
+     ((name		  . "LATIN SMALL LETTER I")
+      (=ucs		  . #x0069)	; i
+      )
+     ((name		  . "LATIN SMALL LETTER I")
+      (=ucs		  . #x0069)	; i
+      ))
     (=ucs		. #x217B)	; ⅻ
     (=jis-x0213-1-2000	. #x2C40)	; &I-JX1-2C40; [12-32]
     ))
@@ -611,11 +893,14 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 50)
-    (->decomposition	compat #x006C)
     (->uppercase
      ((name		  . "ROMAN NUMERAL FIFTY")
       (=ucs		  . #x216C)	; Ⅼ
       ))
+    (<-compat/Roman-Numeral
+     ((name		  . "LATIN SMALL LETTER L")
+      (=ucs		  . #x006C)	; l
+      ))
     (=ucs		. #x217C)	; ⅼ
     ))
 (define-char
@@ -624,11 +909,14 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 100)
-    (->decomposition	compat #x0063)
     (->uppercase
      ((name		  . "ROMAN NUMERAL ONE HUNDRED")
       (=ucs		  . #x216D)	; Ⅽ
       ))
+    (<-compat/Roman-Numeral
+     ((name		  . "LATIN SMALL LETTER C")
+      (=ucs		  . #x0063)	; c
+      ))
     (=ucs		. #x217D)	; ⅽ
     ))
 (define-char
@@ -637,11 +925,14 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 500)
-    (->decomposition	compat #x0064)
     (->uppercase
      ((name		  . "ROMAN NUMERAL FIVE HUNDRED")
       (=ucs		  . #x216E)	; Ⅾ
       ))
+    (<-compat/Roman-Numeral
+     ((name		  . "LATIN SMALL LETTER D")
+      (=ucs		  . #x0064)	; d
+      ))
     (=ucs		. #x217E)	; ⅾ
     ))
 (define-char
@@ -650,11 +941,14 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 1000)
-    (->decomposition	compat #x006D)
     (->uppercase
      ((name		  . "ROMAN NUMERAL ONE THOUSAND")
       (=ucs		  . #x216F)	; Ⅿ
       ))
+    (<-compat/Roman-Numeral
+     ((name		  . "LATIN SMALL LETTER M")
+      (=ucs		  . #x006D)	; m
+      ))
     (=ucs		. #x217F)	; ⅿ
     ))
 (define-char