From 86919013c970a5c183dfeb5ecd8bba8607f18917 Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Tue, 25 Oct 2022 23:22:00 +0900
Subject: [PATCH] (A-BC-8DAE): Unify A-BC-8DAE-itaiji-002.
 (BC-8DAE-itaiji-002): New character; use `<-denotational'
 for A-BC-8DAE. (U+563C): Add `<-denotational@usage' for
 A2-DJT-01495. (UU+563C): Unify DJT-01495. (GT-K10496): New
 character; use `<-denotational' for U+563C. (A2-DJT-01495):
 New abstract node.

---
 lisp/utf-2000/Ideograph-R030-Mouth.el |   85 ++++++++++++++++++++++++++-------
 1 file changed, 68 insertions(+), 17 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R030-Mouth.el b/lisp/utf-2000/Ideograph-R030-Mouth.el
index b5900c3..b89e7eb 100644
--- a/lisp/utf-2000/Ideograph-R030-Mouth.el
+++ b/lisp/utf-2000/Ideograph-R030-Mouth.el
@@ -46564,23 +46564,6 @@
      ((=>ucs@cognate	  . #x55AE)	; &A-cgnU+55AE;
       ))
     (ideographic-radical . 30)	; ⼝
-    (ideographic-structure
-     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
-      (=ucs		  . #x2FF1)	; ⿱
-      )
-     ((=>ucs@component	  . #x5405)	; &A-compU+5405;
-      (=>iwds-1		  .  0398)	; &A-compU+5405;
-      )
-     ((=>big5-cdp-itaiji-001 . #x8BD9)	; &A-CDP-i001-8BD9;
-      ))
-    (=>big5-cdp		. #x8DAE)	; &A-CB07641;
-    (=>cbeta		. 07641)	; &A-CB07641;
-    ))
-(define-char
-  '((<-denotational
-     ((=>ucs@cognate	  . #x55AE)	; &A-cgnU+55AE;
-      ))
-    (ideographic-radical . 30)	; ⼝
     (ideographic-strokes . 9)
     (total-strokes	 . 12)
     (hanyu-dazidian	1 654 6)
@@ -46612,6 +46595,41 @@
     ))
 (define-char
   '((<-denotational
+     ((=>ucs@cognate	  . #x55AE)	; &A-cgnU+55AE;
+      ))
+    (ideographic-radical . 30)	; ⼝
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=>ucs@component	  . #x5405)	; &A-compU+5405;
+      (=>iwds-1		  .  0398)	; &A-compU+5405;
+      )
+     ((=>big5-cdp-itaiji-001 . #x8BD9)	; &A-CDP-i001-8BD9;
+      ))
+    (=>big5-cdp		. #x8DAE)	; &A-CB07641;
+    (=>cbeta		. 07641)	; &A-CB07641;
+    (=>big5-cdp-itaiji-002 . #x8DAE)	; &A-CB07641;
+    ))
+(define-char
+  '((<-denotational
+     ((=>big5-cdp	  . #x8DAE)	; &A-CB07641;
+      ))
+    (ideographic-radical . 30)	; ⼝
+    (ideographic-strokes . 7)
+    (total-strokes	 . 10)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x2BA4F)	; 𫩏
+      )
+     ((=big5-cdp-itaiji-001 . #x8BD9)	; &CDP-i001-8BD9;
+      ))
+    (=big5-cdp-itaiji-002 . #x8DAE)	; &CDP-i002-8DAE;
+    ))
+(define-char
+  '((<-denotational
      ((=>big5-cdp	  . #x8DAE)	; &A-CB07641;
       ))
     (ideographic-radical . 30)	; ⼝
@@ -65849,6 +65867,9 @@
   '((<-denotational
      ((=>ucs@cognate	  . #x563C)	; &A-cgnU+563C;
       ))
+    (<-denotational@usage
+     ((==>daijiten	  . 01495)	; &A2-DJT-01495;
+      ))
     (ideographic-radical . 30)	; ⼝
     (ideographic-strokes . 12)
     (total-strokes	 . 15)
@@ -65894,6 +65915,7 @@
     (=cns11643-4	. #x4931)	; &I-C4-4931; [41-17]
     (=big5-cdp		. #x8DB1)	; &I-CDP-8DB1;
     (=daikanwa		. 04279)	; &I-M-04279;
+    (=daijiten		. 01495)	; &I-DJT-01495;
     (<-ancient
      ((=ucs@unicode	  . #x755C)	; &AJ1-02970;
       (=adobe-japan1-0	  . 02970)	; &AJ1-02970;
@@ -65948,9 +65970,12 @@
       (==cns11643-4	  . #x4931)	; &g2-AJ1-21297; [41-17]
       (==big5-cdp	  . #x8DB1)	; &g2-AJ1-21297;
       (==daikanwa	  . 04279)	; &g2-AJ1-21297;
+      (==daijiten	  . 01495)	; &g2-AJ1-21297;
       (->subsumptive
        ((===daikanwa	    . 04279)	; &R-M-04279;
 	)
+       ((===daijiten	    . 01495)	; &R-DJT-01495;
+	)
        ((===jis-x0212	    . #x363B)	; &R-JSP-363B; [22-27]
 	)
        ((===adobe-japan1-6  . 21297)	; &R-AJ1-21297;
@@ -65965,6 +65990,28 @@
     ))
 (define-char
   '((<-denotational
+     ((=ucs		  . #x563C)	; 嘼
+      ))
+    (ideographic-radical . 30)	; ⼝
+    (ideographic-strokes . 10)
+    (total-strokes	 . 13)
+    (ideographic-structure@apparent
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs-itaiji-001	  . #x3F5E)	; &U-i001+3F5E;
+      )
+     ((=ucs		  . #x20B9B)	; 𠮛
+      ))
+    (=gt-k		. 10496)	; &GT-K10496;
+    (=gt-pj-k1		. #x3865)	; &GT-K10496; [24-69]
+    (->subsumptive
+     ((==gt-k		  . 10496)	; &g2-GT-K10496;
+      (==gt-pj-k1	  . #x3865)	; &g2-GT-K10496; [24-69]
+      ))
+    ))
+(define-char
+  '((<-denotational
      ((=>ucs@cognate	  . #x563C)	; &A-cgnU+563C;
       ))
     (ideographic-radical . 30)	; ⼝
@@ -93409,6 +93456,10 @@
     ))
 (define-char
   '((ideographic-radical . 30)	; ⼝
+    (==>daijiten	. 01495)	; &A2-DJT-01495;
+    ))
+(define-char
+  '((ideographic-radical . 30)	; ⼝
     (==>ucs@bucs	. #x564E)	; &BUCS+564E;
     (==>daijiten	. 01506)	; &BUCS+564E;
     ))
-- 
1.7.10.4