From c8f152cd9e1956a8b850bd8044b75a8064b39ead Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Mon, 25 Apr 2016 00:17:41 +0900
Subject: [PATCH] (U-00020BC1): Separate o-IU+20BC1. (U+20BC1-itaiji-001): New
 character to subsume HNG-KHM0539-0; add `<-denotational'
 for U-00020BC1; add `<-formed' for U+8DB3.

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

diff --git a/lisp/utf-2000/Ideograph-R030-Mouth.el b/lisp/utf-2000/Ideograph-R030-Mouth.el
index 8442f52..6ce8c15 100644
--- a/lisp/utf-2000/Ideograph-R030-Mouth.el
+++ b/lisp/utf-2000/Ideograph-R030-Mouth.el
@@ -2830,6 +2830,14 @@
   '((ideographic-radical . 30)	; ⼝
     (ideographic-strokes . 3)
     (total-strokes	 . 6)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x53E3)	; 口
+      )
+     ((=>big5-cdp	  . #x8661)	; &A-CDP-8661;
+      ))
     (=ucs		. #x20BC1)	; 𠯁
     ))
 (define-char
@@ -2839,28 +2847,54 @@
     (ideographic-radical . 30)	; ⼝
     (ideographic-strokes . 3)
     (total-strokes	 . 6)
-    (hanyu-dazidian	1 584 3)
-    (=ucs@iso		. #x20BC1)	; &M-03318;
-    (=daikanwa		. 03318)	; &M-03318;
-    (<-vulgar
-     ((=ucs		  . #x8DB3)	; 足
-      (=daikanwa	  . 37365)	; &I-M-37365;
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x53E3)	; 口
+      )
+     ((=>big5-cdp	  . #x8961)	; &A-CDP-8961;
       ))
-    (<-vulgar*sources
-     songyuan-yilai-suzipu daikanwa)
+    (=+>ucs@iso		. #x20BC1)	; &o-IU+20BC1;
     (->subsumptive
-     ((==daikanwa	  . 03318)	; &g2-M-03318;
-      )
-     ((==ucs@iso	  . #x20BC1)	; &g2-IU-00020BC1;
+     ((hanyu-dazidian	  1 584 3)
+      (ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+	(=ucs		    . #x2FF1)	; ⿱
+	)
+       ((=ucs		    . #x53E3)	; 口
+	)
+       ((=big5-cdp	    . #x8961)	; &CDP-8961;
+	))
+      (=ucs@iso		  . #x20BC1)	; &M-03318;
+      (=daikanwa	  . 03318)	; &M-03318;
+      (<-vulgar
+       ((=ucs		    . #x8DB3)	; 足
+	(=daikanwa	    . 37365)	; &I-M-37365;
+	))
+      (<-vulgar*sources
+       songyuan-yilai-suzipu daikanwa)
       (->subsumptive
-       ((===ucs@iso	    . #x20BC1)	; &R-U-00020BC1;
+       ((==daikanwa	    . 03318)	; &g2-M-03318;
+	)
+       ((==ucs@iso	    . #x20BC1)	; &g2-IU-00020BC1;
+	(->subsumptive
+	 ((===ucs@iso	      . #x20BC1)	; &R-U-00020BC1;
+	  )
+	 ((=hanziku-2	      . #xCAB1)	; &HZK02-CAB1;
+	  ))
 	)
-       ((=hanziku-2	    . #xCAB1)	; &HZK02-CAB1;
+       ((===hng-khi	    . 05780)	; &HNG010-05780;
+	(<-formed
+	 ((=ucs		      . #x8DB3)	; 足
+	  ))
 	))
       )
-     ((===hng-khi	  . 05780)	; &HNG010-05780;
-      (<-formed
-       ((=ucs		    . #x8DB3)	; 足
+     ((=ucs@cns		  . #x20BC1)	; &C6-242A;
+      (=cns11643-6	  . #x242A)	; &C6-242A; [04-10]
+      (->subsumptive
+       ((==ucs@cns	    . #x20BC1)	; &g2-CU+20BC1;
+	(==cns11643-6	    . #x242A)	; &g2-CU+20BC1; [04-10]
 	))
       ))
     ))
@@ -2871,11 +2905,22 @@
     (ideographic-radical . 30)	; ⼝
     (ideographic-strokes . 3)
     (total-strokes	 . 6)
-    (=ucs@cns		. #x20BC1)	; &C6-242A;
-    (=cns11643-6	. #x242A)	; &C6-242A; [04-10]
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x53E3)	; 口
+      )
+     ((=big5-cdp	  . #x8661)	; &CDP-8661;
+      ))
+    (=ucs-itaiji-001	. #x20BC1)	; &U-i001+20BC1;
+    (<-formed
+     ((=ucs		  . #x8DB3)	; 足
+      ))
+    (<-formed*sources
+     hng)
     (->subsumptive
-     ((==ucs@cns	  . #x20BC1)	; &g2-CU+20BC1;
-      (==cns11643-6	  . #x242A)	; &g2-CU+20BC1; [04-10]
+     ((===hng-khm	  . 05390)	; &HNG011-05390;
       ))
     ))
 (define-char
-- 
1.7.10.4