X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2Fu02070-Superscripts.el;h=c342d4093a7075280eb24252896f863027a43ebe;hb=924e5000b051c9955ef5678884b7b4caf1b37620;hp=a9097bb1f270a4e3dfd6463354dba56f8e2025d5;hpb=e7783ccc5c7b4545f4afab9e1748b38e17aff09c;p=chise%2Fxemacs-chise.git.1

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