From 8b10b0214f3b18dda3f7d3c03737926fada5e36d Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Mon, 19 Apr 2021 11:36:34 +0900
Subject: [PATCH] (KOSEKI-026340): Separate hanaJU+2D118 and MJ057058; unify
 U+2D118-var-001 and U+2D118-var-002.

---
 lisp/utf-2000/Ideograph-R018-Knife.el |   35 +++++++++++++++++++++++++++++++--
 1 file changed, 33 insertions(+), 2 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R018-Knife.el b/lisp/utf-2000/Ideograph-R018-Knife.el
index 2a363a4..3767d90 100644
--- a/lisp/utf-2000/Ideograph-R018-Knife.el
+++ b/lisp/utf-2000/Ideograph-R018-Knife.el
@@ -20369,13 +20369,45 @@
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
       (=ucs		  . #x2FF0)	; â¿°
       )
+     ((=ucs-itaiji-002	  . #x2896B)	; &U-i002+2896B;
+      )
+     ((=ucs		  . #x5202)	; 刂
+      ))
+    (=koseki		. 026340)	; &KOSEKI-026340;
+    (=ucs-var-001	. #x2D118)	; &KOSEKI-026340;
+    (=ucs-var-002	. #x2D118)	; &KOSEKI-026340;
+    (<-formed
+     ((=ucs@unicode	  . #x5289)	; &MJ007602;
+      (=mj		  . 007602)	; &MJ007602;
+      ))
+    (<-formed$_1*sources
+     koseki mj)
+    (<-formed*sources
+     koseki mj)
+    (->subsumptive
+     ((==koseki		  . 026340)	; &g2-KOSEKI-026340;
+      (==ucs-var-002	  . #x2D118)	; &g2-KOSEKI-026340;
+      )
+     ((==ucs-var-001	  . #x2D118)	; &g2-U-v001+2D118;
+      ))
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x2D118)	; 𭄘
+      ))
+    (ideographic-radical . 18)	; ⼑
+    (ideographic-strokes . 15)
+    (total-strokes	 . 17)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
      ((=ucs-itaiji-001	  . #x2896B)	; &U-i001+2896B;
       )
      ((=ucs		  . #x5202)	; 刂
       ))
     (=ucs@JP/hanazono	. #x2D118)	; &MJ057058;
     (=mj		. 057058)	; &MJ057058;
-    (=koseki		. 026340)	; &MJ057058;
     (<-formed
      ((=ucs@unicode	  . #x5289)	; &MJ007602;
       (=mj		  . 007602)	; &MJ007602;
@@ -20387,7 +20419,6 @@
     (->subsumptive
      ((==ucs@JP/hanazono  . #x2D118)	; &g2-MJ057058;
       (==mj		  . 057058)	; &g2-MJ057058;
-      (==koseki		  . 026340)	; &g2-MJ057058;
       (->subsumptive
        ((===mj		    . 057058)	; &R-MJ057058;
 	))
-- 
1.7.10.4