update.

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

diff --git a/lisp/utf-2000/u02070-Superscripts.el b/lisp/utf-2000/u02070-Superscripts.el
index 6f032cb..c342d40 100644 (file)
--- a/lisp/utf-2000/u02070-Superscripts.el
+++ b/lisp/utf-2000/u02070-Superscripts.el
@@ -1,3 +1,4 @@
+;; -*- coding: utf-8-mcs-er -*-
 (define-char
   '((name              . "SUPERSCRIPT ZERO")
     (general-category  number other) ; Normative Category
@@ -6,8 +7,11 @@
     (decimal-digit-value . 0)
     (digit-value        . 0)
     (numeric-value      . 0)
-    (->decomposition   super #x0030)
     (=ucs              . #x2070)       ; ⁰
+    (<-superscript
+     ((name              . "DIGIT ZERO")
+      (=ucs              . #x0030)     ; 0
+      ))
     ))
 (define-char
   '((name              . "SUPERSCRIPT FOUR")
@@ -17,28 +21,22 @@
     (decimal-digit-value . 4)
     (digit-value        . 4)
     (numeric-value      . 4)
-    (->decomposition   super #x0034)
-    (->fullwidth
-     ((name              . "fullwidth superscript four")
-      (=ks-x1001         . #x2979)     ; �����
-      ))
     (=ucs              . #x2074)       ; ⁴
+    (<-superscript
+     ((name              . "DIGIT FOUR")
+      (=ucs              . #x0034)     ; 4
+      ))
     ))
 (define-char
-  '((name              . "fullwidth superscript four")
-    (=>ucs             . #x2074)       ; ⁴
-    (general-category  number other) ; Normative Category
-    (bidi-category     . "EN")
-    (mirrored          . nil)
-    (decimal-digit-value . 4)
-    (digit-value        . 4)
-    (numeric-value      . 4)
-    (->decomposition   wide #x2074)
+  '((<-denotational
+     ((name              . "SUPERSCRIPT FOUR")
+      (=ucs              . #x2074)     ; ⁴
+      ))
+    (=ks-x1001         . #x2979)       ; &K0-2979; [09-89]
     (<-fullwidth
      ((name              . "SUPERSCRIPT FOUR")
       (=ucs              . #x2074)     ; ⁴
       ))
-    (=ks-x1001         . #x2979)       ; �����
     ))
 (define-char
   '((name              . "SUPERSCRIPT FIVE")
@@ -48,8 +46,11 @@
     (decimal-digit-value . 5)
     (digit-value        . 5)
     (numeric-value      . 5)
-    (->decomposition   super #x0035)
     (=ucs              . #x2075)       ; ⁵
+    (<-superscript
+     ((name              . "DIGIT FIVE")
+      (=ucs              . #x0035)     ; 5
+      ))
     ))
 (define-char
   '((name              . "SUPERSCRIPT SIX")
@@ -59,8 +60,11 @@
     (decimal-digit-value . 6)
     (digit-value        . 6)
     (numeric-value      . 6)
-    (->decomposition   super #x0036)
     (=ucs              . #x2076)       ; ⁶
+    (<-superscript
+     ((name              . "DIGIT SIX")
+      (=ucs              . #x0036)     ; 6
+      ))
     ))
 (define-char
   '((name              . "SUPERSCRIPT SEVEN")
@@ -70,8 +74,11 @@
     (decimal-digit-value . 7)
     (digit-value        . 7)
     (numeric-value      . 7)
-    (->decomposition   super #x0037)
     (=ucs              . #x2077)       ; ⁷
+    (<-superscript
+     ((name              . "DIGIT SEVEN")
+      (=ucs              . #x0037)     ; 7
+      ))
     ))
 (define-char
   '((name              . "SUPERSCRIPT EIGHT")
@@ -81,8 +88,11 @@
     (decimal-digit-value . 8)
     (digit-value        . 8)
     (numeric-value      . 8)
-    (->decomposition   super #x0038)
     (=ucs              . #x2078)       ; ⁸
+    (<-superscript
+     ((name              . "DIGIT EIGHT")
+      (=ucs              . #x0038)     ; 8
+      ))
     ))
 (define-char
   '((name              . "SUPERSCRIPT NINE")
@@ -92,71 +102,86 @@
     (decimal-digit-value . 9)
     (digit-value        . 9)
     (numeric-value      . 9)
-    (->decomposition   super #x0039)
     (=ucs              . #x2079)       ; ⁹
+    (<-superscript
+     ((name              . "DIGIT NINE")
+      (=ucs              . #x0039)     ; 9
+      ))
     ))
 (define-char
   '((name              . "SUPERSCRIPT PLUS SIGN")
     (general-category  symbol math) ; Informative Category
     (bidi-category     . "ET")
     (mirrored          . nil)
-    (->decomposition   super #x002B)
     (=ucs              . #x207A)       ; ⁺
+    (<-superscript
+     ((name              . "PLUS SIGN")
+      (=ucs              . #x002B)     ; +
+      ))
     ))
 (define-char
   '((name              . "SUPERSCRIPT MINUS")
     (general-category  symbol math) ; Informative Category
     (bidi-category     . "ET")
     (mirrored          . nil)
-    (->decomposition   super #x2212)
     (=ucs              . #x207B)       ; ⁻
+    (<-superscript
+     ((name              . "MINUS SIGN")
+      (=ucs              . #x2212)     ; −
+      ))
     ))
 (define-char
   '((name              . "SUPERSCRIPT EQUALS SIGN")
     (general-category  symbol math) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
-    (->decomposition   super #x003D)
     (=ucs              . #x207C)       ; ⁼
+    (<-superscript
+     ((name              . "EQUALS SIGN")
+      (=ucs              . #x003D)     ; =
+      ))
     ))
 (define-char
   '((name              . "SUPERSCRIPT LEFT PARENTHESIS")
     (general-category  punctuation open) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . t)
-    (->decomposition   super #x0028)
     (=ucs              . #x207D)       ; ⁽
+    (<-superscript
+     ((name              . "LEFT PARENTHESIS")
+      (=ucs              . #x0028)     ; (
+      ))
     ))
 (define-char
   '((name              . "SUPERSCRIPT RIGHT PARENTHESIS")
     (general-category  punctuation close) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . t)
-    (->decomposition   super #x0029)
     (=ucs              . #x207E)       ; ⁾
+    (<-superscript
+     ((name              . "RIGHT PARENTHESIS")
+      (=ucs              . #x0029)     ; )
+      ))
     ))
 (define-char
   '((name              . "SUPERSCRIPT LATIN SMALL LETTER N")
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
-    (->decomposition   super #x006E)
-    (->fullwidth
-     ((name              . "fullwidth superscript latin small letter n")
-      (=ks-x1001         . #x297A)     ; �����
-      ))
     (=ucs              . #x207F)       ; ⁿ
+    (<-superscript
+     ((name              . "LATIN SMALL LETTER N")
+      (=ucs              . #x006E)     ; n
+      ))
     ))
 (define-char
-  '((name              . "fullwidth superscript latin small letter n")
-    (=>ucs             . #x207F)       ; ⁿ
-    (general-category  letter lowercase) ; Normative Category
-    (bidi-category     . "L")
-    (mirrored          . nil)
-    (->decomposition   wide #x207F)
+  '((<-denotational
+     ((name              . "SUPERSCRIPT LATIN SMALL LETTER N")
+      (=ucs              . #x207F)     ; ⁿ
+      ))
+    (=ks-x1001         . #x297A)       ; &K0-297A; [09-90]
     (<-fullwidth
      ((name              . "SUPERSCRIPT LATIN SMALL LETTER N")
       (=ucs              . #x207F)     ; ⁿ
       ))
-    (=ks-x1001         . #x297A)       ; �����
     ))