From 8efdba74cf076c67877c7b6bc72ccfa5afd0f762 Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Sat, 11 Nov 2017 14:25:11 +0900
Subject: [PATCH] (U+23140-itaiji-001): Unify GT-K04903.

---
 lisp/utf-2000/Ideograph-R030-Mouth.el |   52 +++++++++++++++++++--------------
 1 file changed, 30 insertions(+), 22 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R030-Mouth.el b/lisp/utf-2000/Ideograph-R030-Mouth.el
index 6d220a4..aef10fd 100644
--- a/lisp/utf-2000/Ideograph-R030-Mouth.el
+++ b/lisp/utf-2000/Ideograph-R030-Mouth.el
@@ -13518,28 +13518,6 @@
     (=>ucs-itaiji-001	. #x23140)	; &A-U-i001+23140;
     ))
 (define-char
-  '((<-denotational
-     ((=>ucs-itaiji-001	  . #x23140)	; &A-U-i001+23140;
-      ))
-    (ideographic-radical . 30)	; ⼝
-    (ideographic-strokes . 5)
-    (total-strokes	 . 8)
-    (ideographic-structure
-     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
-      (=ucs		  . #x2FF1)	; ⿱
-      )
-     ((=ucs		  . #x4EA0)	; 亠
-      )
-     ((=ucs		  . #x5415)	; 吕
-      ))
-    (=ucs-itaiji-001	. #x23140)	; &U-i001+23140;
-    (<-formed@component
-     ((=ucs@iso		  . #x23140)	; &GT-17371;
-      (=cns11643-6	  . #x247A)	; &GT-17371; [04-90]
-      (=daikanwa	  . 13739)	; &I-M-13739;
-      ))
-    ))
-(define-char
   '((ideographic-radical . 30)	; ⼝
     (ideographic-strokes . 5)
     (total-strokes	 . 8)
@@ -13576,6 +13554,36 @@
       ))
     ))
 (define-char
+  '((<-denotational
+     ((=>ucs-itaiji-001	  . #x23140)	; &A-U-i001+23140;
+      ))
+    (ideographic-radical . 30)	; ⼝
+    (ideographic-strokes . 5)
+    (total-strokes	 . 8)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x4EA0)	; 亠
+      )
+     ((=ucs		  . #x5415)	; 吕
+      ))
+    (=gt-k		. 04903)	; &U-i001+23140;
+    (=gt-pj-k1		. #x393C)	; &U-i001+23140; [25-28]
+    (=ucs-itaiji-001	. #x23140)	; &U-i001+23140;
+    (<-formed@component
+     ((=ucs@iso		  . #x23140)	; &GT-17371;
+      (=cns11643-6	  . #x247A)	; &GT-17371; [04-90]
+      (=daikanwa	  . 13739)	; &I-M-13739;
+      ))
+    (->subsumptive
+     ((==ucs-itaiji-001	  . #x23140)	; &g2-U-i001+23140;
+      )
+     ((==gt-k		  . 04903)	; &g2-GT-K04903;
+      (==gt-pj-k1	  . #x393C)	; &g2-GT-K04903; [25-28]
+      ))
+    ))
+(define-char
   '((ideographic-radical . 30)	; ⼝
     (ideographic-strokes . 5)
     (total-strokes	 . 8)
-- 
1.7.10.4