X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2Fu03190-Kanbun.el;h=93f41539a648c87f66ee0a3a0c3a24ff78325533;hb=ece47a0efe1526c65bf5e71136886425e05f85d9;hp=7e425f03647d63d38f1f3157275d53ba15a75032;hpb=a5812bf2ff9a9cf40f4ff78dcb83f5b4c295bd18;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/utf-2000/u03190-Kanbun.el b/lisp/utf-2000/u03190-Kanbun.el
index 7e425f0..93f4153 100644
--- a/lisp/utf-2000/u03190-Kanbun.el
+++ b/lisp/utf-2000/u03190-Kanbun.el
@@ -1,3 +1,4 @@
+;; -*- coding: utf-8-mcs-er -*-
 (define-char
   '((name		. "IDEOGRAPHIC ANNOTATION LINKING MARK")
     (general-category	symbol other) ; Informative Category
@@ -20,8 +21,10 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (iso-10646-comment	. "Kaeriten")
-    (->decomposition	super #x4E00)
     (=ucs		. #x3192)	; ㆒
+    (<-superscript
+     ((=ucs		  . #x4E00)	; 一
+      ))
     ))
 (define-char
   '((name		. "IDEOGRAPHIC ANNOTATION TWO MARK")
@@ -29,8 +32,10 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (iso-10646-comment	. "Kaeriten")
-    (->decomposition	super #x4E8C)
     (=ucs		. #x3193)	; ㆓
+    (<-superscript
+     ((=ucs		  . #x4E8C)	; 二
+      ))
     ))
 (define-char
   '((name		. "IDEOGRAPHIC ANNOTATION THREE MARK")
@@ -38,8 +43,10 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (iso-10646-comment	. "Kaeriten")
-    (->decomposition	super #x4E09)
     (=ucs		. #x3194)	; ㆔
+    (<-superscript
+     ((=ucs		  . #x4E09)	; 三
+      ))
     ))
 (define-char
   '((name		. "IDEOGRAPHIC ANNOTATION FOUR MARK")
@@ -47,8 +54,10 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (iso-10646-comment	. "Kaeriten")
-    (->decomposition	super #x56DB)
     (=ucs		. #x3195)	; ㆕
+    (<-superscript
+     ((=ucs		  . #x56DB)	; 四
+      ))
     ))
 (define-char
   '((name		. "IDEOGRAPHIC ANNOTATION TOP MARK")
@@ -56,8 +65,10 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (iso-10646-comment	. "Kaeriten")
-    (->decomposition	super #x4E0A)
     (=ucs		. #x3196)	; ㆖
+    (<-superscript
+     ((=ucs		  . #x4E0A)	; 上
+      ))
     ))
 (define-char
   '((name		. "IDEOGRAPHIC ANNOTATION MIDDLE MARK")
@@ -65,8 +76,10 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (iso-10646-comment	. "Kaeriten")
-    (->decomposition	super #x4E2D)
     (=ucs		. #x3197)	; ㆗
+    (<-superscript
+     ((=ucs		  . #x4E2D)	; 中
+      ))
     ))
 (define-char
   '((name		. "IDEOGRAPHIC ANNOTATION BOTTOM MARK")
@@ -74,8 +87,10 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (iso-10646-comment	. "Kaeriten")
-    (->decomposition	super #x4E0B)
     (=ucs		. #x3198)	; ㆘
+    (<-superscript
+     ((=ucs		  . #x4E0B)	; 下
+      ))
     ))
 (define-char
   '((name		. "IDEOGRAPHIC ANNOTATION FIRST MARK")
@@ -83,8 +98,10 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (iso-10646-comment	. "Kaeriten")
-    (->decomposition	super #x7532)
     (=ucs		. #x3199)	; ㆙
+    (<-superscript
+     ((=ucs		  . #x7532)	; 甲
+      ))
     ))
 (define-char
   '((name		. "IDEOGRAPHIC ANNOTATION SECOND MARK")
@@ -92,8 +109,10 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (iso-10646-comment	. "Kaeriten")
-    (->decomposition	super #x4E59)
     (=ucs		. #x319A)	; ㆚
+    (<-superscript
+     ((=ucs		  . #x4E59)	; 乙
+      ))
     ))
 (define-char
   '((name		. "IDEOGRAPHIC ANNOTATION THIRD MARK")
@@ -101,8 +120,10 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (iso-10646-comment	. "Kaeriten")
-    (->decomposition	super #x4E19)
     (=ucs		. #x319B)	; ㆛
+    (<-superscript
+     ((=ucs		  . #x4E19)	; 丙
+      ))
     ))
 (define-char
   '((name		. "IDEOGRAPHIC ANNOTATION FOURTH MARK")
@@ -110,8 +131,10 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (iso-10646-comment	. "Kaeriten")
-    (->decomposition	super #x4E01)
     (=ucs		. #x319C)	; ㆜
+    (<-superscript
+     ((=ucs		  . #x4E01)	; 丁
+      ))
     ))
 (define-char
   '((name		. "IDEOGRAPHIC ANNOTATION HEAVEN MARK")
@@ -119,8 +142,10 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (iso-10646-comment	. "Kaeriten")
-    (->decomposition	super #x5929)
     (=ucs		. #x319D)	; ㆝
+    (<-superscript
+     ((=ucs		  . #x5929)	; 天
+      ))
     ))
 (define-char
   '((name		. "IDEOGRAPHIC ANNOTATION EARTH MARK")
@@ -128,8 +153,10 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (iso-10646-comment	. "Kaeriten")
-    (->decomposition	super #x5730)
     (=ucs		. #x319E)	; ㆞
+    (<-superscript
+     ((=ucs		  . #x5730)	; 地
+      ))
     ))
 (define-char
   '((name		. "IDEOGRAPHIC ANNOTATION MAN MARK")
@@ -137,6 +164,8 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (iso-10646-comment	. "Kaeriten")
-    (->decomposition	super #x4EBA)
     (=ucs		. #x319F)	; ㆟
+    (<-superscript
+     ((=ucs		  . #x4EBA)	; 人
+      ))
     ))