(U+51E2): Unify C3-212F; use `->subsumptive' for M-00123 and M-01740.

diff --git a/lisp/utf-2000/Ideograph-R016-Table.el b/lisp/utf-2000/Ideograph-R016-Table.el
index f6a7176..4bdefdb 100644 (file)
--- a/lisp/utf-2000/Ideograph-R016-Table.el
+++ b/lisp/utf-2000/Ideograph-R016-Table.el
@@ -114,9 +114,12 @@
     (=gt-pj-k1         . #x692C)       ; ������
     ))
 (define-char
-  '((ideographic-radical . 16) ; ⼏
-    (ideographic-strokes . 1)
-    (total-strokes      . 3)
+  '((total-strokes      . 3)
+    (<-vulgar-ideograph
+     ((=daikanwa         . 01739)      ; �����
+      ))
+    (<-vulgar-ideograph*sources
+     zhengzi-tong daikanwa)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
       (=ucs              . #x2FF1)     ; ⿱
@@ -127,10 +130,21 @@
       ))
     (=ucs              . #x51E2)       ; 凢
     (=jis-x0212                . #x3329)       ; �����
+    (=cns11643-3       . #x212F)       ; �����
     (=jis-x0213-1-2000 . #x2E58)       ; �����
-    (=daikanwa         . 01740)        ; �����
     (=hanziku-1                . #xDEE9)       ; ������
     (=jef-china3       . #x41B8)       ; �����
+    (->subsumptive
+     ((ideographic-radical . 4)        ; ⼃
+      (ideographic-strokes . 2)
+      (ideographic-radical*sources daikanwa cns11643)
+      (=daikanwa         . 00123)      ; �����
+      )
+     ((ideographic-radical . 16)       ; ⼏
+      (ideographic-strokes . 1)
+      (ideographic-radical*sources daikanwa jis-x0213-2000 ucs)
+      (=daikanwa         . 01740)      ; �����
+      ))
     ))
 (define-char
   '((morohashi-daikanwa        1740 0 2)