(U+****): Add `->fullwidth'.

(fullwidth *): Use `=>ucs' instead of `->ucs'; add `<-fullwidth'.

diff --git a/lisp/utf-2000/u02070-Superscripts.el b/lisp/utf-2000/u02070-Superscripts.el
index c7bd5f8..7a0b69f 100644 (file)
--- a/lisp/utf-2000/u02070-Superscripts.el
+++ b/lisp/utf-2000/u02070-Superscripts.el
@@ -18,11 +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)       ; ⁴
+    (=>ucs             . #x2074)       ; ⁴
     (general-category  number other) ; Normative Category
     (bidi-category     . "EN")
     (mirrored          . nil)
@@ -30,6 +34,10 @@
     (digit-value        . 4)
     (numeric-value      . 4)
     (->decomposition   wide #x2074)
+    (<-fullwidth
+     ((name              . "SUPERSCRIPT FOUR")
+      (ucs               . #x2074)     ; ⁴
+      ))
     (korean-ksc5601    . #x2979)       ; �����
     ))
 (define-char
@@ -133,14 +141,22 @@
     (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)       ; ⁿ
+    (=>ucs             . #x207F)       ; ⁿ
     (general-category  letter lowercase) ; Normative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   wide #x207F)
+    (<-fullwidth
+     ((name              . "SUPERSCRIPT LATIN SMALL LETTER N")
+      (ucs               . #x207F)     ; ⁿ
+      ))
     (korean-ksc5601    . #x297A)       ; �����
     ))

diff --git a/lisp/utf-2000/u02080-Subscripts.el b/lisp/utf-2000/u02080-Subscripts.el
index 5a5fde3..5fa7d4e 100644 (file)
--- 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)       ; ₎
     ))