From 1ebb3135d2da6140a6c4de954ef28cbb061ceb4c Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Sat, 8 Apr 2017 14:18:05 +0900
Subject: [PATCH] (U+826E): Unify IWDS1-0199. (IWDS1-0357): New abstract
 component; use `<-denotational' for U+826E. (GT-K02400):
 New character; use `<-denotational' for IWDS1-0357.
 (BC-8B7C): Use IWDS1-0357 as its mother instead of U+826E;
 add `<-denotational@component' for IWDS1-0355.

---
 lisp/utf-2000/Ideograph-R138-Stopping.el |   28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)

diff --git a/lisp/utf-2000/Ideograph-R138-Stopping.el b/lisp/utf-2000/Ideograph-R138-Stopping.el
index 5c81fcf..ce725e2 100644
--- a/lisp/utf-2000/Ideograph-R138-Stopping.el
+++ b/lisp/utf-2000/Ideograph-R138-Stopping.el
@@ -3,6 +3,7 @@
   '((ideographic-radical . 138)	; ⾉
     (ideographic-strokes . 0)
     (=ucs		. #x826E)	; 艮
+    (=>iwds-1		.  0199)	; 艮
     ))
 (define-char
   '((<-denotational
@@ -62,6 +63,33 @@
       ))
     (ideographic-radical . 138)	; ⾉
     (ideographic-strokes . 0)
+    (=>big5-cdp		. #x8B7C)	; &IWDS1-357;
+    (=>iwds-1		.  0357)	; &IWDS1-357;
+    ))
+(define-char
+  '((<-denotational
+     ((=>iwds-1		  .  0357)	; &IWDS1-357;
+      ))
+    (ideographic-radical . 138)	; ⾉
+    (ideographic-strokes . 0)
+    (total-strokes	 . 6)
+    (=gt-k		. 02400)	; &GT-K02400;
+    (=gt-pj-k1		. #x3439)	; &GT-K02400; [20-25]
+    (->subsumptive
+     ((==gt-k		  . 02400)	; &g2-GT-K02400;
+      (==gt-pj-k1	  . #x3439)	; &g2-GT-K02400; [20-25]
+      ))
+    ))
+(define-char
+  '((<-denotational
+     ((=>iwds-1		  .  0357)	; &IWDS1-357;
+      ))
+    (<-denotational@component
+     ((=>ucs@component	  . #x7680)	; &IWDS1-355;
+      (=>iwds-1		  .  0355)	; &IWDS1-355;
+      ))
+    (ideographic-radical . 138)	; ⾉
+    (ideographic-strokes . 0)
     (total-strokes	 . 5)
     (=big5-cdp		. #x8B7C)	; &CDP-8B7C;
     (<-simplified@component
-- 
1.7.10.4