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

---
 lisp/utf-2000/Ideograph-R013-Down-Box.el |   87 +++++++++++++++---------------
 1 file changed, 45 insertions(+), 42 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R013-Down-Box.el b/lisp/utf-2000/Ideograph-R013-Down-Box.el
index c832b52..9883f6a 100644
--- a/lisp/utf-2000/Ideograph-R013-Down-Box.el
+++ b/lisp/utf-2000/Ideograph-R013-Down-Box.el
@@ -925,6 +925,51 @@
   '((<-denotational
      ((=ucs		  . #x5185)	; 内
       ))
+    (=>ucs*		. #x5167)	; 內
+    (ideographic-radical@ucs . 13)	; ⼌
+    (ideographic-strokes@ucs . 2)
+    (ideographic-radical@ucs*sources
+     daikanwa=01512 cns11643-6 ucs)
+    (ideographic-radical@cns . 9)	; ⼈
+    (ideographic-strokes@cns . 2)
+    (ideographic-radical@cns*sources
+     cns11643-3 daikanwa=00366/+p)
+    (total-strokes	 . 4)
+    (=ucs		. #x2F814)	; 內
+    (=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)	; 內
+    (->subsumptive
+     ((==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
+  '((<-denotational
+     ((=ucs		  . #x5185)	; 内
+      ))
     (ideographic-radical . 13)	; ⼌
     (ideographic-strokes . 2)
     (total-strokes	 . 4)
@@ -959,48 +1004,6 @@
       ))
     ))
 (define-char
-  '((<-denotational
-     ((=ucs		  . #x5185)	; 内
-      ))
-    (=>ucs*		. #x5167)	; 內
-    (ideographic-radical@ucs . 13)	; ⼌
-    (ideographic-strokes@ucs . 2)
-    (ideographic-radical@ucs*sources
-     daikanwa=01512 cns11643-6 ucs)
-    (ideographic-radical@cns . 9)	; ⼈
-    (ideographic-strokes@cns . 2)
-    (ideographic-radical@cns*sources
-     cns11643-3 daikanwa=00366/+p)
-    (total-strokes	 . 4)
-    (=ucs		. #x2F814)	; 內
-    (=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)	; 內
-    (->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;
-      ))
-    ))
-(define-char
   '((<-denotational@usage
      ((==>ucs@bucs	  . #x5713)	; &BUCS+5713;
       ))
-- 
1.7.10.4