From 4b8b449f0bc682c390d8608dfdda078ea8fdbd0b Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Sat, 15 Apr 2017 03:26:02 +0900
Subject: [PATCH] (GT-K00724): New character. (C4-2564): Unify CU+545D; add
 representative nodes. (U-00020C46): New character.
 (CB03114): Add `<-subsumptive' for U-00020C46. (GT-K04150):
 New character. (GT-K04958): New character. (CB04645): Unify
 U-00021C48; moved to Ideograph-R044-Corpse.el.

---
 lisp/utf-2000/Ideograph-R030-Mouth.el |  109 +++++++++++++++++++++++++++------
 1 file changed, 89 insertions(+), 20 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R030-Mouth.el b/lisp/utf-2000/Ideograph-R030-Mouth.el
index 0f28216..ad3ad18 100644
--- a/lisp/utf-2000/Ideograph-R030-Mouth.el
+++ b/lisp/utf-2000/Ideograph-R030-Mouth.el
@@ -205,6 +205,25 @@
     ))
 (define-char
   '((ideographic-radical . 30)	; ⼝
+    (ideographic-strokes . 1)
+    (total-strokes	 . 4)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM LOWER LEFT")
+      (=ucs		  . #x2FFA)	; ⿺
+      )
+     ((=ucs		  . #x200CA)	; 𠃊
+      )
+     ((=ucs		  . #x53E3)	; 口
+      ))
+    (=gt-k		. 00724)	; &GT-K00724;
+    (=gt-pj-k1		. #x6250)	; &GT-K00724; [66-48]
+    (->subsumptive
+     ((==gt-k		  . 00724)	; &g2-GT-K00724;
+      (==gt-pj-k1	  . #x6250)	; &g2-GT-K00724; [66-48]
+      ))
+    ))
+(define-char
+  '((ideographic-radical . 30)	; ⼝
     (ideographic-strokes . 2)
     (total-strokes	 . 5)
     (hanyu-dazidian	1 568 3)
@@ -9000,11 +9019,23 @@
       )
      ((=ucs		  . #x53E3)	; 口
       )
-     ((=ucs@jis		  . #x6239)	; &AJ1-19382;
+     ((=ucs@cns		  . #x6239)	; &AJ1-19382;
+      (=ucs@jis		  . #x6239)	; &AJ1-19382;
       (=adobe-japan1-5	  . 19382)	; &AJ1-19382;
       ))
+    (=ucs@cns		. #x545D)	; &C4-2564;
     (=cns11643-4	. #x2564)	; &C4-2564; [05-68]
     (=daikanwa		. 03425)	; &I-M-03425;
+    (->subsumptive
+     ((==ucs@cns	  . #x545D)	; &g2-M-03425;
+      (==cns11643-4	  . #x2564)	; &g2-M-03425; [05-68]
+      (==daikanwa	  . 03425)	; &g2-M-03425;
+      (->subsumptive
+       ((===daikanwa	    . 03425)	; &R-M-03425;
+	)
+       ((===cns11643-4	    . #x2564)	; &R-C4-2564; [05-68]
+	))
+      ))
     ))
 (define-char
   '((<-denotational
@@ -12849,6 +12880,31 @@
     (ideographic-strokes . 5)
     (total-strokes	 . 8)
     (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=ucs		  . #x53E3)	; 口
+      )
+     ((=ucs		  . #x5B55)	; 孕
+      ))
+    (=ucs		. #x20C46)	; 𠱆
+    (->subsumptive
+     ((=ucs@iso		  . #x20C46)	; &U-00020C46;
+      (->subsumptive
+       ((==ucs@iso	    . #x20C46)	; &g2-IU-00020C46;
+	))
+      )
+     ((=cbeta		  . 03114)	; &CB03114;
+      (->subsumptive
+       ((==cbeta	    . 03114)	; &g2-CB03114;
+	))
+      ))
+    ))
+(define-char
+  '((ideographic-radical . 30)	; ⼝
+    (ideographic-strokes . 5)
+    (total-strokes	 . 8)
+    (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
       (=ucs		  . #x2FF1)	; ⿱
       )
@@ -12863,28 +12919,44 @@
     (ideographic-strokes . 5)
     (total-strokes	 . 8)
     (ideographic-structure
-     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
-      (=ucs		  . #x2FF0)	; â¿°
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
       )
-     ((=ucs		  . #x53E3)	; 口
+     ((=gt-k		  . 00724)	; &GT-K00724;
       )
-     ((=ucs		  . #x5B55)	; 孕
+     ((=ucs		  . #x5186)	; 円
+      ))
+    (=gt-k		. 04150)	; &GT-K04150;
+    (=gt-pj-k2		. #x3B6F)	; &GT-K04150; [27-79]
+    (<-unknown
+     ((=ucs		  . #x26643)	; 𦙃
+      ))
+    (->subsumptive
+     ((==gt-k		  . 04150)	; &g2-GT-K04150;
+      (==gt-pj-k2	  . #x3B6F)	; &g2-GT-K04150; [27-79]
       ))
-    (=cbeta		. 03114)	; &CB03114;
     ))
 (define-char
   '((ideographic-radical . 30)	; ⼝
     (ideographic-strokes . 5)
     (total-strokes	 . 8)
     (ideographic-structure
-     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER LEFT")
-      (=ucs		  . #x2FF8)	; ⿸
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
       )
-     ((=ucs		  . #x5C38)	; å°¸
+     ((=ucs		  . #x4E00)	; 一
       )
-     ((=ucs		  . #x53E5)	; 句
+     ((=gt-k		  . 02910)	; &GT-K02910;
+      ))
+    (=gt-k		. 04958)	; &GT-K04958;
+    (=gt-pj-k2		. #x4277)	; &GT-K04958; [34-87]
+    (<-unknown
+     ((=ucs		  . #x54C0)	; 哀
+      ))
+    (->subsumptive
+     ((==gt-k		  . 04958)	; &g2-GT-K04958;
+      (==gt-pj-k2	  . #x4277)	; &g2-GT-K04958; [34-87]
       ))
-    (=cbeta		. 04645)	; &CB04645;
     ))
 (define-char
   '((<-denotational
@@ -32703,8 +32775,8 @@
        ((==ucs@unicode	    . #x53E3)	; &g2-AJ1-01969;
 	(==adobe-japan1-0   . 01969)	; &g2-AJ1-01969;
 	)
-       ((==ucs@jis	    . #x7A86)	; &g2-JSP-5155;
-	(==jis-x0212	    . #x5155)	; &g2-JSP-5155; [49-53]
+       ((==ucs@jis	    . #x7A86)	; &g2-AJ1-19629;
+	(==adobe-japan1-5   . 19629)	; &g2-AJ1-19629;
 	))
       (==daikanwa	  . 03995)	; &g2-M-03995;
       (==cbeta		  . 03312)	; &g2-M-03995;
@@ -41408,10 +41480,8 @@
       )
      ((=ucs		  . #x53E3)	; 口
       )
-     ((=ucs@jis		  . #x7FCF)	; &JX2-747B;
-      (=jis-x0212	  . #x553A)	; &JX2-747B; [53-26]
-      (=jis-x0213-2	  . #x747B)	; &I-JX2-747B; [84-91]
-      (=daikanwa	  . 28665)	; &I-M-28665;
+     ((=ucs@jis		  . #x7FCF)	; &AJ1-18400;
+      (=adobe-japan1-5	  . 18400)	; &AJ1-18400;
       ))
     (=ucs@jis		. #x5610)	; &AJ1-17393;
     (=adobe-japan1-5	. 17393)	; &AJ1-17393;
@@ -45732,9 +45802,8 @@
       )
      ((=ucs		  . #x53E3)	; 口
       )
-     ((=ucs@unicode	  . #x7D5C)	; &HD-JC-7A24;
-      (=cns11643-2	  . #x3E78)	; &HD-JC-7A24; [30-88]
-      (=jis-x0213-1	  . #x7A24)	; &I-JX1-7A24; [90-04]
+     ((=ucs@unicode	  . #x7D5C)	; &AJ1-17041;
+      (=adobe-japan1-5	  . 17041)	; &AJ1-17041;
       ))
     (=ucs@unicode	. #x5644)	; &C3-4B3E;
     (=ucs@JP/hanazono	. nil)
-- 
1.7.10.4