From d19769f2727699a3f1d5ce82cae8c0b53b4dde13 Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Mon, 10 Jul 2023 20:41:48 +0900
Subject: [PATCH] (U-0002F814): Apply new conventions for glyph granularity.
 (U+34B4): Likewise.

---
 lisp/utf-2000/Ideograph-R011-Enter.el |   76 +++++++++++++++++++++++----------
 1 file changed, 53 insertions(+), 23 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R011-Enter.el b/lisp/utf-2000/Ideograph-R011-Enter.el
index c659a97..a6bf137 100644
--- a/lisp/utf-2000/Ideograph-R011-Enter.el
+++ b/lisp/utf-2000/Ideograph-R011-Enter.el
@@ -550,28 +550,31 @@
     (=cns11643-6	. #x2150)	; &I-C6-2150; [01-48]
     (=gt		. 01982)	; &I-GT-01982;
     (=gt-pj-2		. #x3D2C)	; &I-GT-01982; [29-12]
-    (==daikanwa		. 01512)	; 內
-    (==daikanwa/+p	. 00366)	; 內
+    (=>>daikanwa	. 01512)	; 內
+    (=>>daikanwa/+p	. 00366)	; 內
     (->subsumptive
-     ((ideographic-radical . 13)	; ⼌
-      (ideographic-strokes . 2)
-      (===daikanwa	  . 01512)	; &R-M-01512;
-      )
-     ((ideographic-radical . 13)	; ⼌
-      (ideographic-strokes . 2)
-      (===cns11643-6	  . #x2150)	; &R-C6-2150; [01-48]
-      )
-     ((===gt		  . 01982)	; &R-GT-01982;
-      )
-     ((ideographic-radical . 13)	; ⼌
-      (ideographic-strokes . 2)
-      (===ucs@iso	  . #x2F814)	; &R-U-0002F814;
-      )
-     ((ideographic-radical . 9)	; ⼈
-      (ideographic-strokes . 2)
-      (===daikanwa/+p	  . 00366)	; &R-M-p00366;
-      )
-     ((===hng-kak	  . 00180)	; &HNG017-00180;
+     ((==ucs@cns	  . #x2F814)	; &g2-GT-01982;
+      (==cns11643-6	  . #x2150)	; &g2-GT-01982; [01-48]
+      (==gt		  . 01982)	; &g2-GT-01982;
+      (==daikanwa	  . 01512)	; &g2-GT-01982;
+      (==daikanwa/+p	  . 00366)	; &g2-GT-01982;
+      (->subsumptive
+       ((ideographic-radical . 13)	; ⼌
+	(ideographic-strokes . 2)
+	(===daikanwa	    . 01512)	; &R-M-01512;
+	)
+       ((ideographic-radical . 13)	; ⼌
+	(ideographic-strokes . 2)
+	(===cns11643-6	    . #x2150)	; &R-C6-2150; [01-48]
+	)
+       ((===gt		    . 01982)	; &R-GT-01982;
+	)
+       ((ideographic-radical . 9)	; ⼈
+	(ideographic-strokes . 2)
+	(===daikanwa/+p	    . 00366)	; &R-M-p00366;
+	)
+       ((===hng-kak	    . 00180)	; &HNG017-00180;
+	))
       ))
     ))
 (define-char
@@ -1450,6 +1453,26 @@
   '((ideographic-radical . 11)	; ⼊
     (ideographic-strokes . 5)
     (total-strokes	 . 7)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=>ucs@iwds-1	  . #x4EBA)	; &A-IWDSU+4EBA;
+      (=>iwds-1		  .  14623)	; &A-IWDSU+4EBA;
+      )
+     ((=>ucs@iwds-1	  . #x5C80)	; &A-IWDSU+5C80;
+      (=>ucs@component	  . #x51FA)	; &A-IWDSU+5C80;
+      ))
+    (sound@ja/on	"kotu")
+    (=ucs		. #x34B4)	; 㒴
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x34B4)	; 㒴
+      ))
+    (ideographic-radical . 11)	; ⼊
+    (ideographic-strokes . 5)
+    (total-strokes	 . 7)
     (hanyu-dazidian	1 129 4)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
@@ -1459,18 +1482,25 @@
       )
      ((=ucs		  . #x51FA)	; 出
       ))
-    (=ucs		. #x34B4)	; 㒴
+    (=ucs@unicode	. #x34B4)	; &MJ000140;
+    (=mj		. 000140)	; &MJ000140;
     (=cns11643-5	. #x2337)	; &I-C5-2337; [03-23]
+    (=koseki		. 016730)	; &MJ000140;
     (=daikanwa		. 01432)	; &I-M-01432;
     (->subsumptive
-     ((==daikanwa	  . 01432)	; &g2-M-01432;
+     ((==mj		  . 000140)	; &g2-MJ000140;
+      (==koseki		  . 016730)	; &g2-MJ000140;
+      (==daikanwa	  . 01432)	; &g2-MJ000140;
       (->subsumptive
        ((===daikanwa	    . 01432)	; &R-M-01432;
 	)
+       ((===mj		    . 000140)	; &R-MJ000140;
+	)
        ((=hanziku-1	    . #xBE71)	; &HZK01-BE71;
 	))
       )
      ((==ucs@unicode	  . #x34B4)	; &g2-UU+34B4;
+      (==ucs@JP/hanazono  . nil)
       (==cns11643-5	  . #x2337)	; &g2-UU+34B4; [03-23]
       (->subsumptive
        ((===ucs@unicode	    . #x34B4)	; &R-UU+34B4;
-- 
1.7.10.4