X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2Fu02080-Subscripts.el;h=5fa7d4e95fb243baec529e230bb8681c1f49e3a9;hb=b439bfeea8e0beeed807c58c92e1911a6f19150d;hp=5a5fde3bcba83df92d700cf2bbee6bbbd4fa89d3;hpb=15ea65fd1f768e21d8f699a7ae909bbb5ed3a69b;p=chise%2Fxemacs-chise.git-

diff --git a/lisp/utf-2000/u02080-Subscripts.el b/lisp/utf-2000/u02080-Subscripts.el
index 5a5fde3..5fa7d4e 100644
--- a/lisp/utf-2000/u02080-Subscripts.el
+++ b/lisp/utf-2000/u02080-Subscripts.el
@@ -1,6 +1,5 @@
 (define-char
   '((name		. "SUBSCRIPT ZERO")
-    (ucs		. #x2080)
     (general-category	number other) ; Normative Category
     (bidi-category	. "EN")
     (mirrored		. nil)
@@ -8,10 +7,10 @@
     (digit-value	 . 0)
     (numeric-value	 . 0)
     (->decomposition	sub #x0030)
+    (ucs		. #x2080)	; ₀
     ))
 (define-char
   '((name		. "SUBSCRIPT ONE")
-    (ucs		. #x2081)
     (general-category	number other) ; Normative Category
     (bidi-category	. "EN")
     (mirrored		. nil)
@@ -19,10 +18,15 @@
     (digit-value	 . 1)
     (numeric-value	 . 1)
     (->decomposition	sub #x0031)
+    (->fullwidth
+     ((name		  . "FULLWIDTH SUBSCRIPT ONE")
+      (korean-ksc5601	  . #x297B)	; ø»ˆ§–
+      ))
+    (ucs		. #x2081)	; ₁
     ))
 (define-char
   '((name		. "FULLWIDTH SUBSCRIPT ONE")
-    (->ucs		. #x2081)
+    (=>ucs		. #x2081)	; ₁
     (general-category	number other) ; Normative Category
     (bidi-category	. "EN")
     (mirrored		. nil)
@@ -30,11 +34,14 @@
     (digit-value	 . 1)
     (numeric-value	 . 1)
     (->decomposition	wide #x2081)
-    (korean-ksc5601	#x29 #x7B)	; ø»ˆ§–
+    (<-fullwidth
+     ((name		  . "SUBSCRIPT ONE")
+      (ucs		  . #x2081)	; ₁
+      ))
+    (korean-ksc5601	. #x297B)	; ø»ˆ§–
     ))
 (define-char
   '((name		. "SUBSCRIPT TWO")
-    (ucs		. #x2082)
     (general-category	number other) ; Normative Category
     (bidi-category	. "EN")
     (mirrored		. nil)
@@ -42,10 +49,15 @@
     (digit-value	 . 2)
     (numeric-value	 . 2)
     (->decomposition	sub #x0032)
+    (->fullwidth
+     ((name		  . "FULLWIDTH SUBSCRIPT TWO")
+      (korean-ksc5601	  . #x297C)	; ø»ˆ§—
+      ))
+    (ucs		. #x2082)	; ₂
     ))
 (define-char
   '((name		. "FULLWIDTH SUBSCRIPT TWO")
-    (->ucs		. #x2082)
+    (=>ucs		. #x2082)	; ₂
     (general-category	number other) ; Normative Category
     (bidi-category	. "EN")
     (mirrored		. nil)
@@ -53,11 +65,14 @@
     (digit-value	 . 2)
     (numeric-value	 . 2)
     (->decomposition	wide #x2082)
-    (korean-ksc5601	#x29 #x7C)	; ø»ˆ§—
+    (<-fullwidth
+     ((name		  . "SUBSCRIPT TWO")
+      (ucs		  . #x2082)	; ₂
+      ))
+    (korean-ksc5601	. #x297C)	; ø»ˆ§—
     ))
 (define-char
   '((name		. "SUBSCRIPT THREE")
-    (ucs		. #x2083)
     (general-category	number other) ; Normative Category
     (bidi-category	. "EN")
     (mirrored		. nil)
@@ -65,10 +80,15 @@
     (digit-value	 . 3)
     (numeric-value	 . 3)
     (->decomposition	sub #x0033)
+    (->fullwidth
+     ((name		  . "FULLWIDTH SUBSCRIPT THREE")
+      (korean-ksc5601	  . #x297D)	; ø»ˆ§˜
+      ))
+    (ucs		. #x2083)	; ₃
     ))
 (define-char
   '((name		. "FULLWIDTH SUBSCRIPT THREE")
-    (->ucs		. #x2083)
+    (=>ucs		. #x2083)	; ₃
     (general-category	number other) ; Normative Category
     (bidi-category	. "EN")
     (mirrored		. nil)
@@ -76,11 +96,14 @@
     (digit-value	 . 3)
     (numeric-value	 . 3)
     (->decomposition	wide #x2083)
-    (korean-ksc5601	#x29 #x7D)	; ø»ˆ§˜
+    (<-fullwidth
+     ((name		  . "SUBSCRIPT THREE")
+      (ucs		  . #x2083)	; ₃
+      ))
+    (korean-ksc5601	. #x297D)	; ø»ˆ§˜
     ))
 (define-char
   '((name		. "SUBSCRIPT FOUR")
-    (ucs		. #x2084)
     (general-category	number other) ; Normative Category
     (bidi-category	. "EN")
     (mirrored		. nil)
@@ -88,10 +111,15 @@
     (digit-value	 . 4)
     (numeric-value	 . 4)
     (->decomposition	sub #x0034)
+    (->fullwidth
+     ((name		  . "FULLWIDTH SUBSCRIPT FOUR")
+      (korean-ksc5601	  . #x297E)	; ø»ˆ§™
+      ))
+    (ucs		. #x2084)	; ₄
     ))
 (define-char
   '((name		. "FULLWIDTH SUBSCRIPT FOUR")
-    (->ucs		. #x2084)
+    (=>ucs		. #x2084)	; ₄
     (general-category	number other) ; Normative Category
     (bidi-category	. "EN")
     (mirrored		. nil)
@@ -99,11 +127,14 @@
     (digit-value	 . 4)
     (numeric-value	 . 4)
     (->decomposition	wide #x2084)
-    (korean-ksc5601	#x29 #x7E)	; ø»ˆ§™
+    (<-fullwidth
+     ((name		  . "SUBSCRIPT FOUR")
+      (ucs		  . #x2084)	; ₄
+      ))
+    (korean-ksc5601	. #x297E)	; ø»ˆ§™
     ))
 (define-char
   '((name		. "SUBSCRIPT FIVE")
-    (ucs		. #x2085)
     (general-category	number other) ; Normative Category
     (bidi-category	. "EN")
     (mirrored		. nil)
@@ -111,10 +142,10 @@
     (digit-value	 . 5)
     (numeric-value	 . 5)
     (->decomposition	sub #x0035)
+    (ucs		. #x2085)	; ₅
     ))
 (define-char
   '((name		. "SUBSCRIPT SIX")
-    (ucs		. #x2086)
     (general-category	number other) ; Normative Category
     (bidi-category	. "EN")
     (mirrored		. nil)
@@ -122,10 +153,10 @@
     (digit-value	 . 6)
     (numeric-value	 . 6)
     (->decomposition	sub #x0036)
+    (ucs		. #x2086)	; ₆
     ))
 (define-char
   '((name		. "SUBSCRIPT SEVEN")
-    (ucs		. #x2087)
     (general-category	number other) ; Normative Category
     (bidi-category	. "EN")
     (mirrored		. nil)
@@ -133,10 +164,10 @@
     (digit-value	 . 7)
     (numeric-value	 . 7)
     (->decomposition	sub #x0037)
+    (ucs		. #x2087)	; ₇
     ))
 (define-char
   '((name		. "SUBSCRIPT EIGHT")
-    (ucs		. #x2088)
     (general-category	number other) ; Normative Category
     (bidi-category	. "EN")
     (mirrored		. nil)
@@ -144,10 +175,10 @@
     (digit-value	 . 8)
     (numeric-value	 . 8)
     (->decomposition	sub #x0038)
+    (ucs		. #x2088)	; ₈
     ))
 (define-char
   '((name		. "SUBSCRIPT NINE")
-    (ucs		. #x2089)
     (general-category	number other) ; Normative Category
     (bidi-category	. "EN")
     (mirrored		. nil)
@@ -155,44 +186,45 @@
     (digit-value	 . 9)
     (numeric-value	 . 9)
     (->decomposition	sub #x0039)
+    (ucs		. #x2089)	; ₉
     ))
 (define-char
   '((name		. "SUBSCRIPT PLUS SIGN")
-    (ucs		. #x208A)
     (general-category	symbol math) ; Informative Category
     (bidi-category	. "ET")
     (mirrored		. nil)
     (->decomposition	sub #x002B)
+    (ucs		. #x208A)	; ₊
     ))
 (define-char
   '((name		. "SUBSCRIPT MINUS")
-    (ucs		. #x208B)
     (general-category	symbol math) ; Informative Category
     (bidi-category	. "ET")
     (mirrored		. nil)
     (->decomposition	sub #x2212)
+    (ucs		. #x208B)	; ₋
     ))
 (define-char
   '((name		. "SUBSCRIPT EQUALS SIGN")
-    (ucs		. #x208C)
     (general-category	symbol math) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
     (->decomposition	sub #x003D)
+    (ucs		. #x208C)	; ₌
     ))
 (define-char
   '((name		. "SUBSCRIPT LEFT PARENTHESIS")
-    (ucs		. #x208D)
     (general-category	punctuation open) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. t)
     (->decomposition	sub #x0028)
+    (ucs		. #x208D)	; ₍
     ))
 (define-char
   '((name		. "SUBSCRIPT RIGHT PARENTHESIS")
-    (ucs		. #x208E)
     (general-category	punctuation close) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. t)
     (->decomposition	sub #x0029)
+    (ucs		. #x208E)	; ₎
     ))