From c4756877a3a3a4c60c5e57892fe9575d0f29ff4d Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Wed, 28 Sep 2022 14:17:30 +0900
Subject: [PATCH] (U-00020692): Apply new conventions for glyph granularity.

---
 lisp/utf-2000/Ideograph-R017-Open-Box.el |   37 ++++++++++++++++++++++++++++++
 1 file changed, 37 insertions(+)

diff --git a/lisp/utf-2000/Ideograph-R017-Open-Box.el b/lisp/utf-2000/Ideograph-R017-Open-Box.el
index 9915c8b..17e3544 100644
--- a/lisp/utf-2000/Ideograph-R017-Open-Box.el
+++ b/lisp/utf-2000/Ideograph-R017-Open-Box.el
@@ -2100,9 +2100,46 @@
     (total-strokes	 . 10)
     (hanyu-dazidian	1 309 14)
     (=ucs		. #x20692)	; 𠚒
+    (=mj		. 031224)	; &I-MJ031224;
     (=cns11643-6	. #x3548)	; &I-C6-3548; [21-40]
     (=big5-cdp		. #x87BF)	; &I-CDP-87BF;
+    (=koseki		. 021620)	; 𠚒
     (=daikanwa		. 01833)	; &I-M-01833;
+    (<-ancient
+     ((=ucs		  . #x9F52)	; 齒
+      )
+     ((=ucs@unicode	  . #x9F52)	; &AJ1-07458;
+      (=adobe-japan1-0	  . 07458)	; &AJ1-07458;
+      (=daikanwa	  . 48583)	; &I-M-48583;
+      ))
+    (<-ancient$_1*sources
+     shuowen)
+    (<-ancient$_2*sources
+     yupian daikanwa)
+    (<-ancient*sources
+     shuowen yupian daikanwa)
+    (->subsumptive
+     ((==ucs@cns	  . #x20692)	; &g2-MJ031224;
+      (==mj		  . 031224)	; &g2-MJ031224;
+      (==cns11643-6	  . #x3548)	; &g2-MJ031224; [21-40]
+      (==koseki		  . 021620)	; &g2-MJ031224;
+      (==daikanwa	  . 01833)	; &g2-MJ031224;
+      (->subsumptive
+       ((===daikanwa	    . 01833)	; &R-M-01833;
+	)
+       ((===mj		    . 031224)	; &R-MJ031224;
+	)
+       ((===cns11643-6	    . #x3548)	; &R-C6-3548; [21-40]
+	))
+      )
+     ((==ucs@iso	  . #x20692)	; &g2-CDP-87BF;
+      (==big5-cdp	  . #x87BF)	; &g2-CDP-87BF;
+      (->subsumptive
+       ((===big5-cdp	    . #x87BF)	; &R-CDP-87BF;
+	)
+       ((===ucs@iso	    . #x20692)	; &R-U-00020692;
+	))
+      ))
     ))
 (define-char
   '((ideographic-radical . 17)	; ⼐
-- 
1.7.10.4