(g2-UU+5B73): Add `=decomposition@hanyo-denshi'.

[chise/xemacs-chise.git.1] / lisp / utf-2000 / u02080-Subscripts.el

diff --git a/lisp/utf-2000/u02080-Subscripts.el b/lisp/utf-2000/u02080-Subscripts.el
index bfe0acf..e9f34a5 100644 (file)
--- a/lisp/utf-2000/u02080-Subscripts.el
+++ b/lisp/utf-2000/u02080-Subscripts.el
@@ -1,3 +1,4 @@
+;; -*- coding: utf-8-mcs-er -*-
 (define-char
   '((name              . "SUBSCRIPT ZERO")
     (general-category  number other) ; Normative Category
@@ -6,8 +7,11 @@
     (decimal-digit-value . 0)
     (digit-value        . 0)
     (numeric-value      . 0)
-    (->decomposition   sub #x0030)
     (=ucs              . #x2080)       ; ₀
+    (<-subscript
+     ((name              . "DIGIT ZERO")
+      (=ucs              . #x0030)     ; 0
+      ))
     ))
 (define-char
   '((name              . "SUBSCRIPT ONE")
@@ -17,28 +21,22 @@
     (decimal-digit-value . 1)
     (digit-value        . 1)
     (numeric-value      . 1)
-    (->decomposition   sub #x0031)
-    (->fullwidth
-     ((name              . "FULLWIDTH SUBSCRIPT ONE")
-      (korean-ksc5601    . #x297B)     ; �����
-      ))
     (=ucs              . #x2081)       ; ₁
+    (<-subscript
+     ((name              . "DIGIT ONE")
+      (=ucs              . #x0031)     ; 1
+      ))
     ))
 (define-char
-  '((name              . "FULLWIDTH SUBSCRIPT ONE")
-    (=>ucs             . #x2081)       ; ₁
-    (general-category  number other) ; Normative Category
-    (bidi-category     . "EN")
-    (mirrored          . nil)
-    (decimal-digit-value . 1)
-    (digit-value        . 1)
-    (numeric-value      . 1)
-    (->decomposition   wide #x2081)
+  '((<-denotational
+     ((name              . "SUBSCRIPT ONE")
+      (=ucs              . #x2081)     ; ₁
+      ))
+    (=ks-x1001         . #x297B)       ; &K0-297B; [09-91]
     (<-fullwidth
      ((name              . "SUBSCRIPT ONE")
       (=ucs              . #x2081)     ; ₁
       ))
-    (korean-ksc5601    . #x297B)       ; �����
     ))
 (define-char
   '((name              . "SUBSCRIPT TWO")
@@ -48,28 +46,22 @@
     (decimal-digit-value . 2)
     (digit-value        . 2)
     (numeric-value      . 2)
-    (->decomposition   sub #x0032)
-    (->fullwidth
-     ((name              . "FULLWIDTH SUBSCRIPT TWO")
-      (korean-ksc5601    . #x297C)     ; �����
-      ))
     (=ucs              . #x2082)       ; ₂
+    (<-subscript
+     ((name              . "DIGIT TWO")
+      (=ucs              . #x0032)     ; 2
+      ))
     ))
 (define-char
-  '((name              . "FULLWIDTH SUBSCRIPT TWO")
-    (=>ucs             . #x2082)       ; ₂
-    (general-category  number other) ; Normative Category
-    (bidi-category     . "EN")
-    (mirrored          . nil)
-    (decimal-digit-value . 2)
-    (digit-value        . 2)
-    (numeric-value      . 2)
-    (->decomposition   wide #x2082)
+  '((<-denotational
+     ((name              . "SUBSCRIPT TWO")
+      (=ucs              . #x2082)     ; ₂
+      ))
+    (=ks-x1001         . #x297C)       ; &K0-297C; [09-92]
     (<-fullwidth
      ((name              . "SUBSCRIPT TWO")
       (=ucs              . #x2082)     ; ₂
       ))
-    (korean-ksc5601    . #x297C)       ; �����
     ))
 (define-char
   '((name              . "SUBSCRIPT THREE")
@@ -79,28 +71,22 @@
     (decimal-digit-value . 3)
     (digit-value        . 3)
     (numeric-value      . 3)
-    (->decomposition   sub #x0033)
-    (->fullwidth
-     ((name              . "FULLWIDTH SUBSCRIPT THREE")
-      (korean-ksc5601    . #x297D)     ; �����
-      ))
     (=ucs              . #x2083)       ; ₃
+    (<-subscript
+     ((name              . "DIGIT THREE")
+      (=ucs              . #x0033)     ; 3
+      ))
     ))
 (define-char
-  '((name              . "FULLWIDTH SUBSCRIPT THREE")
-    (=>ucs             . #x2083)       ; ₃
-    (general-category  number other) ; Normative Category
-    (bidi-category     . "EN")
-    (mirrored          . nil)
-    (decimal-digit-value . 3)
-    (digit-value        . 3)
-    (numeric-value      . 3)
-    (->decomposition   wide #x2083)
+  '((<-denotational
+     ((name              . "SUBSCRIPT THREE")
+      (=ucs              . #x2083)     ; ₃
+      ))
+    (=ks-x1001         . #x297D)       ; &K0-297D; [09-93]
     (<-fullwidth
      ((name              . "SUBSCRIPT THREE")
       (=ucs              . #x2083)     ; ₃
       ))
-    (korean-ksc5601    . #x297D)       ; �����
     ))
 (define-char
   '((name              . "SUBSCRIPT FOUR")
@@ -110,28 +96,22 @@
     (decimal-digit-value . 4)
     (digit-value        . 4)
     (numeric-value      . 4)
-    (->decomposition   sub #x0034)
-    (->fullwidth
-     ((name              . "FULLWIDTH SUBSCRIPT FOUR")
-      (korean-ksc5601    . #x297E)     ; �����
-      ))
     (=ucs              . #x2084)       ; ₄
+    (<-subscript
+     ((name              . "DIGIT FOUR")
+      (=ucs              . #x0034)     ; 4
+      ))
     ))
 (define-char
-  '((name              . "FULLWIDTH SUBSCRIPT FOUR")
-    (=>ucs             . #x2084)       ; ₄
-    (general-category  number other) ; Normative Category
-    (bidi-category     . "EN")
-    (mirrored          . nil)
-    (decimal-digit-value . 4)
-    (digit-value        . 4)
-    (numeric-value      . 4)
-    (->decomposition   wide #x2084)
+  '((<-denotational
+     ((name              . "SUBSCRIPT FOUR")
+      (=ucs              . #x2084)     ; ₄
+      ))
+    (=ks-x1001         . #x297E)       ; &K0-297E; [09-94]
     (<-fullwidth
      ((name              . "SUBSCRIPT FOUR")
       (=ucs              . #x2084)     ; ₄
       ))
-    (korean-ksc5601    . #x297E)       ; �����
     ))
 (define-char
   '((name              . "SUBSCRIPT FIVE")
@@ -141,8 +121,11 @@
     (decimal-digit-value . 5)
     (digit-value        . 5)
     (numeric-value      . 5)
-    (->decomposition   sub #x0035)
     (=ucs              . #x2085)       ; ₅
+    (<-subscript
+     ((name              . "DIGIT FIVE")
+      (=ucs              . #x0035)     ; 5
+      ))
     ))
 (define-char
   '((name              . "SUBSCRIPT SIX")
@@ -152,8 +135,11 @@
     (decimal-digit-value . 6)
     (digit-value        . 6)
     (numeric-value      . 6)
-    (->decomposition   sub #x0036)
     (=ucs              . #x2086)       ; ₆
+    (<-subscript
+     ((name              . "DIGIT SIX")
+      (=ucs              . #x0036)     ; 6
+      ))
     ))
 (define-char
   '((name              . "SUBSCRIPT SEVEN")
@@ -163,8 +149,11 @@
     (decimal-digit-value . 7)
     (digit-value        . 7)
     (numeric-value      . 7)
-    (->decomposition   sub #x0037)
     (=ucs              . #x2087)       ; ₇
+    (<-subscript
+     ((name              . "DIGIT SEVEN")
+      (=ucs              . #x0037)     ; 7
+      ))
     ))
 (define-char
   '((name              . "SUBSCRIPT EIGHT")
@@ -174,8 +163,11 @@
     (decimal-digit-value . 8)
     (digit-value        . 8)
     (numeric-value      . 8)
-    (->decomposition   sub #x0038)
     (=ucs              . #x2088)       ; ₈
+    (<-subscript
+     ((name              . "DIGIT EIGHT")
+      (=ucs              . #x0038)     ; 8
+      ))
     ))
 (define-char
   '((name              . "SUBSCRIPT NINE")
@@ -185,46 +177,64 @@
     (decimal-digit-value . 9)
     (digit-value        . 9)
     (numeric-value      . 9)
-    (->decomposition   sub #x0039)
     (=ucs              . #x2089)       ; ₉
+    (<-subscript
+     ((name              . "DIGIT NINE")
+      (=ucs              . #x0039)     ; 9
+      ))
     ))
 (define-char
   '((name              . "SUBSCRIPT PLUS SIGN")
     (general-category  symbol math) ; Informative Category
     (bidi-category     . "ET")
     (mirrored          . nil)
-    (->decomposition   sub #x002B)
     (=ucs              . #x208A)       ; ₊
+    (<-subscript
+     ((name              . "PLUS SIGN")
+      (=ucs              . #x002B)     ; +
+      ))
     ))
 (define-char
   '((name              . "SUBSCRIPT MINUS")
     (general-category  symbol math) ; Informative Category
     (bidi-category     . "ET")
     (mirrored          . nil)
-    (->decomposition   sub #x2212)
     (=ucs              . #x208B)       ; ₋
+    (<-subscript
+     ((name              . "MINUS SIGN")
+      (=ucs              . #x2212)     ; −
+      ))
     ))
 (define-char
   '((name              . "SUBSCRIPT EQUALS SIGN")
     (general-category  symbol math) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . nil)
-    (->decomposition   sub #x003D)
     (=ucs              . #x208C)       ; ₌
+    (<-subscript
+     ((name              . "EQUALS SIGN")
+      (=ucs              . #x003D)     ; =
+      ))
     ))
 (define-char
   '((name              . "SUBSCRIPT LEFT PARENTHESIS")
     (general-category  punctuation open) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . t)
-    (->decomposition   sub #x0028)
     (=ucs              . #x208D)       ; ₍
+    (<-subscript
+     ((name              . "LEFT PARENTHESIS")
+      (=ucs              . #x0028)     ; (
+      ))
     ))
 (define-char
   '((name              . "SUBSCRIPT RIGHT PARENTHESIS")
     (general-category  punctuation close) ; Informative Category
     (bidi-category     . "ON")
     (mirrored          . t)
-    (->decomposition   sub #x0029)
     (=ucs              . #x208E)       ; ₎
+    (<-subscript
+     ((name              . "RIGHT PARENTHESIS")
+      (=ucs              . #x0029)     ; )
+      ))
     ))