X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2Fu02150-Number-Forms.el;h=c61fca1f42cfcf4237e43947954db97c60163439;hb=59483252003895f7e52f747b322c84073c676922;hp=523e6573d88b1a5c7f3fe01db309d57cd76eacf5;hpb=446f1524a6ae2d7a609fb6671fec8fe07d685f9d;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 523e657..c61fca1 100644
--- a/lisp/utf-2000/u02150-Number-Forms.el
+++ b/lisp/utf-2000/u02150-Number-Forms.el
@@ -17,7 +17,7 @@
       ))
     (=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")
@@ -37,7 +37,7 @@
       ))
     (=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")
@@ -56,7 +56,7 @@
       (=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")
@@ -245,21 +245,21 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 1)
-    (->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]
     (=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")
@@ -267,10 +267,6 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 2)
-    (->lowercase
-     ((name		  . "SMALL ROMAN NUMERAL TWO")
-      (=ucs		  . #x2171)	; ⅱ
-      ))
     (=>decomposition@compat/Roman-Numeral
      ((name		  . "LATIN CAPITAL LETTER I")
       (=ucs		  . #x0049)	; I
@@ -282,9 +278,13 @@
     (=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")
@@ -292,10 +292,6 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 3)
-    (->lowercase
-     ((name		  . "SMALL ROMAN NUMERAL THREE")
-      (=ucs		  . #x2172)	; ⅲ
-      ))
     (=>decomposition@compat/Roman-Numeral
      ((name		  . "LATIN CAPITAL LETTER I")
       (=ucs		  . #x0049)	; I
@@ -310,9 +306,13 @@
     (=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")
@@ -320,10 +320,6 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 4)
-    (->lowercase
-     ((name		  . "SMALL ROMAN NUMERAL FOUR")
-      (=ucs		  . #x2173)	; ⅳ
-      ))
     (=>decomposition@compat/Roman-Numeral
      ((name		  . "LATIN CAPITAL LETTER I")
       (=ucs		  . #x0049)	; I
@@ -335,9 +331,13 @@
     (=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")
@@ -345,21 +345,21 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 5)
-    (->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]
     (=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")
@@ -367,10 +367,6 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 6)
-    (->lowercase
-     ((name		  . "SMALL ROMAN NUMERAL SIX")
-      (=ucs		  . #x2175)	; ⅵ
-      ))
     (=>decomposition@compat/Roman-Numeral
      ((name		  . "LATIN CAPITAL LETTER V")
       (=ucs		  . #x0056)	; V
@@ -382,9 +378,13 @@
     (=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")
@@ -392,10 +392,6 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 7)
-    (->lowercase
-     ((name		  . "SMALL ROMAN NUMERAL SEVEN")
-      (=ucs		  . #x2176)	; ⅶ
-      ))
     (=>decomposition@compat/Roman-Numeral
      ((name		  . "LATIN CAPITAL LETTER V")
       (=ucs		  . #x0056)	; V
@@ -410,9 +406,13 @@
     (=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")
@@ -420,10 +420,6 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 8)
-    (->lowercase
-     ((name		  . "SMALL ROMAN NUMERAL EIGHT")
-      (=ucs		  . #x2177)	; ⅷ
-      ))
     (=>decomposition@compat/Roman-Numeral
      ((name		  . "LATIN CAPITAL LETTER V")
       (=ucs		  . #x0056)	; V
@@ -441,9 +437,13 @@
     (=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")
@@ -451,10 +451,6 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 9)
-    (->lowercase
-     ((name		  . "SMALL ROMAN NUMERAL NINE")
-      (=ucs		  . #x2178)	; ⅸ
-      ))
     (=>decomposition@compat/Roman-Numeral
      ((name		  . "LATIN CAPITAL LETTER I")
       (=ucs		  . #x0049)	; I
@@ -466,9 +462,13 @@
     (=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")
@@ -476,21 +476,21 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 10)
-    (->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]
     (=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")
@@ -498,10 +498,6 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 11)
-    (->lowercase
-     ((name		  . "SMALL ROMAN NUMERAL ELEVEN")
-      (=ucs		  . #x217A)	; ⅺ
-      ))
     (=>decomposition@compat/Roman-Numeral
      ((name		  . "LATIN CAPITAL LETTER X")
       (=ucs		  . #x0058)	; X
@@ -511,7 +507,11 @@
       ))
     (=ucs		. #x216A)	; Ⅺ
     (=gb2312		. #x227B)	; &I-G0-227B; [02-91]
-    (=jis-x0213-1-2000	. #x2D3F)	; &I-JX1-2D3F; [13-31]
+    (=jis-x0213-1	. #x2D3F)	; &I-JX1-2D3F; [13-31]
+    (->lowercase
+     ((name		  . "SMALL ROMAN NUMERAL ELEVEN")
+      (=ucs		  . #x217A)	; ⅺ
+      ))
     ))
 (define-char
   '((name		. "ROMAN NUMERAL TWELVE")
@@ -519,10 +519,6 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 12)
-    (->lowercase
-     ((name		  . "SMALL ROMAN NUMERAL TWELVE")
-      (=ucs		  . #x217B)	; ⅻ
-      ))
     (=>decomposition@compat/Roman-Numeral
      ((name		  . "LATIN CAPITAL LETTER X")
       (=ucs		  . #x0058)	; X
@@ -535,7 +531,11 @@
       ))
     (=ucs		. #x216B)	; Ⅻ
     (=gb2312		. #x227C)	; &I-G0-227C; [02-92]
-    (=jis-x0213-1-2000	. #x2D57)	; &I-JX1-2D57; [13-55]
+    (=jis-x0213-1	. #x2D57)	; &I-JX1-2D57; [13-55]
+    (->lowercase
+     ((name		  . "SMALL ROMAN NUMERAL TWELVE")
+      (=ucs		  . #x217B)	; ⅻ
+      ))
     ))
 (define-char
   '((name		. "ROMAN NUMERAL FIFTY")
@@ -543,15 +543,15 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 50)
-    (->lowercase
-     ((name		  . "SMALL ROMAN NUMERAL FIFTY")
-      (=ucs		  . #x217C)	; ⅼ
-      ))
+    (=ucs		. #x216C)	; Ⅼ
     (<-compat/Roman-Numeral
      ((name		  . "LATIN CAPITAL LETTER L")
       (=ucs		  . #x004C)	; L
       ))
-    (=ucs		. #x216C)	; Ⅼ
+    (->lowercase
+     ((name		  . "SMALL ROMAN NUMERAL FIFTY")
+      (=ucs		  . #x217C)	; ⅼ
+      ))
     ))
 (define-char
   '((name		. "ROMAN NUMERAL ONE HUNDRED")
@@ -559,15 +559,15 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 100)
-    (->lowercase
-     ((name		  . "SMALL ROMAN NUMERAL ONE HUNDRED")
-      (=ucs		  . #x217D)	; ⅽ
-      ))
+    (=ucs		. #x216D)	; Ⅽ
     (<-compat/Roman-Numeral
      ((name		  . "LATIN CAPITAL LETTER C")
       (=ucs		  . #x0043)	; C
       ))
-    (=ucs		. #x216D)	; Ⅽ
+    (->lowercase
+     ((name		  . "SMALL ROMAN NUMERAL ONE HUNDRED")
+      (=ucs		  . #x217D)	; ⅽ
+      ))
     ))
 (define-char
   '((name		. "ROMAN NUMERAL FIVE HUNDRED")
@@ -575,15 +575,15 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 500)
-    (->lowercase
-     ((name		  . "SMALL ROMAN NUMERAL FIVE HUNDRED")
-      (=ucs		  . #x217E)	; ⅾ
-      ))
+    (=ucs		. #x216E)	; Ⅾ
     (<-compat/Roman-Numeral
      ((name		  . "LATIN CAPITAL LETTER D")
       (=ucs		  . #x0044)	; D
       ))
-    (=ucs		. #x216E)	; Ⅾ
+    (->lowercase
+     ((name		  . "SMALL ROMAN NUMERAL FIVE HUNDRED")
+      (=ucs		  . #x217E)	; ⅾ
+      ))
     ))
 (define-char
   '((name		. "ROMAN NUMERAL ONE THOUSAND")
@@ -591,15 +591,15 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 1000)
-    (->lowercase
-     ((name		  . "SMALL ROMAN NUMERAL ONE THOUSAND")
-      (=ucs		  . #x217F)	; ⅿ
-      ))
+    (=ucs		. #x216F)	; Ⅿ
     (<-compat/Roman-Numeral
      ((name		  . "LATIN CAPITAL LETTER M")
       (=ucs		  . #x004D)	; M
       ))
-    (=ucs		. #x216F)	; Ⅿ
+    (->lowercase
+     ((name		  . "SMALL ROMAN NUMERAL ONE THOUSAND")
+      (=ucs		  . #x217F)	; ⅿ
+      ))
     ))
 (define-char
   '((name		. "SMALL ROMAN NUMERAL ONE")
@@ -607,20 +607,20 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 1)
-    (->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]
-    (=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")
@@ -628,10 +628,6 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 2)
-    (->uppercase
-     ((name		  . "ROMAN NUMERAL TWO")
-      (=ucs		  . #x2161)	; Ⅱ
-      ))
     (=>decomposition@compat/Roman-Numeral
      ((name		  . "LATIN SMALL LETTER I")
       (=ucs		  . #x0069)	; i
@@ -642,9 +638,13 @@
     (=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")
@@ -652,10 +652,6 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 3)
-    (->uppercase
-     ((name		  . "ROMAN NUMERAL THREE")
-      (=ucs		  . #x2162)	; Ⅲ
-      ))
     (=>decomposition@compat/Roman-Numeral
      ((name		  . "LATIN SMALL LETTER I")
       (=ucs		  . #x0069)	; i
@@ -669,9 +665,13 @@
     (=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")
@@ -679,10 +679,6 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 4)
-    (->uppercase
-     ((name		  . "ROMAN NUMERAL FOUR")
-      (=ucs		  . #x2163)	; Ⅳ
-      ))
     (=>decomposition@compat/Roman-Numeral
      ((name		  . "LATIN SMALL LETTER I")
       (=ucs		  . #x0069)	; i
@@ -693,9 +689,13 @@
     (=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")
@@ -703,20 +703,20 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 5)
-    (->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]
-    (=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")
@@ -724,10 +724,6 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 6)
-    (->uppercase
-     ((name		  . "ROMAN NUMERAL SIX")
-      (=ucs		  . #x2165)	; Ⅵ
-      ))
     (=>decomposition@compat/Roman-Numeral
      ((name		  . "LATIN SMALL LETTER V")
       (=ucs		  . #x0076)	; v
@@ -738,9 +734,13 @@
     (=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")
@@ -748,10 +748,6 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 7)
-    (->uppercase
-     ((name		  . "ROMAN NUMERAL SEVEN")
-      (=ucs		  . #x2166)	; Ⅶ
-      ))
     (=>decomposition@compat/Roman-Numeral
      ((name		  . "LATIN SMALL LETTER V")
       (=ucs		  . #x0076)	; v
@@ -765,9 +761,13 @@
     (=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")
@@ -775,10 +775,6 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 8)
-    (->uppercase
-     ((name		  . "ROMAN NUMERAL EIGHT")
-      (=ucs		  . #x2167)	; Ⅷ
-      ))
     (=>decomposition@compat/Roman-Numeral
      ((name		  . "LATIN SMALL LETTER V")
       (=ucs		  . #x0076)	; v
@@ -795,9 +791,13 @@
     (=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")
@@ -805,10 +805,6 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 9)
-    (->uppercase
-     ((name		  . "ROMAN NUMERAL NINE")
-      (=ucs		  . #x2168)	; Ⅸ
-      ))
     (=>decomposition@compat/Roman-Numeral
      ((name		  . "LATIN SMALL LETTER I")
       (=ucs		  . #x0069)	; i
@@ -819,9 +815,13 @@
     (=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")
@@ -829,20 +829,20 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 10)
-    (->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]
-    (=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")
@@ -850,10 +850,6 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 11)
-    (->uppercase
-     ((name		  . "ROMAN NUMERAL ELEVEN")
-      (=ucs		  . #x216A)	; Ⅺ
-      ))
     (=>decomposition@compat/Roman-Numeral
      ((name		  . "LATIN SMALL LETTER X")
       (=ucs		  . #x0078)	; x
@@ -862,7 +858,11 @@
       (=ucs		  . #x0069)	; i
       ))
     (=ucs		. #x217A)	; ⅺ
-    (=jis-x0213-1-2000	. #x2C3F)	; &I-JX1-2C3F; [12-31]
+    (=jis-x0213-1	. #x2C3F)	; &I-JX1-2C3F; [12-31]
+    (->uppercase
+     ((name		  . "ROMAN NUMERAL ELEVEN")
+      (=ucs		  . #x216A)	; Ⅺ
+      ))
     ))
 (define-char
   '((name		. "SMALL ROMAN NUMERAL TWELVE")
@@ -870,10 +870,6 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 12)
-    (->uppercase
-     ((name		  . "ROMAN NUMERAL TWELVE")
-      (=ucs		  . #x216B)	; Ⅻ
-      ))
     (=>decomposition@compat/Roman-Numeral
      ((name		  . "LATIN SMALL LETTER X")
       (=ucs		  . #x0078)	; x
@@ -885,7 +881,11 @@
       (=ucs		  . #x0069)	; i
       ))
     (=ucs		. #x217B)	; ⅻ
-    (=jis-x0213-1-2000	. #x2C40)	; &I-JX1-2C40; [12-32]
+    (=jis-x0213-1	. #x2C40)	; &I-JX1-2C40; [12-32]
+    (->uppercase
+     ((name		  . "ROMAN NUMERAL TWELVE")
+      (=ucs		  . #x216B)	; Ⅻ
+      ))
     ))
 (define-char
   '((name		. "SMALL ROMAN NUMERAL FIFTY")
@@ -893,15 +893,15 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 50)
-    (->uppercase
-     ((name		  . "ROMAN NUMERAL FIFTY")
-      (=ucs		  . #x216C)	; Ⅼ
-      ))
+    (=ucs		. #x217C)	; ⅼ
     (<-compat/Roman-Numeral
      ((name		  . "LATIN SMALL LETTER L")
       (=ucs		  . #x006C)	; l
       ))
-    (=ucs		. #x217C)	; ⅼ
+    (->uppercase
+     ((name		  . "ROMAN NUMERAL FIFTY")
+      (=ucs		  . #x216C)	; Ⅼ
+      ))
     ))
 (define-char
   '((name		. "SMALL ROMAN NUMERAL ONE HUNDRED")
@@ -909,15 +909,15 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 100)
-    (->uppercase
-     ((name		  . "ROMAN NUMERAL ONE HUNDRED")
-      (=ucs		  . #x216D)	; Ⅽ
-      ))
+    (=ucs		. #x217D)	; ⅽ
     (<-compat/Roman-Numeral
      ((name		  . "LATIN SMALL LETTER C")
       (=ucs		  . #x0063)	; c
       ))
-    (=ucs		. #x217D)	; ⅽ
+    (->uppercase
+     ((name		  . "ROMAN NUMERAL ONE HUNDRED")
+      (=ucs		  . #x216D)	; Ⅽ
+      ))
     ))
 (define-char
   '((name		. "SMALL ROMAN NUMERAL FIVE HUNDRED")
@@ -925,15 +925,15 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 500)
-    (->uppercase
-     ((name		  . "ROMAN NUMERAL FIVE HUNDRED")
-      (=ucs		  . #x216E)	; Ⅾ
-      ))
+    (=ucs		. #x217E)	; ⅾ
     (<-compat/Roman-Numeral
      ((name		  . "LATIN SMALL LETTER D")
       (=ucs		  . #x0064)	; d
       ))
-    (=ucs		. #x217E)	; ⅾ
+    (->uppercase
+     ((name		  . "ROMAN NUMERAL FIVE HUNDRED")
+      (=ucs		  . #x216E)	; Ⅾ
+      ))
     ))
 (define-char
   '((name		. "SMALL ROMAN NUMERAL ONE THOUSAND")
@@ -941,15 +941,15 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (numeric-value	. 1000)
-    (->uppercase
-     ((name		  . "ROMAN NUMERAL ONE THOUSAND")
-      (=ucs		  . #x216F)	; Ⅿ
-      ))
+    (=ucs		. #x217F)	; ⅿ
     (<-compat/Roman-Numeral
      ((name		  . "LATIN SMALL LETTER M")
       (=ucs		  . #x006D)	; m
       ))
-    (=ucs		. #x217F)	; ⅿ
+    (->uppercase
+     ((name		  . "ROMAN NUMERAL ONE THOUSAND")
+      (=ucs		  . #x216F)	; Ⅿ
+      ))
     ))
 (define-char
   '((name		. "ROMAN NUMERAL ONE THOUSAND C D")