(MJ057407): Unify U-0002D606.

(A-CB02138): Unify A-compU+2D606.
(U+5DEB-itaiji-001): Add representative node.

diff --git a/lisp/utf-2000/Ideograph-R048-Work.el b/lisp/utf-2000/Ideograph-R048-Work.el
index 93516bf..4929b5a 100644 (file)
--- a/lisp/utf-2000/Ideograph-R048-Work.el
+++ b/lisp/utf-2000/Ideograph-R048-Work.el
@@ -902,33 +902,9 @@
       ))
     ))
 (define-char
-  '((ideographic-radical . 48) ; ⼯
-    (ideographic-strokes . 5)
-    (total-strokes      . 8)
-    (=>cbeta           . 02138)        ; &A-CB02138;
-    ))
-(define-char
   '((<-denotational
-     ((=>cbeta           . 02138)      ; &A-CB02138;
-      ))
-    (ideographic-radical . 48) ; ⼯
-    (ideographic-strokes . 5)
-    (total-strokes      . 8)
-    (ideographic-structure
-     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO MIDDLE AND BELOW")
-      (=ucs              . #x2FF3)     ; ⿳
-      )
-     ((=ucs              . #x4E00)     ; 一
-      )
-     ((=ucs              . #x4ECE)     ; 从
-      )
-     ((=ucs              . #x5DE5)     ; 工
-      ))
-    (=ucs-itaiji-001   . #x5DEB)       ; &U-i001+5DEB;
-    ))
-(define-char
-  '((<-denotational
-     ((=>cbeta           . 02138)      ; &A-CB02138;
+     ((=>ucs@component   . #x2D606)    ; &A-CB02138;
+      (=>cbeta           . 02138)      ; &A-CB02138;
       ))
     (ideographic-radical . 48) ; ⼯
     (ideographic-strokes . 5)
@@ -941,8 +917,9 @@
       )
      ((=ucs              . #x5750)     ; 坐
       ))
-    (=mj               . 057407)       ; &MJ057407;
-    (=koseki           . 098840)       ; &MJ057407;
+    (=ucs              . #x2D606)      ; 𭘆
+    (=mj               . 057407)       ; &I-MJ057407;
+    (=koseki           . 098840)       ; 𭘆
     (=cbeta            . 02138)        ; &I-CB02138;
     (<-formed
      ((=ucs              . #x5DEB)     ; 巫
@@ -950,7 +927,8 @@
     (<-formed*sources
      koseki)
     (->subsumptive
-     ((==mj              . 057407)     ; &g2-MJ057407;
+     ((==ucs@JP/hanazono  . #x2D606)   ; &g2-MJ057407;
+      (==mj              . 057407)     ; &g2-MJ057407;
       (==koseki                  . 098840)     ; &g2-MJ057407;
       (==cbeta           . 02138)      ; &g2-MJ057407;
       (->subsumptive
@@ -962,6 +940,36 @@
     ))
 (define-char
   '((ideographic-radical . 48) ; ⼯
+    (ideographic-strokes . 5)
+    (total-strokes      . 8)
+    (=>ucs@component   . #x2D606)      ; &A-CB02138;
+    (=>cbeta           . 02138)        ; &A-CB02138;
+    ))
+(define-char
+  '((<-denotational
+     ((=>ucs@component   . #x2D606)    ; &A-CB02138;
+      (=>cbeta           . 02138)      ; &A-CB02138;
+      ))
+    (ideographic-radical . 48) ; ⼯
+    (ideographic-strokes . 5)
+    (total-strokes      . 8)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO MIDDLE AND BELOW")
+      (=ucs              . #x2FF3)     ; ⿳
+      )
+     ((=ucs              . #x4E00)     ; 一
+      )
+     ((=ucs              . #x4ECE)     ; 从
+      )
+     ((=ucs              . #x5DE5)     ; 工
+      ))
+    (=ucs-itaiji-001   . #x5DEB)       ; &U-i001+5DEB;
+    (->subsumptive
+     ((==ucs-itaiji-001          . #x5DEB)     ; &g2-U-i001+5DEB;
+      ))
+    ))
+(define-char
+  '((ideographic-radical . 48) ; ⼯
     (ideographic-strokes . 6)
     (total-strokes      . 9)
     (=ucs              . #x22020)      ; 𢀠