X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2Fu02070-Superscripts.el;h=cbd6a05982c820f65b72e592cc8f07e1d835e11b;hb=11ebfc83929ecb743d334f8f82438fd51a32e630;hp=46217bd7b0f3a37a8d66ba02a326871abb8d2d61;hpb=a5812bf2ff9a9cf40f4ff78dcb83f5b4c295bd18;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/utf-2000/u02070-Superscripts.el b/lisp/utf-2000/u02070-Superscripts.el
index 46217bd..cbd6a05 100644
--- a/lisp/utf-2000/u02070-Superscripts.el
+++ b/lisp/utf-2000/u02070-Superscripts.el
@@ -1,3 +1,4 @@
+;; -*- coding: utf-8-mcs -*-
 (define-char
   '((name		. "SUPERSCRIPT ZERO")
     (general-category	number other) ; Normative Category
@@ -20,7 +21,7 @@
     (->decomposition	super #x0034)
     (->fullwidth
      ((name		  . "fullwidth superscript four")
-      (korean-ksc5601	  . #x2979)	; ø»ˆ§”
+      (=ks-x1001	  . #x2979)	; ø»ˆ§”
       ))
     (=ucs		. #x2074)	; ⁴
     ))
@@ -38,7 +39,7 @@
      ((name		  . "SUPERSCRIPT FOUR")
       (=ucs		  . #x2074)	; ⁴
       ))
-    (korean-ksc5601	. #x2979)	; ø»ˆ§”
+    (=ks-x1001		. #x2979)	; ø»ˆ§”
     ))
 (define-char
   '((name		. "SUPERSCRIPT FIVE")
@@ -143,7 +144,7 @@
     (->decomposition	super #x006E)
     (->fullwidth
      ((name		  . "fullwidth superscript latin small letter n")
-      (korean-ksc5601	  . #x297A)	; ø»ˆ§•
+      (=ks-x1001	  . #x297A)	; ø»ˆ§•
       ))
     (=ucs		. #x207F)	; ⁿ
     ))
@@ -158,5 +159,5 @@
      ((name		  . "SUPERSCRIPT LATIN SMALL LETTER N")
       (=ucs		  . #x207F)	; ⁿ
       ))
-    (korean-ksc5601	. #x297A)	; ø»ˆ§•
+    (=ks-x1001		. #x297A)	; ø»ˆ§•
     ))