Sync up with r21-4-11-chise-0_21-=iso-ir165.

[chise/xemacs-chise.git] / lisp / utf-2000 / u02070-Superscripts.el

diff --git a/lisp/utf-2000/u02070-Superscripts.el b/lisp/utf-2000/u02070-Superscripts.el
index 967d6e4..46217bd 100644 (file)
--- a/lisp/utf-2000/u02070-Superscripts.el
+++ b/lisp/utf-2000/u02070-Superscripts.el
@@ -1,6 +1,5 @@
 (define-char
   '((name              . "SUPERSCRIPT ZERO")
-    (ucs               . #x2070)
     (general-category  number other) ; Normative Category
     (bidi-category     . "EN")
     (mirrored          . nil)
@@ -8,10 +7,10 @@
     (digit-value        . 0)
     (numeric-value      . 0)
     (->decomposition   super #x0030)
+    (=ucs              . #x2070)       ; ⁰
     ))
 (define-char
   '((name              . "SUPERSCRIPT FOUR")
-    (ucs               . #x2074)
     (general-category  number other) ; Normative Category
     (bidi-category     . "EN")
     (mirrored          . nil)
@@ -19,10 +18,15 @@
     (digit-value        . 4)
     (numeric-value      . 4)
     (->decomposition   super #x0034)
+    (->fullwidth
+     ((name              . "fullwidth superscript four")
+      (korean-ksc5601    . #x2979)     ; �����
+      ))
+    (=ucs              . #x2074)       ; ⁴
     ))
 (define-char
-  '((name              . "FULLWIDTH SUPERSCRIPT FOUR")
-    (->ucs             . #x2074)
+  '((name              . "fullwidth superscript four")
+    (=>ucs             . #x2074)       ; ⁴
     (general-category  number other) ; Normative Category
     (bidi-category     . "EN")
     (mirrored          . nil)
@@ -30,11 +34,14 @@
     (digit-value        . 4)
     (numeric-value      . 4)
     (->decomposition   wide #x2074)
-    (korean-ksc5601    #x29 #x79)      ; �����
+    (<-fullwidth
+     ((name              . "SUPERSCRIPT FOUR")
+      (=ucs              . #x2074)     ; ⁴
+      ))
+    (korean-ksc5601    . #x2979)       ; �����
     ))
 (define-char
   '((name              . "SUPERSCRIPT FIVE")
-    (ucs               . #x2075)
     (general-category  number other) ; Normative Category
     (bidi-category     . "EN")
     (mirrored          . nil)
@@ -42,10 +49,10 @@
     (digit-value        . 5)
     (numeric-value      . 5)
     (->decomposition   super #x0035)
+    (=ucs              . #x2075)       ; ⁵
     ))
 (define-char
   '((name              . "SUPERSCRIPT SIX")
-    (ucs               . #x2076)
     (general-category  number other) ; Normative Category
     (bidi-category     . "EN")
     (mirrored          . nil)
@@ -53,10 +60,10 @@
     (digit-value        . 6)
     (numeric-value      . 6)
     (->decomposition   super #x0036)
+    (=ucs              . #x2076)       ; ⁶
     ))
 (define-char
   '((name              . "SUPERSCRIPT SEVEN")
-    (ucs               . #x2077)
     (general-category  number other) ; Normative Category
     (bidi-category     . "EN")
     (mirrored          . nil)
@@ -64,10 +71,10 @@
     (digit-value        . 7)
     (numeric-value      . 7)
     (->decomposition   super #x0037)
+    (=ucs              . #x2077)       ; ⁷
     ))
 (define-char
   '((name              . "SUPERSCRIPT EIGHT")
-    (ucs               . #x2078)
     (general-category  number other) ; Normative Category
     (bidi-category     . "EN")
     (mirrored          . nil)
@@ -75,10 +82,10 @@
     (digit-value        . 8)
     (numeric-value      . 8)
     (->decomposition   super #x0038)
+    (=ucs              . #x2078)       ; ⁸
     ))
 (define-char
   '((name              . "SUPERSCRIPT NINE")
-    (ucs               . #x2079)
     (general-category  number other) ; Normative Category
     (bidi-category     . "EN")
     (mirrored          . nil)
@@ -86,61 +93,70 @@
     (digit-value        . 9)
     (numeric-value      . 9)
     (->decomposition   super #x0039)
+    (=ucs              . #x2079)       ; ⁹
     ))
 (define-char
   '((name              . "SUPERSCRIPT PLUS SIGN")
-    (ucs               . #x207A)
     (general-category  symbol math) ; Informative Category
     (bidi-category     . "ET")
     (mirrored          . nil)
     (->decomposition   super #x002B)
+    (=ucs              . #x207A)       ; ⁺
     ))
 (define-char
   '((name              . "SUPERSCRIPT MINUS")
-    (ucs               . #x207B)
     (general-category  symbol math) ; Informative Category
     (bidi-category     . "ET")
     (mirrored          . nil)
     (->decomposition   super #x2212)
+    (=ucs              . #x207B)       ; ⁻
     ))
 (define-char
   '((name              . "SUPERSCRIPT EQUALS SIGN")
-    (ucs               . #x207C)
     (general-category  symbol math) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
     (->decomposition   super #x003D)
+    (=ucs              . #x207C)       ; ⁼
     ))
 (define-char
   '((name              . "SUPERSCRIPT LEFT PARENTHESIS")
-    (ucs               . #x207D)
     (general-category  punctuation open) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . t)
     (->decomposition   super #x0028)
+    (=ucs              . #x207D)       ; ⁽
     ))
 (define-char
   '((name              . "SUPERSCRIPT RIGHT PARENTHESIS")
-    (ucs               . #x207E)
     (general-category  punctuation close) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . t)
     (->decomposition   super #x0029)
+    (=ucs              . #x207E)       ; ⁾
     ))
 (define-char
   '((name              . "SUPERSCRIPT LATIN SMALL LETTER N")
-    (ucs               . #x207F)
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   super #x006E)
+    (->fullwidth
+     ((name              . "fullwidth superscript latin small letter n")
+      (korean-ksc5601    . #x297A)     ; �����
+      ))
+    (=ucs              . #x207F)       ; ⁿ
     ))
 (define-char
-  '((name              . "FULLWIDTH SUPERSCRIPT LATIN SMALL LETTER N")
-    (->ucs             . #x207F)
+  '((name              . "fullwidth superscript latin small letter n")
+    (=>ucs             . #x207F)       ; ⁿ
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   wide #x207F)
-    (korean-ksc5601    #x29 #x7A)      ; �����
+    (<-fullwidth
+     ((name              . "SUPERSCRIPT LATIN SMALL LETTER N")
+      (=ucs              . #x207F)     ; ⁿ
+      ))
+    (korean-ksc5601    . #x297A)       ; �����
     ))