Add missing `=ucs@jis' features.

[chise/xemacs-chise.git.1] / lisp / utf-2000 / Ideograph-R102-Field.el

diff --git a/lisp/utf-2000/Ideograph-R102-Field.el b/lisp/utf-2000/Ideograph-R102-Field.el
index 34e7c57..a606774 100644 (file)
--- a/lisp/utf-2000/Ideograph-R102-Field.el
+++ b/lisp/utf-2000/Ideograph-R102-Field.el
@@ -178,11 +178,11 @@
     (ideographic-radical . 102)        ; ⽥
     (ideographic-strokes . 2)
     (total-strokes      . 7)
-    (->same
+    (<-same
      ((=ucs              . #x753A)     ; 町
       (=daikanwa         . 21735)      ; &I-M-21735;
       ))
-    (->same*sources
+    (<-same*sources
      daikanwa)
     (=ucs              . #x753C)       ; 甼
     (=jis-x0208                . #x6136)       ; &I-J90-6136; [65-22]
@@ -1420,8 +1420,12 @@
     (ideographic-strokes . 6)
     (total-strokes      . 11)
     (=ucs              . #x7568)       ; 畨
-    (=cns11643-3       . #x3747)       ; &I-C3-3747; [23-39]
-    (=daikanwa         . 21855)        ; &I-M-21855;
+    (->subsumptive
+     ((=daikanwa         . 21855)      ; &M-21855;
+      (=ucs@unicode      . #x7568)     ; &M-21855;
+      )
+     ((=cns11643-3       . #x3747)     ; &C3-3747; [23-39]
+      ))
     ))
 (define-char
   '((ideographic-radical . 102)        ; ⽥
@@ -1704,13 +1708,14 @@
     (=iso-ir165                . #x7D51)       ; &I-EGB-7D51; [93-49]
     ))
 (define-char
-  '((=>ucs             . #x7570)       ; 異
+  '((=>ucs*            . #x7570)       ; 異
     (ideographic-radical . 102)        ; ⽥
     (ideographic-strokes . 7)
     (total-strokes      . 12)
     (shinjigen-1       . 5055)
     (shinjigen-2       . 5055)
-    (=cns11643-6       . #x4B56)       ; &M-21866; [43-54]
+    (=ucs              . #x2F938)      ; 異
+    (=cns11643-6       . #x4B56)       ; &I-C6-4B56; [43-54]
     (=daikanwa         . 21866)        ; &I-M-21866;
     ))
 (define-char