X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2Fu02070-Superscripts.el;h=c342d4093a7075280eb24252896f863027a43ebe;hb=35c13863ee0ebf39d8a77b10722749bc3ffda287;hp=39c536272449803fb86bd92a563f0179e6fd0b81;hpb=b68a9cf450649fe469737761948d28742a74684b;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/utf-2000/u02070-Superscripts.el b/lisp/utf-2000/u02070-Superscripts.el
index 39c5362..c342d40 100644
--- a/lisp/utf-2000/u02070-Superscripts.el
+++ b/lisp/utf-2000/u02070-Superscripts.el
@@ -7,11 +7,11 @@
     (decimal-digit-value . 0)
     (digit-value	 . 0)
     (numeric-value	 . 0)
+    (=ucs		. #x2070)	; ⁰
     (<-superscript
      ((name		  . "DIGIT ZERO")
       (=ucs		  . #x0030)	; 0
       ))
-    (=ucs		. #x2070)	; ⁰
     ))
 (define-char
   '((name		. "SUPERSCRIPT FOUR")
@@ -21,22 +21,22 @@
     (decimal-digit-value . 4)
     (digit-value	 . 4)
     (numeric-value	 . 4)
+    (=ucs		. #x2074)	; ⁴
     (<-superscript
      ((name		  . "DIGIT FOUR")
       (=ucs		  . #x0034)	; 4
       ))
-    (=ucs		. #x2074)	; ⁴
     ))
 (define-char
   '((<-denotational
      ((name		  . "SUPERSCRIPT FOUR")
       (=ucs		  . #x2074)	; ⁴
       ))
+    (=ks-x1001		. #x2979)	; &K0-2979; [09-89]
     (<-fullwidth
      ((name		  . "SUPERSCRIPT FOUR")
       (=ucs		  . #x2074)	; ⁴
       ))
-    (=ks-x1001		. #x2979)	; &K0-2979; [09-89]
     ))
 (define-char
   '((name		. "SUPERSCRIPT FIVE")
@@ -46,11 +46,11 @@
     (decimal-digit-value . 5)
     (digit-value	 . 5)
     (numeric-value	 . 5)
+    (=ucs		. #x2075)	; ⁵
     (<-superscript
      ((name		  . "DIGIT FIVE")
       (=ucs		  . #x0035)	; 5
       ))
-    (=ucs		. #x2075)	; ⁵
     ))
 (define-char
   '((name		. "SUPERSCRIPT SIX")
@@ -60,11 +60,11 @@
     (decimal-digit-value . 6)
     (digit-value	 . 6)
     (numeric-value	 . 6)
+    (=ucs		. #x2076)	; ⁶
     (<-superscript
      ((name		  . "DIGIT SIX")
       (=ucs		  . #x0036)	; 6
       ))
-    (=ucs		. #x2076)	; ⁶
     ))
 (define-char
   '((name		. "SUPERSCRIPT SEVEN")
@@ -74,11 +74,11 @@
     (decimal-digit-value . 7)
     (digit-value	 . 7)
     (numeric-value	 . 7)
+    (=ucs		. #x2077)	; ⁷
     (<-superscript
      ((name		  . "DIGIT SEVEN")
       (=ucs		  . #x0037)	; 7
       ))
-    (=ucs		. #x2077)	; ⁷
     ))
 (define-char
   '((name		. "SUPERSCRIPT EIGHT")
@@ -88,11 +88,11 @@
     (decimal-digit-value . 8)
     (digit-value	 . 8)
     (numeric-value	 . 8)
+    (=ucs		. #x2078)	; ⁸
     (<-superscript
      ((name		  . "DIGIT EIGHT")
       (=ucs		  . #x0038)	; 8
       ))
-    (=ucs		. #x2078)	; ⁸
     ))
 (define-char
   '((name		. "SUPERSCRIPT NINE")
@@ -102,86 +102,86 @@
     (decimal-digit-value . 9)
     (digit-value	 . 9)
     (numeric-value	 . 9)
+    (=ucs		. #x2079)	; ⁹
     (<-superscript
      ((name		  . "DIGIT NINE")
       (=ucs		  . #x0039)	; 9
       ))
-    (=ucs		. #x2079)	; ⁹
     ))
 (define-char
   '((name		. "SUPERSCRIPT PLUS SIGN")
     (general-category	symbol math) ; Informative Category
     (bidi-category	. "ET")
     (mirrored		. nil)
+    (=ucs		. #x207A)	; ⁺
     (<-superscript
      ((name		  . "PLUS SIGN")
       (=ucs		  . #x002B)	; +
       ))
-    (=ucs		. #x207A)	; ⁺
     ))
 (define-char
   '((name		. "SUPERSCRIPT MINUS")
     (general-category	symbol math) ; Informative Category
     (bidi-category	. "ET")
     (mirrored		. nil)
+    (=ucs		. #x207B)	; ⁻
     (<-superscript
      ((name		  . "MINUS SIGN")
       (=ucs		  . #x2212)	; −
       ))
-    (=ucs		. #x207B)	; ⁻
     ))
 (define-char
   '((name		. "SUPERSCRIPT EQUALS SIGN")
     (general-category	symbol math) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
+    (=ucs		. #x207C)	; ⁼
     (<-superscript
      ((name		  . "EQUALS SIGN")
       (=ucs		  . #x003D)	; =
       ))
-    (=ucs		. #x207C)	; ⁼
     ))
 (define-char
   '((name		. "SUPERSCRIPT LEFT PARENTHESIS")
     (general-category	punctuation open) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. t)
+    (=ucs		. #x207D)	; ⁽
     (<-superscript
      ((name		  . "LEFT PARENTHESIS")
       (=ucs		  . #x0028)	; (
       ))
-    (=ucs		. #x207D)	; ⁽
     ))
 (define-char
   '((name		. "SUPERSCRIPT RIGHT PARENTHESIS")
     (general-category	punctuation close) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. t)
+    (=ucs		. #x207E)	; ⁾
     (<-superscript
      ((name		  . "RIGHT PARENTHESIS")
       (=ucs		  . #x0029)	; )
       ))
-    (=ucs		. #x207E)	; ⁾
     ))
 (define-char
   '((name		. "SUPERSCRIPT LATIN SMALL LETTER N")
     (general-category	letter lowercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x207F)	; ⁿ
     (<-superscript
      ((name		  . "LATIN SMALL LETTER N")
       (=ucs		  . #x006E)	; n
       ))
-    (=ucs		. #x207F)	; ⁿ
     ))
 (define-char
   '((<-denotational
      ((name		  . "SUPERSCRIPT LATIN SMALL LETTER N")
       (=ucs		  . #x207F)	; ⁿ
       ))
+    (=ks-x1001		. #x297A)	; &K0-297A; [09-90]
     (<-fullwidth
      ((name		  . "SUPERSCRIPT LATIN SMALL LETTER N")
       (=ucs		  . #x207F)	; ⁿ
       ))
-    (=ks-x1001		. #x297A)	; &K0-297A; [09-90]
     ))