From b440b64807e5aa0f062390b07b3d991a9786b980 Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Wed, 18 Sep 2024 04:16:52 +0900
Subject: [PATCH] (U-0002237A): Apply new conventions for glyph granularity.

---
 lisp/utf-2000/Ideograph-R056-Shoot.el |   28 ++++++++++++++++++----------
 1 file changed, 18 insertions(+), 10 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R056-Shoot.el b/lisp/utf-2000/Ideograph-R056-Shoot.el
index c727199..7cf02c5 100644
--- a/lisp/utf-2000/Ideograph-R056-Shoot.el
+++ b/lisp/utf-2000/Ideograph-R056-Shoot.el
@@ -68,18 +68,26 @@
     (ideographic-strokes@cns . 0)
     (total-strokes	 . 3)
     (=ucs		. #x2237A)	; 𢍺
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x2237A)	; 𢍺
+      ))
+    (ideographic-radical . 56)	; â¼·
+    (ideographic-strokes . 0)
+    (total-strokes	 . 3)
+    (=ucs@iso		. #x2237A)	; &M-09657;
+    (=daikanwa		. 09657)	; &M-09657;
+    (<-same
+     ((=ucs		  . #x5F0B)	; 弋
+      (=daikanwa	  . 09656)	; &I-M-09656;
+      ))
+    (<-same*sources
+     zihui-bu daikanwa)
     (->subsumptive
-     ((ideographic-radical . 56)	; â¼·
-      (ideographic-strokes . 0)
-      (=daikanwa	  . 09657)	; &M-09657;
-      )
-     ((ideographic-radical . 56)	; â¼·
-      (ideographic-strokes . 0)
-      (=ucs@iso		  . #x2237A)	; &U-0002237A;
+     ((==daikanwa	  . 09657)	; &g2-M-09657;
       )
-     ((ideographic-radical . 62)	; â¼½
-      (ideographic-strokes . 0)
-      (=cns11643-6	  . #x2140)	; &C6-2140; [01-32]
+     ((==ucs@iso	  . #x2237A)	; &g2-IU-0002237A;
       ))
     ))
 (define-char
-- 
1.7.10.4