From 13fe03a6813ed4bc213d9902c00f0790c482f2b8 Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Mon, 6 Feb 2023 02:41:35 +0900
Subject: [PATCH] (U+5638): Add `<-denotational@usage' for BUCS+5638; apply
 new conventions for glyph granularity. (BUCS+5638): New
 abstract node; unify A2-DJT-01493.

---
 lisp/utf-2000/Ideograph-R030-Mouth.el |   42 +++++++++++++++++++++++++++++----
 1 file changed, 37 insertions(+), 5 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R030-Mouth.el b/lisp/utf-2000/Ideograph-R030-Mouth.el
index 4378c54..72af0bf 100644
--- a/lisp/utf-2000/Ideograph-R030-Mouth.el
+++ b/lisp/utf-2000/Ideograph-R030-Mouth.el
@@ -65654,10 +65654,12 @@
     (=hanziku-2		. #xDF79)	; &I-HZK02-DF79;
     ))
 (define-char
-  '((ideographic-radical . 30)	; ⼝
+  '((<-denotational@usage
+     ((==>ucs@bucs	  . #x5638)	; &BUCS+5638;
+      ))
+    (ideographic-radical . 30)	; ⼝
     (ideographic-strokes . 12)
     (total-strokes	 . 15)
-    (hanyu-dazidian	1 684 2)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
       (=ucs		  . #x2FF0)	; â¿°
@@ -65666,17 +65668,39 @@
       )
      ((=ucs		  . #x7121)	; 無
       ))
+    (sound@ja/on/go	"hu" "mu")
+    (sound@ja/on/kan	"hu" "bu")
     (=ucs		. #x5638)	; 嘸
-    (=adobe-japan1-0	. 04434)	; &I-AJ1-04434;
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x5638)	; 嘸
+      ))
+    (ideographic-radical . 30)	; ⼝
+    (ideographic-strokes . 12)
+    (total-strokes	 . 15)
+    (hanyu-dazidian	1 684 2)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=ucs		  . #x53E3)	; 口
+      )
+     ((=ucs@unicode	  . #x7121)	; &AJ1-03777;
+      (=adobe-japan1-0	  . 03777)	; &AJ1-03777;
+      ))
+    (=ucs@unicode	. #x5638)	; &AJ1-04434;
+    (=adobe-japan1-0	. 04434)	; &AJ1-04434;
     (=jis-x0208		. #x535F)	; &I-J90-535F; [51-63]
     (=cns11643-2	. #x4F6D)	; &I-C2-4F6D; [47-77]
     (=jis-x0213-1	. #x535F)	; &I-JX1-535F; [51-63]
-    (=gb12345		. #x5F3C)	; 嘸 [63-28]
+    (=gb12345		. #x5F3C)	; &AJ1-04434; [63-28]
     (=big5		. #xE546)	; &I-B-E546;
     (=gt		. 05459)	; &I-GT-05459;
     (=gt-pj-1		. #x535F)	; &I-GT-05459; [51-63]
     (=daikanwa		. 04269)	; &I-M-04269;
-    (=shinjigen		.  1246)	; 嘸
+    (=daijiten		. 01493)	; &I-DJT-01493;
+    (=shinjigen		.  1246)	; &AJ1-04434;
     (->subsumptive
      ((=decomposition@cid
        ((=ucs		    . #x5638)	; 嘸
@@ -65691,10 +65715,13 @@
       (==gb12345	  . #x5F3C)	; &g2-AJ1-04434; [63-28]
       (==gt		  . 05459)	; &g2-AJ1-04434;
       (==daikanwa	  . 04269)	; &g2-AJ1-04434;
+      (==daijiten	  . 01493)	; &g2-AJ1-04434;
       (==shinjigen	  .  1246)	; &g2-AJ1-04434;
       (->subsumptive
        ((===daikanwa	    . 04269)	; &R-M-04269;
 	)
+       ((===daijiten	    . 01493)	; &R-DJT-01493;
+	)
        ((===jis-x0208	    . #x535F)	; &R-J0-535F; [51-63]
 	(===jis-x0213-1	    . #x535F)	; &R-J0-535F; [51-63]
 	)
@@ -93809,6 +93836,11 @@
     ))
 (define-char
   '((ideographic-radical . 30)	; ⼝
+    (==>ucs@bucs	. #x5638)	; &BUCS+5638;
+    (==>daijiten	. 01493)	; &BUCS+5638;
+    ))
+(define-char
+  '((ideographic-radical . 30)	; ⼝
     (==>daijiten	. 01495)	; &A2-DJT-01495;
     ))
 (define-char
-- 
1.7.10.4