X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2Fu02070-Superscripts.el;h=2f762c4aaaec30a3cb50d9a454a339218baa6cff;hb=053d91660f9501466647edce50256ff0f6ff23cd;hp=6f032cb2c683d21d1fcbd80126ce135450098eec;hpb=ae65b5734f63aa1b2b07ddb26fe8eeea31679c5c;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/utf-2000/u02070-Superscripts.el b/lisp/utf-2000/u02070-Superscripts.el
index 6f032cb..2f762c4 100644
--- a/lisp/utf-2000/u02070-Superscripts.el
+++ b/lisp/utf-2000/u02070-Superscripts.el
@@ -1,3 +1,4 @@
+;; -*- coding: utf-8-mcs-er -*-
 (define-char
   '((name		. "SUPERSCRIPT ZERO")
     (general-category	number other) ; Normative Category
@@ -18,27 +19,18 @@
     (digit-value	 . 4)
     (numeric-value	 . 4)
     (->decomposition	super #x0034)
-    (->fullwidth
-     ((name		  . "fullwidth superscript four")
-      (=ks-x1001	  . #x2979)	; ø»ˆ§”
-      ))
     (=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")
@@ -141,22 +133,16 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (->decomposition	super #x006E)
-    (->fullwidth
-     ((name		  . "fullwidth superscript latin small letter n")
-      (=ks-x1001	  . #x297A)	; ø»ˆ§•
-      ))
     (=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]
     ))