(U-0002237A): Apply new conventions for glyph granularity.

diff --git a/lisp/utf-2000/Ideograph-R056-Shoot.el b/lisp/utf-2000/Ideograph-R056-Shoot.el
index c727199..7cf02c5 100644 (file)
--- 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