(U+****): Add `->fullwidth'.
[chise/xemacs-chise.git] / lisp / utf-2000 / u02070-Superscripts.el
index c7bd5f8..7a0b69f 100644 (file)
     (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)
     (digit-value        . 4)
     (numeric-value      . 4)
     (->decomposition   wide #x2074)
+    (<-fullwidth
+     ((name              . "SUPERSCRIPT FOUR")
+      (ucs               . #x2074)     ; ⁴
+      ))
     (korean-ksc5601    . #x2979)       ; 
     ))
 (define-char
     (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)       ; 
     ))