From e76d90406d34df26caf21eaa6dbb6aac21e913fd Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Wed, 23 Jun 2021 20:43:46 +0900
Subject: [PATCH] (U+20020-itaiji-004): New character. (A-cgnU+20D76): New
 abstract node. (U-00020DDB): Add `<-denotational' for
 A-cgnU+20D76. (U-00020D76): Ditto; apply new conventions
 for glyph granularity. (U-0002D252): New character.
 (U-0002D254): New character. (UU+55C7): Add MJ059003 ad a
 value of `->formed'.

---
 lisp/utf-2000/Ideograph-R030-Mouth.el |  141 +++++++++++++++++++++++++++++++--
 1 file changed, 135 insertions(+), 6 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R030-Mouth.el b/lisp/utf-2000/Ideograph-R030-Mouth.el
index bbee824..a9ffdf4 100644
--- a/lisp/utf-2000/Ideograph-R030-Mouth.el
+++ b/lisp/utf-2000/Ideograph-R030-Mouth.el
@@ -11798,6 +11798,20 @@
       )
      ((=ucs		  . #x53E3)	; 口
       )
+     ((=ucs		  . #x51F6)	; 凶
+      ))
+    (=ucs-itaiji-004	. #x20020)	; &U-i004+20020;
+    ))
+(define-char
+  '((ideographic-radical . 30)	; ⼝
+    (ideographic-strokes . 4)
+    (total-strokes	 . 7)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x53E3)	; 口
+      )
      ((=ucs		  . #x6587)	; 文
       ))
     (=ruimoku-v6	. #xE035)	; &RUI6-E035;
@@ -44664,6 +44678,15 @@
     ))
 (define-char
   '((ideographic-radical . 30)	; ⼝
+    (ideographic-strokes . 8)
+    (total-strokes	 . 11)
+    (=>ucs@cognate	. #x20D76)	; &A-cgnU+20D76;
+    ))
+(define-char
+  '((<-denotational
+     ((=>ucs@cognate	  . #x20D76)	; &A-cgnU+20D76;
+      ))
+    (ideographic-radical . 30)	; ⼝
     (ideographic-strokes . 9)
     (total-strokes	 . 12)
     (ideographic-structure
@@ -44724,6 +44747,53 @@
       ))
     ))
 (define-char
+  '((<-denotational
+     ((=>ucs@cognate	  . #x20D76)	; &A-cgnU+20D76;
+      ))
+    (ideographic-radical . 30)	; ⼝
+    (ideographic-strokes . 8)
+    (total-strokes	 . 11)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs-itaiji-004	  . #x20020)	; &U-i004+20020;
+      )
+     ((=>ucs@component	  . #x53CE)	; &A-compU+53CE;
+      ))
+    (=ucs		. #x20D76)	; 𠵶
+    (<-ancient
+     ((=ucs		  . #x7B95)	; 箕
+      ))
+    (<-ancient*sources
+     shuowen)
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x20D76)	; 𠵶
+      ))
+    (ideographic-radical . 30)	; ⼝
+    (ideographic-strokes . 8)
+    (total-strokes	 . 11)
+    (hanyu-dazidian	1 644 2)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs-itaiji-004	  . #x20020)	; &U-i004+20020;
+      )
+     ((=ucs@iso		  . #x20B1E)	; &GT-03950;
+      (=cns11643-6	  . #x2162)	; &GT-03950; [01-66]
+      (=daikanwa	  . 03126)	; &I-M-03126;
+      ))
+    (=ucs@iso		. #x20D76)	; &U-00020D76;
+    (->subsumptive
+     ((==ucs@iso	  . #x20D76)	; &g2-IU-00020D76;
+      )
+     ((=hanziku-2	  . #xD6D4)	; &HZK02-D6D4;
+      ))
+    ))
+(define-char
   '((ideographic-radical . 30)	; ⼝
     (ideographic-strokes . 9)
     (total-strokes	 . 12)
@@ -46953,6 +47023,37 @@
     (ideographic-strokes . 9)
     (total-strokes	 . 12)
     (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x90A3)	; 那
+      )
+     ((=ucs		  . #x53EF)	; 可
+      ))
+    (=ucs		. #x2D252)	; 𭉒
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x2D252)	; 𭉒
+      ))
+    (ideographic-radical . 30)	; ⼝
+    (ideographic-strokes . 9)
+    (total-strokes	 . 12)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=mj		  . 026238)	; &MJ026238;
+      )
+     ((=ucs		  . #x53EF)	; 可
+      ))
+    (=ucs@JP/hanazono	. #x2D252)	; &hanaJU+2D252;
+    ))
+(define-char
+  '((ideographic-radical . 30)	; ⼝
+    (ideographic-strokes . 9)
+    (total-strokes	 . 12)
+    (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
       (=ucs		  . #x2FF0)	; â¿°
       )
@@ -46968,6 +47069,37 @@
     (ideographic-strokes . 9)
     (total-strokes	 . 12)
     (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x90A3)	; 那
+      )
+     ((=ucs		  . #x2BA51)	; 𫩑
+      ))
+    (=ucs		. #x2D254)	; 𭉔
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x2D254)	; 𭉔
+      ))
+    (ideographic-radical . 30)	; ⼝
+    (ideographic-strokes . 9)
+    (total-strokes	 . 12)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=mj		  . 026238)	; &MJ026238;
+      )
+     ((=ucs		  . #x2BA51)	; 𫩑
+      ))
+    (=ucs@JP/hanazono	. #x2D254)	; &hanaJU+2D254;
+    ))
+(define-char
+  '((ideographic-radical . 30)	; ⼝
+    (ideographic-strokes . 9)
+    (total-strokes	 . 12)
+    (ideographic-structure
      ((=>ucs@iwds-1	  . #x2FF8)	; &U-v002+2FF1;
       (=>iwds-1		  .  0305)	; &U-v002+2FF1;
       )
@@ -48392,6 +48524,9 @@
      ((=ucs		  . #x2D360)	; 𭍠
       )
      ((=ucs		  . #x2D365)	; 𭍥
+      )
+     ((=ucs@JP/hanazono	  . #x2E9CC)	; &MJ059003;
+      (=mj		  . 059003)	; &MJ059003;
       ))
     (->formed$_1*sources
      jiyun daikanwa)
@@ -87128,12 +87263,6 @@
     ))
 (define-char
   '((ideographic-radical . 30)	; ⼝
-    (hanyu-dazidian	1 644 2)
-    (=ucs		. #x20D76)	; 𠵶
-    (=hanziku-2		. #xD6D4)	; &I-HZK02-D6D4;
-    ))
-(define-char
-  '((ideographic-radical . 30)	; ⼝
     (hanyu-dazidian	1 647 10)
     (=ucs		. #x20D78)	; 𠵸
     (=hanziku-2		. #xD77D)	; &I-HZK02-D77D;
-- 
1.7.10.4