X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2Fu02070-Superscripts.el;h=46217bd7b0f3a37a8d66ba02a326871abb8d2d61;hb=6f8a91966f78f32c2150f434d378f7ac4d858bc0;hp=967d6e48a71f17b305afc9525c2b2659fe219a56;hpb=15ea65fd1f768e21d8f699a7ae909bbb5ed3a69b;p=chise%2Fxemacs-chise.git

diff --git a/lisp/utf-2000/u02070-Superscripts.el b/lisp/utf-2000/u02070-Superscripts.el
index 967d6e4..46217bd 100644
--- a/lisp/utf-2000/u02070-Superscripts.el
+++ b/lisp/utf-2000/u02070-Superscripts.el
@@ -1,6 +1,5 @@
 (define-char
   '((name		. "SUPERSCRIPT ZERO")
-    (ucs		. #x2070)
     (general-category	number other) ; Normative Category
     (bidi-category	. "EN")
     (mirrored		. nil)
@@ -8,10 +7,10 @@
     (digit-value	 . 0)
     (numeric-value	 . 0)
     (->decomposition	super #x0030)
+    (=ucs		. #x2070)	; ⁰
     ))
 (define-char
   '((name		. "SUPERSCRIPT FOUR")
-    (ucs		. #x2074)
     (general-category	number other) ; Normative Category
     (bidi-category	. "EN")
     (mirrored		. nil)
@@ -19,10 +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)
+  '((name		. "fullwidth superscript four")
+    (=>ucs		. #x2074)	; ⁴
     (general-category	number other) ; Normative Category
     (bidi-category	. "EN")
     (mirrored		. nil)
@@ -30,11 +34,14 @@
     (digit-value	 . 4)
     (numeric-value	 . 4)
     (->decomposition	wide #x2074)
-    (korean-ksc5601	#x29 #x79)	; ø»ˆ§”
+    (<-fullwidth
+     ((name		  . "SUPERSCRIPT FOUR")
+      (=ucs		  . #x2074)	; ⁴
+      ))
+    (korean-ksc5601	. #x2979)	; ø»ˆ§”
     ))
 (define-char
   '((name		. "SUPERSCRIPT FIVE")
-    (ucs		. #x2075)
     (general-category	number other) ; Normative Category
     (bidi-category	. "EN")
     (mirrored		. nil)
@@ -42,10 +49,10 @@
     (digit-value	 . 5)
     (numeric-value	 . 5)
     (->decomposition	super #x0035)
+    (=ucs		. #x2075)	; ⁵
     ))
 (define-char
   '((name		. "SUPERSCRIPT SIX")
-    (ucs		. #x2076)
     (general-category	number other) ; Normative Category
     (bidi-category	. "EN")
     (mirrored		. nil)
@@ -53,10 +60,10 @@
     (digit-value	 . 6)
     (numeric-value	 . 6)
     (->decomposition	super #x0036)
+    (=ucs		. #x2076)	; ⁶
     ))
 (define-char
   '((name		. "SUPERSCRIPT SEVEN")
-    (ucs		. #x2077)
     (general-category	number other) ; Normative Category
     (bidi-category	. "EN")
     (mirrored		. nil)
@@ -64,10 +71,10 @@
     (digit-value	 . 7)
     (numeric-value	 . 7)
     (->decomposition	super #x0037)
+    (=ucs		. #x2077)	; ⁷
     ))
 (define-char
   '((name		. "SUPERSCRIPT EIGHT")
-    (ucs		. #x2078)
     (general-category	number other) ; Normative Category
     (bidi-category	. "EN")
     (mirrored		. nil)
@@ -75,10 +82,10 @@
     (digit-value	 . 8)
     (numeric-value	 . 8)
     (->decomposition	super #x0038)
+    (=ucs		. #x2078)	; ⁸
     ))
 (define-char
   '((name		. "SUPERSCRIPT NINE")
-    (ucs		. #x2079)
     (general-category	number other) ; Normative Category
     (bidi-category	. "EN")
     (mirrored		. nil)
@@ -86,61 +93,70 @@
     (digit-value	 . 9)
     (numeric-value	 . 9)
     (->decomposition	super #x0039)
+    (=ucs		. #x2079)	; ⁹
     ))
 (define-char
   '((name		. "SUPERSCRIPT PLUS SIGN")
-    (ucs		. #x207A)
     (general-category	symbol math) ; Informative Category
     (bidi-category	. "ET")
     (mirrored		. nil)
     (->decomposition	super #x002B)
+    (=ucs		. #x207A)	; ⁺
     ))
 (define-char
   '((name		. "SUPERSCRIPT MINUS")
-    (ucs		. #x207B)
     (general-category	symbol math) ; Informative Category
     (bidi-category	. "ET")
     (mirrored		. nil)
     (->decomposition	super #x2212)
+    (=ucs		. #x207B)	; ⁻
     ))
 (define-char
   '((name		. "SUPERSCRIPT EQUALS SIGN")
-    (ucs		. #x207C)
     (general-category	symbol math) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
     (->decomposition	super #x003D)
+    (=ucs		. #x207C)	; ⁼
     ))
 (define-char
   '((name		. "SUPERSCRIPT LEFT PARENTHESIS")
-    (ucs		. #x207D)
     (general-category	punctuation open) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. t)
     (->decomposition	super #x0028)
+    (=ucs		. #x207D)	; ⁽
     ))
 (define-char
   '((name		. "SUPERSCRIPT RIGHT PARENTHESIS")
-    (ucs		. #x207E)
     (general-category	punctuation close) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. t)
     (->decomposition	super #x0029)
+    (=ucs		. #x207E)	; ⁾
     ))
 (define-char
   '((name		. "SUPERSCRIPT LATIN SMALL LETTER N")
-    (ucs		. #x207F)
     (general-category	letter lowercase) ; Normative Category
     (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)
+  '((name		. "fullwidth superscript latin small letter n")
+    (=>ucs		. #x207F)	; ⁿ
     (general-category	letter lowercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (->decomposition	wide #x207F)
-    (korean-ksc5601	#x29 #x7A)	; ø»ˆ§•
+    (<-fullwidth
+     ((name		  . "SUPERSCRIPT LATIN SMALL LETTER N")
+      (=ucs		  . #x207F)	; ⁿ
+      ))
+    (korean-ksc5601	. #x297A)	; ø»ˆ§•
     ))