From 6d6e43f5bdf93a24f2d40c7145cf8bf14dbc38f9 Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Fri, 31 Aug 2018 12:22:06 +0900
Subject: [PATCH] (U-00023887): Apply new conventions for glyph granularity.
 (U-00023891): Likewise.

---
 lisp/utf-2000/Ideograph-R076-Lack.el |   89 +++++++++++++++++++++++++++++++---
 1 file changed, 83 insertions(+), 6 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R076-Lack.el b/lisp/utf-2000/Ideograph-R076-Lack.el
index 20ad94c..ea18077 100644
--- a/lisp/utf-2000/Ideograph-R076-Lack.el
+++ b/lisp/utf-2000/Ideograph-R076-Lack.el
@@ -480,13 +480,41 @@
   '((ideographic-radical . 76)	; ⽋
     (ideographic-strokes . 3)
     (total-strokes	 . 7)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=ucs		  . #x5DF1)	; å·±
+      )
+     ((=ucs		  . #x6B20)	; 欠
+      ))
+    (sound@ja/on	"kai" "ki")
     (=ucs		. #x23887)	; 𣢇
+    (=mj		. 038502)	; &I-MJ038502;
+    (=cns11643-4	. #x244A)	; &I-C4-244A; [04-42]
+    (=koseki		. 181750)	; 𣢇
+    (=daikanwa		. 16003)	; &I-M-16003;
+    (<-formed
+     ((=ucs@unicode	  . #x23891)	; &C5-2659;
+      (=cns11643-5	  . #x2659)	; &C5-2659; [06-57]
+      (=daikanwa	  . 16018)	; &I-M-16018;
+      ))
+    (<-formed$_1*sources
+     jiyun)
+    (<-same
+     ((=ucs@unicode	  . #x23891)	; &C5-2659;
+      (=cns11643-5	  . #x2659)	; &C5-2659; [06-57]
+      (=daikanwa	  . 16018)	; &I-M-16018;
+      ))
+    (<-same*sources
+     jiyun daikanwa)
     (->subsumptive
-     ((=daikanwa	  . 16003)	; &M-16003;
+     ((==daikanwa	  . 16003)	; &g2-M-16003;
       )
-     ((=cns11643-4	  . #x244A)	; &C4-244A; [04-42]
+     ((==ucs@cns	  . #x23887)	; &g2-CU+23887;
+      (==cns11643-4	  . #x244A)	; &g2-CU+23887; [04-42]
       )
-     ((=ucs@iso		  . #x23887)	; &U-00023887;
+     ((==ucs@iso	  . #x23887)	; &g2-IU-00023887;
       ))
     ))
 (define-char
@@ -829,12 +857,61 @@
   '((ideographic-radical . 76)	; ⽋
     (ideographic-strokes . 4)
     (total-strokes	 . 8)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=ucs		  . #x37A2)	; 㞢
+      )
+     ((=ucs		  . #x6B20)	; 欠
+      ))
+    (sound@ja/on	"ki" "kai")
     (=ucs		. #x23891)	; 𣢑
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x23891)	; 𣢑
+      ))
+    (ideographic-radical . 76)	; ⽋
+    (ideographic-strokes . 4)
+    (total-strokes	 . 8)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=ucs@unicode	  . #x37A2)	; &C3-2162;
+      (=cns11643-3	  . #x2162)	; &C3-2162; [01-66]
+      (=daikanwa	  . 07829)	; &I-M-07829;
+      )
+     ((=ucs		  . #x6B20)	; 欠
+      ))
+    (=ucs@unicode	. #x23891)	; &C5-2659;
+    (=cns11643-5	. #x2659)	; &C5-2659; [06-57]
+    (=daikanwa		. 16018)	; &I-M-16018;
+    (->formed
+     ((=ucs		  . #x54A5)	; 咥
+      (=daikanwa	  . 03534)	; &I-M-03534;
+      )
+     ((=ucs		  . #x23887)	; 𣢇
+      (=daikanwa	  . 16003)	; &I-M-16003;
+      ))
+    (->formed$_1*sources
+     jiyun daikanwa)
+    (->formed$_2*sources
+     jiyun daikanwa)
+    (->formed*sources
+     jiyun daikanwa)
     (->subsumptive
-     ((=cns11643-5	  . #x2659)	; &C5-2659; [06-57]
-      (=daikanwa	  . 16018)	; &I-M-16018;
+     ((==ucs@cns	  . #x23891)	; &g2-M-16018;
+      (==cns11643-5	  . #x2659)	; &g2-M-16018; [06-57]
+      (==daikanwa	  . 16018)	; &g2-M-16018;
+      (->subsumptive
+       ((===daikanwa	    . 16018)	; &R-M-16018;
+	)
+       ((===cns11643-5	    . #x2659)	; &R-C5-2659; [06-57]
+	))
       )
-     ((=ucs@iso		  . #x23891)	; &U-00023891;
+     ((==ucs@iso	  . #x23891)	; &g2-IU-00023891;
       ))
     ))
 (define-char
-- 
1.7.10.4