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

diff --git a/lisp/utf-2000/u02150-Number-Forms.el b/lisp/utf-2000/u02150-Number-Forms.el
index a201854..c61fca1 100644
--- a/lisp/utf-2000/u02150-Number-Forms.el
+++ b/lisp/utf-2000/u02150-Number-Forms.el
@@ -5,10 +5,19 @@
     (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]
+    (=jis-x0213-1	. #x2778)	; &I-JX1-2778; [07-88]
     ))
 (define-char
   '((name		. "VULGAR FRACTION TWO THIRDS")
@@ -16,10 +25,19 @@
     (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]
+    (=jis-x0213-1	. #x2779)	; &I-JX1-2779; [07-89]
     ))
 (define-char
   '((name		. "VULGAR FRACTION ONE FIFTH")
@@ -27,9 +45,18 @@
     (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]
+    (=jis-x0213-1	. #x277A)	; &I-JX1-277A; [07-90]
     ))
 (define-char
   '((name		. "VULGAR FRACTION TWO FIFTHS")
@@ -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,18 +245,21 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 1)
-    (->decomposition	compat #x0049)
-    (->lowercase
-     ((name		  . "SMALL ROMAN NUMERAL ONE")
-      (=ucs		  . #x2170)	; ⅰ
-      ))
     (=ucs		. #x2160)	; Ⅰ
     (=gb2312		. #x2271)	; &I-G0-2271; [02-81]
     (=ks-x1001		. #x2530)	; &I-K0-2530; [05-16]
     (=cns11643-1	. #x242B)	; &I-C1-242B; [04-11]
-    (=jis-x0213-1-2000	. #x2D35)	; &I-JX1-2D35; [13-21]
+    (=jis-x0213-1	. #x2D35)	; &I-JX1-2D35; [13-21]
     (=big5		. #xA2B9)	; &I-B-A2B9;
     (=jef-china3	. #x77DE)	; &I-JC3-77DE;
+    (<-compat/Roman-Numeral
+     ((name		  . "LATIN CAPITAL LETTER I")
+      (=ucs		  . #x0049)	; I
+      ))
+    (->lowercase
+     ((name		  . "SMALL ROMAN NUMERAL ONE")
+      (=ucs		  . #x2170)	; ⅰ
+      ))
     ))
 (define-char
   '((name		. "ROMAN NUMERAL TWO")
@@ -150,18 +267,24 @@
     (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]
     (=cns11643-1	. #x242C)	; &I-C1-242C; [04-12]
-    (=jis-x0213-1-2000	. #x2D36)	; &I-JX1-2D36; [13-22]
+    (=jis-x0213-1	. #x2D36)	; &I-JX1-2D36; [13-22]
     (=big5		. #xA2BA)	; &I-B-A2BA;
     (=jef-china3	. #x77DF)	; &I-JC3-77DF;
+    (->lowercase
+     ((name		  . "SMALL ROMAN NUMERAL TWO")
+      (=ucs		  . #x2171)	; ⅱ
+      ))
     ))
 (define-char
   '((name		. "ROMAN NUMERAL THREE")
@@ -169,18 +292,27 @@
     (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]
     (=cns11643-1	. #x242D)	; &I-C1-242D; [04-13]
-    (=jis-x0213-1-2000	. #x2D37)	; &I-JX1-2D37; [13-23]
+    (=jis-x0213-1	. #x2D37)	; &I-JX1-2D37; [13-23]
     (=big5		. #xA2BB)	; &I-B-A2BB;
     (=jef-china3	. #x77E0)	; &I-JC3-77E0;
+    (->lowercase
+     ((name		  . "SMALL ROMAN NUMERAL THREE")
+      (=ucs		  . #x2172)	; ⅲ
+      ))
     ))
 (define-char
   '((name		. "ROMAN NUMERAL FOUR")
@@ -188,18 +320,24 @@
     (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]
     (=cns11643-1	. #x242E)	; &I-C1-242E; [04-14]
-    (=jis-x0213-1-2000	. #x2D38)	; &I-JX1-2D38; [13-24]
+    (=jis-x0213-1	. #x2D38)	; &I-JX1-2D38; [13-24]
     (=big5		. #xA2BC)	; &I-B-A2BC;
     (=jef-china3	. #x77E1)	; &I-JC3-77E1;
+    (->lowercase
+     ((name		  . "SMALL ROMAN NUMERAL FOUR")
+      (=ucs		  . #x2173)	; ⅳ
+      ))
     ))
 (define-char
   '((name		. "ROMAN NUMERAL FIVE")
@@ -207,18 +345,21 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 5)
-    (->decomposition	compat #x0056)
-    (->lowercase
-     ((name		  . "SMALL ROMAN NUMERAL FIVE")
-      (=ucs		  . #x2174)	; ⅴ
-      ))
     (=ucs		. #x2164)	; Ⅴ
     (=gb2312		. #x2275)	; &I-G0-2275; [02-85]
     (=ks-x1001		. #x2534)	; &I-K0-2534; [05-20]
     (=cns11643-1	. #x242F)	; &I-C1-242F; [04-15]
-    (=jis-x0213-1-2000	. #x2D39)	; &I-JX1-2D39; [13-25]
+    (=jis-x0213-1	. #x2D39)	; &I-JX1-2D39; [13-25]
     (=big5		. #xA2BD)	; &I-B-A2BD;
     (=jef-china3	. #x77E2)	; &I-JC3-77E2;
+    (<-compat/Roman-Numeral
+     ((name		  . "LATIN CAPITAL LETTER V")
+      (=ucs		  . #x0056)	; V
+      ))
+    (->lowercase
+     ((name		  . "SMALL ROMAN NUMERAL FIVE")
+      (=ucs		  . #x2174)	; ⅴ
+      ))
     ))
 (define-char
   '((name		. "ROMAN NUMERAL SIX")
@@ -226,18 +367,24 @@
     (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]
     (=cns11643-1	. #x2430)	; &I-C1-2430; [04-16]
-    (=jis-x0213-1-2000	. #x2D3A)	; &I-JX1-2D3A; [13-26]
+    (=jis-x0213-1	. #x2D3A)	; &I-JX1-2D3A; [13-26]
     (=big5		. #xA2BE)	; &I-B-A2BE;
     (=jef-china3	. #x77E3)	; &I-JC3-77E3;
+    (->lowercase
+     ((name		  . "SMALL ROMAN NUMERAL SIX")
+      (=ucs		  . #x2175)	; ⅵ
+      ))
     ))
 (define-char
   '((name		. "ROMAN NUMERAL SEVEN")
@@ -245,18 +392,27 @@
     (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]
     (=cns11643-1	. #x2431)	; &I-C1-2431; [04-17]
-    (=jis-x0213-1-2000	. #x2D3B)	; &I-JX1-2D3B; [13-27]
+    (=jis-x0213-1	. #x2D3B)	; &I-JX1-2D3B; [13-27]
     (=big5		. #xA2BF)	; &I-B-A2BF;
     (=jef-china3	. #x77E4)	; &I-JC3-77E4;
+    (->lowercase
+     ((name		  . "SMALL ROMAN NUMERAL SEVEN")
+      (=ucs		  . #x2176)	; ⅶ
+      ))
     ))
 (define-char
   '((name		. "ROMAN NUMERAL EIGHT")
@@ -264,18 +420,30 @@
     (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]
     (=cns11643-1	. #x2432)	; &I-C1-2432; [04-18]
-    (=jis-x0213-1-2000	. #x2D3C)	; &I-JX1-2D3C; [13-28]
+    (=jis-x0213-1	. #x2D3C)	; &I-JX1-2D3C; [13-28]
     (=big5		. #xA2C0)	; &I-B-A2C0;
     (=jef-china3	. #x77E5)	; &I-JC3-77E5;
+    (->lowercase
+     ((name		  . "SMALL ROMAN NUMERAL EIGHT")
+      (=ucs		  . #x2177)	; ⅷ
+      ))
     ))
 (define-char
   '((name		. "ROMAN NUMERAL NINE")
@@ -283,18 +451,24 @@
     (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]
     (=cns11643-1	. #x2433)	; &I-C1-2433; [04-19]
-    (=jis-x0213-1-2000	. #x2D3D)	; &I-JX1-2D3D; [13-29]
+    (=jis-x0213-1	. #x2D3D)	; &I-JX1-2D3D; [13-29]
     (=big5		. #xA2C1)	; &I-B-A2C1;
     (=jef-china3	. #x77E6)	; &I-JC3-77E6;
+    (->lowercase
+     ((name		  . "SMALL ROMAN NUMERAL NINE")
+      (=ucs		  . #x2178)	; ⅸ
+      ))
     ))
 (define-char
   '((name		. "ROMAN NUMERAL TEN")
@@ -302,18 +476,21 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 10)
-    (->decomposition	compat #x0058)
-    (->lowercase
-     ((name		  . "SMALL ROMAN NUMERAL TEN")
-      (=ucs		  . #x2179)	; ⅹ
-      ))
     (=ucs		. #x2169)	; Ⅹ
     (=gb2312		. #x227A)	; &I-G0-227A; [02-90]
     (=ks-x1001		. #x2539)	; &I-K0-2539; [05-25]
     (=cns11643-1	. #x2434)	; &I-C1-2434; [04-20]
-    (=jis-x0213-1-2000	. #x2D3E)	; &I-JX1-2D3E; [13-30]
+    (=jis-x0213-1	. #x2D3E)	; &I-JX1-2D3E; [13-30]
     (=big5		. #xA2C2)	; &I-B-A2C2;
     (=jef-china3	. #x77E7)	; &I-JC3-77E7;
+    (<-compat/Roman-Numeral
+     ((name		  . "LATIN CAPITAL LETTER X")
+      (=ucs		  . #x0058)	; X
+      ))
+    (->lowercase
+     ((name		  . "SMALL ROMAN NUMERAL TEN")
+      (=ucs		  . #x2179)	; ⅹ
+      ))
     ))
 (define-char
   '((name		. "ROMAN NUMERAL ELEVEN")
@@ -321,14 +498,20 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 11)
-    (->decomposition	compat #x0058 #x0049)
+    (=>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	. #x2D3F)	; &I-JX1-2D3F; [13-31]
     (->lowercase
      ((name		  . "SMALL ROMAN NUMERAL ELEVEN")
       (=ucs		  . #x217A)	; ⅺ
       ))
-    (=ucs		. #x216A)	; Ⅺ
-    (=gb2312		. #x227B)	; &I-G0-227B; [02-91]
-    (=jis-x0213-1-2000	. #x2D3F)	; &I-JX1-2D3F; [13-31]
     ))
 (define-char
   '((name		. "ROMAN NUMERAL TWELVE")
@@ -336,14 +519,23 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 12)
-    (->decomposition	compat #x0058 #x0049 #x0049)
+    (=>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	. #x2D57)	; &I-JX1-2D57; [13-55]
     (->lowercase
      ((name		  . "SMALL ROMAN NUMERAL TWELVE")
       (=ucs		  . #x217B)	; ⅻ
       ))
-    (=ucs		. #x216B)	; Ⅻ
-    (=gb2312		. #x227C)	; &I-G0-227C; [02-92]
-    (=jis-x0213-1-2000	. #x2D57)	; &I-JX1-2D57; [13-55]
     ))
 (define-char
   '((name		. "ROMAN NUMERAL FIFTY")
@@ -351,12 +543,15 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 50)
-    (->decomposition	compat #x004C)
+    (=ucs		. #x216C)	; Ⅼ
+    (<-compat/Roman-Numeral
+     ((name		  . "LATIN CAPITAL LETTER L")
+      (=ucs		  . #x004C)	; L
+      ))
     (->lowercase
      ((name		  . "SMALL ROMAN NUMERAL FIFTY")
       (=ucs		  . #x217C)	; ⅼ
       ))
-    (=ucs		. #x216C)	; Ⅼ
     ))
 (define-char
   '((name		. "ROMAN NUMERAL ONE HUNDRED")
@@ -364,12 +559,15 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 100)
-    (->decomposition	compat #x0043)
+    (=ucs		. #x216D)	; Ⅽ
+    (<-compat/Roman-Numeral
+     ((name		  . "LATIN CAPITAL LETTER C")
+      (=ucs		  . #x0043)	; C
+      ))
     (->lowercase
      ((name		  . "SMALL ROMAN NUMERAL ONE HUNDRED")
       (=ucs		  . #x217D)	; ⅽ
       ))
-    (=ucs		. #x216D)	; Ⅽ
     ))
 (define-char
   '((name		. "ROMAN NUMERAL FIVE HUNDRED")
@@ -377,12 +575,15 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 500)
-    (->decomposition	compat #x0044)
+    (=ucs		. #x216E)	; Ⅾ
+    (<-compat/Roman-Numeral
+     ((name		  . "LATIN CAPITAL LETTER D")
+      (=ucs		  . #x0044)	; D
+      ))
     (->lowercase
      ((name		  . "SMALL ROMAN NUMERAL FIVE HUNDRED")
       (=ucs		  . #x217E)	; ⅾ
       ))
-    (=ucs		. #x216E)	; Ⅾ
     ))
 (define-char
   '((name		. "ROMAN NUMERAL ONE THOUSAND")
@@ -390,12 +591,15 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 1000)
-    (->decomposition	compat #x004D)
+    (=ucs		. #x216F)	; Ⅿ
+    (<-compat/Roman-Numeral
+     ((name		  . "LATIN CAPITAL LETTER M")
+      (=ucs		  . #x004D)	; M
+      ))
     (->lowercase
      ((name		  . "SMALL ROMAN NUMERAL ONE THOUSAND")
       (=ucs		  . #x217F)	; ⅿ
       ))
-    (=ucs		. #x216F)	; Ⅿ
     ))
 (define-char
   '((name		. "SMALL ROMAN NUMERAL ONE")
@@ -403,17 +607,20 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 1)
-    (->decomposition	compat #x0069)
-    (->uppercase
-     ((name		  . "ROMAN NUMERAL ONE")
-      (=ucs		  . #x2160)	; Ⅰ
-      ))
     (=ucs		. #x2170)	; ⅰ
     (=ks-x1001		. #x2521)	; &I-K0-2521; [05-01]
     (=cns11643-1	. #x2635)	; &I-C1-2635; [06-21]
-    (=jis-x0213-1-2000	. #x2C35)	; &I-JX1-2C35; [12-21]
-    (=big5-eten		. #xC6B5)	; &B-C6B5;
+    (=jis-x0213-1	. #x2C35)	; &I-JX1-2C35; [12-21]
+    (=big5-eten		. #xC6B5)	; &I-B-C6B5;
     (=jef-china3	. #x77EB)	; &I-JC3-77EB;
+    (<-compat/Roman-Numeral
+     ((name		  . "LATIN SMALL LETTER I")
+      (=ucs		  . #x0069)	; i
+      ))
+    (->uppercase
+     ((name		  . "ROMAN NUMERAL ONE")
+      (=ucs		  . #x2160)	; Ⅰ
+      ))
     ))
 (define-char
   '((name		. "SMALL ROMAN NUMERAL TWO")
@@ -421,17 +628,23 @@
     (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]
-    (=jis-x0213-1-2000	. #x2C36)	; &I-JX1-2C36; [12-22]
-    (=big5-eten		. #xC6B6)	; &B-C6B6;
+    (=jis-x0213-1	. #x2C36)	; &I-JX1-2C36; [12-22]
+    (=big5-eten		. #xC6B6)	; &I-B-C6B6;
     (=jef-china3	. #x77EC)	; &I-JC3-77EC;
+    (->uppercase
+     ((name		  . "ROMAN NUMERAL TWO")
+      (=ucs		  . #x2161)	; Ⅱ
+      ))
     ))
 (define-char
   '((name		. "SMALL ROMAN NUMERAL THREE")
@@ -439,17 +652,26 @@
     (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]
-    (=jis-x0213-1-2000	. #x2C37)	; &I-JX1-2C37; [12-23]
-    (=big5-eten		. #xC6B7)	; &B-C6B7;
+    (=jis-x0213-1	. #x2C37)	; &I-JX1-2C37; [12-23]
+    (=big5-eten		. #xC6B7)	; &I-B-C6B7;
     (=jef-china3	. #x77ED)	; &I-JC3-77ED;
+    (->uppercase
+     ((name		  . "ROMAN NUMERAL THREE")
+      (=ucs		  . #x2162)	; Ⅲ
+      ))
     ))
 (define-char
   '((name		. "SMALL ROMAN NUMERAL FOUR")
@@ -457,17 +679,23 @@
     (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]
-    (=jis-x0213-1-2000	. #x2C38)	; &I-JX1-2C38; [12-24]
-    (=big5-eten		. #xC6B8)	; &B-C6B8;
+    (=jis-x0213-1	. #x2C38)	; &I-JX1-2C38; [12-24]
+    (=big5-eten		. #xC6B8)	; &I-B-C6B8;
     (=jef-china3	. #x77EE)	; &I-JC3-77EE;
+    (->uppercase
+     ((name		  . "ROMAN NUMERAL FOUR")
+      (=ucs		  . #x2163)	; Ⅳ
+      ))
     ))
 (define-char
   '((name		. "SMALL ROMAN NUMERAL FIVE")
@@ -475,17 +703,20 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 5)
-    (->decomposition	compat #x0076)
-    (->uppercase
-     ((name		  . "ROMAN NUMERAL FIVE")
-      (=ucs		  . #x2164)	; Ⅴ
-      ))
     (=ucs		. #x2174)	; ⅴ
     (=ks-x1001		. #x2525)	; &I-K0-2525; [05-05]
     (=cns11643-1	. #x2639)	; &I-C1-2639; [06-25]
-    (=jis-x0213-1-2000	. #x2C39)	; &I-JX1-2C39; [12-25]
-    (=big5-eten		. #xC6B9)	; &B-C6B9;
+    (=jis-x0213-1	. #x2C39)	; &I-JX1-2C39; [12-25]
+    (=big5-eten		. #xC6B9)	; &I-B-C6B9;
     (=jef-china3	. #x77EF)	; &I-JC3-77EF;
+    (<-compat/Roman-Numeral
+     ((name		  . "LATIN SMALL LETTER V")
+      (=ucs		  . #x0076)	; v
+      ))
+    (->uppercase
+     ((name		  . "ROMAN NUMERAL FIVE")
+      (=ucs		  . #x2164)	; Ⅴ
+      ))
     ))
 (define-char
   '((name		. "SMALL ROMAN NUMERAL SIX")
@@ -493,17 +724,23 @@
     (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]
-    (=jis-x0213-1-2000	. #x2C3A)	; &I-JX1-2C3A; [12-26]
-    (=big5-eten		. #xC6BA)	; &B-C6BA;
+    (=jis-x0213-1	. #x2C3A)	; &I-JX1-2C3A; [12-26]
+    (=big5-eten		. #xC6BA)	; &I-B-C6BA;
     (=jef-china3	. #x77F0)	; &I-JC3-77F0;
+    (->uppercase
+     ((name		  . "ROMAN NUMERAL SIX")
+      (=ucs		  . #x2165)	; Ⅵ
+      ))
     ))
 (define-char
   '((name		. "SMALL ROMAN NUMERAL SEVEN")
@@ -511,17 +748,26 @@
     (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]
-    (=jis-x0213-1-2000	. #x2C3B)	; &I-JX1-2C3B; [12-27]
-    (=big5-eten		. #xC6BB)	; &B-C6BB;
+    (=jis-x0213-1	. #x2C3B)	; &I-JX1-2C3B; [12-27]
+    (=big5-eten		. #xC6BB)	; &I-B-C6BB;
     (=jef-china3	. #x77F1)	; &I-JC3-77F1;
+    (->uppercase
+     ((name		  . "ROMAN NUMERAL SEVEN")
+      (=ucs		  . #x2166)	; Ⅶ
+      ))
     ))
 (define-char
   '((name		. "SMALL ROMAN NUMERAL EIGHT")
@@ -529,17 +775,29 @@
     (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]
-    (=jis-x0213-1-2000	. #x2C3C)	; &I-JX1-2C3C; [12-28]
-    (=big5-eten		. #xC6BC)	; &B-C6BC;
+    (=jis-x0213-1	. #x2C3C)	; &I-JX1-2C3C; [12-28]
+    (=big5-eten		. #xC6BC)	; &I-B-C6BC;
     (=jef-china3	. #x77F2)	; &I-JC3-77F2;
+    (->uppercase
+     ((name		  . "ROMAN NUMERAL EIGHT")
+      (=ucs		  . #x2167)	; Ⅷ
+      ))
     ))
 (define-char
   '((name		. "SMALL ROMAN NUMERAL NINE")
@@ -547,17 +805,23 @@
     (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]
-    (=jis-x0213-1-2000	. #x2C3D)	; &I-JX1-2C3D; [12-29]
-    (=big5-eten		. #xC6BD)	; &B-C6BD;
+    (=jis-x0213-1	. #x2C3D)	; &I-JX1-2C3D; [12-29]
+    (=big5-eten		. #xC6BD)	; &I-B-C6BD;
     (=jef-china3	. #x77F3)	; &I-JC3-77F3;
+    (->uppercase
+     ((name		  . "ROMAN NUMERAL NINE")
+      (=ucs		  . #x2168)	; Ⅸ
+      ))
     ))
 (define-char
   '((name		. "SMALL ROMAN NUMERAL TEN")
@@ -565,17 +829,20 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 10)
-    (->decomposition	compat #x0078)
-    (->uppercase
-     ((name		  . "ROMAN NUMERAL TEN")
-      (=ucs		  . #x2169)	; Ⅹ
-      ))
     (=ucs		. #x2179)	; ⅹ
     (=ks-x1001		. #x252A)	; &I-K0-252A; [05-10]
     (=cns11643-1	. #x263E)	; &I-C1-263E; [06-30]
-    (=jis-x0213-1-2000	. #x2C3E)	; &I-JX1-2C3E; [12-30]
-    (=big5-eten		. #xC6BE)	; &B-C6BE;
+    (=jis-x0213-1	. #x2C3E)	; &I-JX1-2C3E; [12-30]
+    (=big5-eten		. #xC6BE)	; &I-B-C6BE;
     (=jef-china3	. #x77F4)	; &I-JC3-77F4;
+    (<-compat/Roman-Numeral
+     ((name		  . "LATIN SMALL LETTER X")
+      (=ucs		  . #x0078)	; x
+      ))
+    (->uppercase
+     ((name		  . "ROMAN NUMERAL TEN")
+      (=ucs		  . #x2169)	; Ⅹ
+      ))
     ))
 (define-char
   '((name		. "SMALL ROMAN NUMERAL ELEVEN")
@@ -583,13 +850,19 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 11)
-    (->decomposition	compat #x0078 #x0069)
+    (=>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	. #x2C3F)	; &I-JX1-2C3F; [12-31]
     (->uppercase
      ((name		  . "ROMAN NUMERAL ELEVEN")
       (=ucs		  . #x216A)	; Ⅺ
       ))
-    (=ucs		. #x217A)	; ⅺ
-    (=jis-x0213-1-2000	. #x2C3F)	; &I-JX1-2C3F; [12-31]
     ))
 (define-char
   '((name		. "SMALL ROMAN NUMERAL TWELVE")
@@ -597,13 +870,22 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 12)
-    (->decomposition	compat #x0078 #x0069 #x0069)
+    (=>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	. #x2C40)	; &I-JX1-2C40; [12-32]
     (->uppercase
      ((name		  . "ROMAN NUMERAL TWELVE")
       (=ucs		  . #x216B)	; Ⅻ
       ))
-    (=ucs		. #x217B)	; ⅻ
-    (=jis-x0213-1-2000	. #x2C40)	; &I-JX1-2C40; [12-32]
     ))
 (define-char
   '((name		. "SMALL ROMAN NUMERAL FIFTY")
@@ -611,12 +893,15 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 50)
-    (->decomposition	compat #x006C)
+    (=ucs		. #x217C)	; ⅼ
+    (<-compat/Roman-Numeral
+     ((name		  . "LATIN SMALL LETTER L")
+      (=ucs		  . #x006C)	; l
+      ))
     (->uppercase
      ((name		  . "ROMAN NUMERAL FIFTY")
       (=ucs		  . #x216C)	; Ⅼ
       ))
-    (=ucs		. #x217C)	; ⅼ
     ))
 (define-char
   '((name		. "SMALL ROMAN NUMERAL ONE HUNDRED")
@@ -624,12 +909,15 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 100)
-    (->decomposition	compat #x0063)
+    (=ucs		. #x217D)	; ⅽ
+    (<-compat/Roman-Numeral
+     ((name		  . "LATIN SMALL LETTER C")
+      (=ucs		  . #x0063)	; c
+      ))
     (->uppercase
      ((name		  . "ROMAN NUMERAL ONE HUNDRED")
       (=ucs		  . #x216D)	; Ⅽ
       ))
-    (=ucs		. #x217D)	; ⅽ
     ))
 (define-char
   '((name		. "SMALL ROMAN NUMERAL FIVE HUNDRED")
@@ -637,12 +925,15 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 500)
-    (->decomposition	compat #x0064)
+    (=ucs		. #x217E)	; ⅾ
+    (<-compat/Roman-Numeral
+     ((name		  . "LATIN SMALL LETTER D")
+      (=ucs		  . #x0064)	; d
+      ))
     (->uppercase
      ((name		  . "ROMAN NUMERAL FIVE HUNDRED")
       (=ucs		  . #x216E)	; Ⅾ
       ))
-    (=ucs		. #x217E)	; ⅾ
     ))
 (define-char
   '((name		. "SMALL ROMAN NUMERAL ONE THOUSAND")
@@ -650,12 +941,15 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 1000)
-    (->decomposition	compat #x006D)
+    (=ucs		. #x217F)	; ⅿ
+    (<-compat/Roman-Numeral
+     ((name		  . "LATIN SMALL LETTER M")
+      (=ucs		  . #x006D)	; m
+      ))
     (->uppercase
      ((name		  . "ROMAN NUMERAL ONE THOUSAND")
       (=ucs		  . #x216F)	; Ⅿ
       ))
-    (=ucs		. #x217F)	; ⅿ
     ))
 (define-char
   '((name		. "ROMAN NUMERAL ONE THOUSAND C D")