Add mappings between CJK Ext B and CNS 11643 plain 5.

[chise/xemacs-chise.git.1] / lisp / utf-2000 / Ideograph-R032-Earth.el

diff --git a/lisp/utf-2000/Ideograph-R032-Earth.el b/lisp/utf-2000/Ideograph-R032-Earth.el
index 0a2f0c7..d8e1fd4 100644 (file)
--- a/lisp/utf-2000/Ideograph-R032-Earth.el
+++ b/lisp/utf-2000/Ideograph-R032-Earth.el
@@ -2341,7 +2341,7 @@
   '((ideographic-radical . 32) ; ⼟
     (ideographic-strokes . 5)
     (total-strokes      . 8)
-    (->same
+    (<-same
      ((=cns11643-6       . #x2641)     ; &M-48957; [06-33]
       (=daikanwa         . 48957)      ; &I-M-48957;
       ))
@@ -5502,12 +5502,19 @@
     (=daikanwa         . 05233)        ; &I-M-05233;
     ))
 (define-char
-  '((ideographic-radical . 32) ; ⼟
+  '((=>ucs*            . #x578B)       ; 型
+    (ideographic-radical . 32) ; ⼟
     (ideographic-strokes . 8)
     (total-strokes      . 11)
-    (<-original-ideograph
-     ((=daikanwa         . 05030)      ; &I-M-05030;
+    (<-denotational
+     ((=ucs              . #x578B)     ; 型
+      ))
+    (<-original
+     ((=ucs              . #x578B)     ; 型
+      (=daikanwa         . 05030)      ; &I-M-05030;
       ))
+    (<-original*sources
+     zhengzi-tong daikanwa)
     (=ucs              . #x2F855)      ; 型
     (=cns11643-3       . #x3470)       ; &I-C3-3470; [20-80]
     (=daikanwa         . 05234)        ; &I-M-05234;