From 7096c5219411e82b0863810309483cfbc589ae40 Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Thu, 13 Sep 2018 11:46:34 +0900
Subject: [PATCH] (MJ057407): Unify U-0002D606. (A-CB02138): Unify
 A-compU+2D606. (U+5DEB-itaiji-001): Add representative
 node.

---
 lisp/utf-2000/Ideograph-R048-Work.el |   66 +++++++++++++++++++---------------
 1 file changed, 37 insertions(+), 29 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R048-Work.el b/lisp/utf-2000/Ideograph-R048-Work.el
index 93516bf..4929b5a 100644
--- 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)	; 𢀠
-- 
1.7.10.4