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

diff --git a/lisp/utf-2000/u02070-Superscripts.el b/lisp/utf-2000/u02070-Superscripts.el
index cbd6a05..39c5362 100644
--- a/lisp/utf-2000/u02070-Superscripts.el
+++ b/lisp/utf-2000/u02070-Superscripts.el
@@ -1,4 +1,4 @@
-;; -*- coding: utf-8-mcs -*-
+;; -*- coding: utf-8-mcs-er -*-
 (define-char
   '((name		. "SUPERSCRIPT ZERO")
     (general-category	number other) ; Normative Category
@@ -7,7 +7,10 @@
     (decimal-digit-value . 0)
     (digit-value	 . 0)
     (numeric-value	 . 0)
-    (->decomposition	super #x0030)
+    (<-superscript
+     ((name		  . "DIGIT ZERO")
+      (=ucs		  . #x0030)	; 0
+      ))
     (=ucs		. #x2070)	; ⁰
     ))
 (define-char
@@ -18,28 +21,22 @@
     (decimal-digit-value . 4)
     (digit-value	 . 4)
     (numeric-value	 . 4)
-    (->decomposition	super #x0034)
-    (->fullwidth
-     ((name		  . "fullwidth superscript four")
-      (=ks-x1001	  . #x2979)	; ø»ˆ§”
+    (<-superscript
+     ((name		  . "DIGIT FOUR")
+      (=ucs		  . #x0034)	; 4
       ))
     (=ucs		. #x2074)	; ⁴
     ))
 (define-char
-  '((name		. "fullwidth superscript four")
-    (=>ucs		. #x2074)	; ⁴
-    (general-category	number other) ; Normative Category
-    (bidi-category	. "EN")
-    (mirrored		. nil)
-    (decimal-digit-value . 4)
-    (digit-value	 . 4)
-    (numeric-value	 . 4)
-    (->decomposition	wide #x2074)
+  '((<-denotational
+     ((name		  . "SUPERSCRIPT FOUR")
+      (=ucs		  . #x2074)	; ⁴
+      ))
     (<-fullwidth
      ((name		  . "SUPERSCRIPT FOUR")
       (=ucs		  . #x2074)	; ⁴
       ))
-    (=ks-x1001		. #x2979)	; ø»ˆ§”
+    (=ks-x1001		. #x2979)	; &K0-2979; [09-89]
     ))
 (define-char
   '((name		. "SUPERSCRIPT FIVE")
@@ -49,7 +46,10 @@
     (decimal-digit-value . 5)
     (digit-value	 . 5)
     (numeric-value	 . 5)
-    (->decomposition	super #x0035)
+    (<-superscript
+     ((name		  . "DIGIT FIVE")
+      (=ucs		  . #x0035)	; 5
+      ))
     (=ucs		. #x2075)	; ⁵
     ))
 (define-char
@@ -60,7 +60,10 @@
     (decimal-digit-value . 6)
     (digit-value	 . 6)
     (numeric-value	 . 6)
-    (->decomposition	super #x0036)
+    (<-superscript
+     ((name		  . "DIGIT SIX")
+      (=ucs		  . #x0036)	; 6
+      ))
     (=ucs		. #x2076)	; ⁶
     ))
 (define-char
@@ -71,7 +74,10 @@
     (decimal-digit-value . 7)
     (digit-value	 . 7)
     (numeric-value	 . 7)
-    (->decomposition	super #x0037)
+    (<-superscript
+     ((name		  . "DIGIT SEVEN")
+      (=ucs		  . #x0037)	; 7
+      ))
     (=ucs		. #x2077)	; ⁷
     ))
 (define-char
@@ -82,7 +88,10 @@
     (decimal-digit-value . 8)
     (digit-value	 . 8)
     (numeric-value	 . 8)
-    (->decomposition	super #x0038)
+    (<-superscript
+     ((name		  . "DIGIT EIGHT")
+      (=ucs		  . #x0038)	; 8
+      ))
     (=ucs		. #x2078)	; ⁸
     ))
 (define-char
@@ -93,7 +102,10 @@
     (decimal-digit-value . 9)
     (digit-value	 . 9)
     (numeric-value	 . 9)
-    (->decomposition	super #x0039)
+    (<-superscript
+     ((name		  . "DIGIT NINE")
+      (=ucs		  . #x0039)	; 9
+      ))
     (=ucs		. #x2079)	; ⁹
     ))
 (define-char
@@ -101,7 +113,10 @@
     (general-category	symbol math) ; Informative Category
     (bidi-category	. "ET")
     (mirrored		. nil)
-    (->decomposition	super #x002B)
+    (<-superscript
+     ((name		  . "PLUS SIGN")
+      (=ucs		  . #x002B)	; +
+      ))
     (=ucs		. #x207A)	; ⁺
     ))
 (define-char
@@ -109,7 +124,10 @@
     (general-category	symbol math) ; Informative Category
     (bidi-category	. "ET")
     (mirrored		. nil)
-    (->decomposition	super #x2212)
+    (<-superscript
+     ((name		  . "MINUS SIGN")
+      (=ucs		  . #x2212)	; −
+      ))
     (=ucs		. #x207B)	; ⁻
     ))
 (define-char
@@ -117,7 +135,10 @@
     (general-category	symbol math) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	super #x003D)
+    (<-superscript
+     ((name		  . "EQUALS SIGN")
+      (=ucs		  . #x003D)	; =
+      ))
     (=ucs		. #x207C)	; ⁼
     ))
 (define-char
@@ -125,7 +146,10 @@
     (general-category	punctuation open) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. t)
-    (->decomposition	super #x0028)
+    (<-superscript
+     ((name		  . "LEFT PARENTHESIS")
+      (=ucs		  . #x0028)	; (
+      ))
     (=ucs		. #x207D)	; ⁽
     ))
 (define-char
@@ -133,7 +157,10 @@
     (general-category	punctuation close) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. t)
-    (->decomposition	super #x0029)
+    (<-superscript
+     ((name		  . "RIGHT PARENTHESIS")
+      (=ucs		  . #x0029)	; )
+      ))
     (=ucs		. #x207E)	; ⁾
     ))
 (define-char
@@ -141,23 +168,20 @@
     (general-category	letter lowercase) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	super #x006E)
-    (->fullwidth
-     ((name		  . "fullwidth superscript latin small letter n")
-      (=ks-x1001	  . #x297A)	; ø»ˆ§•
+    (<-superscript
+     ((name		  . "LATIN SMALL LETTER N")
+      (=ucs		  . #x006E)	; n
       ))
     (=ucs		. #x207F)	; ⁿ
     ))
 (define-char
-  '((name		. "fullwidth superscript latin small letter n")
-    (=>ucs		. #x207F)	; ⁿ
-    (general-category	letter lowercase) ; Normative Category
-    (bidi-category	. "L")
-    (mirrored		. nil)
-    (->decomposition	wide #x207F)
+  '((<-denotational
+     ((name		  . "SUPERSCRIPT LATIN SMALL LETTER N")
+      (=ucs		  . #x207F)	; ⁿ
+      ))
     (<-fullwidth
      ((name		  . "SUPERSCRIPT LATIN SMALL LETTER N")
       (=ucs		  . #x207F)	; ⁿ
       ))
-    (=ks-x1001		. #x297A)	; ø»ˆ§•
+    (=ks-x1001		. #x297A)	; &K0-297A; [09-90]
     ))