From 0781b6ea468155309d082f53256892864e82a6b8 Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Sat, 26 Aug 2023 18:53:17 +0900
Subject: [PATCH] (U+5500): Add `<-denotational@usage' for BUCS+8A98; apply
 new conventions for glyph granularity.

---
 lisp/utf-2000/Ideograph-R030-Mouth.el |   39 ++++++++++++++++++++++++++++++---
 1 file changed, 36 insertions(+), 3 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R030-Mouth.el b/lisp/utf-2000/Ideograph-R030-Mouth.el
index 63b0b37..c0d5145 100644
--- a/lisp/utf-2000/Ideograph-R030-Mouth.el
+++ b/lisp/utf-2000/Ideograph-R030-Mouth.el
@@ -27586,10 +27586,12 @@
     (=cbeta		. 00063)	; &I-CB00063;
     ))
 (define-char
-  '((ideographic-radical . 30)	; ⼝
+  '((<-denotational@usage
+     ((==>ucs@bucs	  . #x8A98)	; &BUCS+8A98;
+      ))
+    (ideographic-radical . 30)	; ⼝
     (ideographic-strokes . 7)
     (total-strokes	 . 10)
-    (hanyu-dazidian	1 630 19)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
       (=ucs		  . #x2FF0)	; â¿°
@@ -27598,14 +27600,42 @@
       )
      ((=ucs		  . #x79C0)	; 秀
       ))
+    (sound@ja/on	"Iu")
     (=ucs		. #x5500)	; 唀
-    (=adobe-japan1-5	. 17364)	; &I-AJ1-17364;
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x5500)	; 唀
+      ))
+    (ideographic-radical . 30)	; ⼝
+    (ideographic-strokes . 7)
+    (total-strokes	 . 10)
+    (hanyu-dazidian	1 630 19)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=ucs		  . #x53E3)	; 口
+      )
+     ((=ucs@unicode	  . #x79C0)	; &AJ1-02354;
+      (=adobe-japan1-0	  . 02354)	; &AJ1-02354;
+      ))
+    (=ucs@unicode	. #x5500)	; &AJ1-17364;
+    (=adobe-japan1-5	. 17364)	; &AJ1-17364;
     (=jis-x0212		. #x3545)	; &I-JSP-3545; [21-37]
     (=cns11643-3	. #x2F7B)	; &I-C3-2F7B; [15-91]
     (=jis-x0213-2	. #x237C)	; &I-JX2-237C; [03-92]
     (=daikanwa		. 03689)	; &I-M-03689;
+    (=daijiten		. 01331)	; &I-DJT-01331;
     (=cbeta		. 01831)	; &I-CB01831;
     (=jef-china3	. #x46D6)	; &I-JC3-46D6;
+    (<-same
+     ((=ucs@unicode	  . #x8A98)	; &AJ1-03872;
+      (=adobe-japan1-0	  . 03872)	; &AJ1-03872;
+      (=daikanwa	  . 35525)	; &I-M-35525;
+      ))
+    (<-same*sources
+     zhengzitong daikanwa)
     (->subsumptive
      ((=decomposition@cid
        ((=ucs		    . #x5500)	; 唀
@@ -27617,11 +27647,14 @@
       (==jis-x0212	  . #x3545)	; &g2-AJ1-17364; [21-37]
       (==jis-x0213-2	  . #x237C)	; &g2-AJ1-17364; [03-92]
       (==daikanwa	  . 03689)	; &g2-AJ1-17364;
+      (==daijiten	  . 01331)	; &g2-AJ1-17364;
       (==cbeta		  . 01831)	; &g2-AJ1-17364;
       (==jef-china3	  . #x46D6)	; &g2-AJ1-17364;
       (->subsumptive
        ((===daikanwa	    . 03689)	; &R-M-03689;
 	)
+       ((===daijiten	    . 01331)	; &R-DJT-01331;
+	)
        ((===jis-x0212	    . #x3545)	; &R-JX2-237C; [21-37]
 	(===jis-x0213-2	    . #x237C)	; &R-JX2-237C; [03-92]
 	)
-- 
1.7.10.4