X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2Fu02070-Superscripts.el;h=7a0b69f0e99f4a6e36942d85ef652591cfdce53f;hb=448fe3821dd4496a934be581ec949deb7400b166;hp=c7bd5f81d862eca71595622a3c6be182066cfe1f;hpb=f001d8cd2d9c02a9c0fa4be01eba23df324ea4f9;p=chise%2Fxemacs-chise.git

diff --git a/lisp/utf-2000/u02070-Superscripts.el b/lisp/utf-2000/u02070-Superscripts.el
index c7bd5f8..7a0b69f 100644
--- 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)	; ø»ˆ§•
     ))