From b3c435a8ea3cabb1d268c7c274e957f5118109f1 Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Tue, 23 Feb 2016 23:44:25 +0900
Subject: [PATCH] (U+84A6): Separate A-UU+84A6. (A-UU+84A6): Add
 `=>ucs@iwds-1'. (U+84A6-itaiji-002): New character; add
 `<-denotational' for U+84A6.

---
 lisp/utf-2000/Ideograph-R140-Grass.el |  121 +++++++++++++++++++++++++++++----
 1 file changed, 109 insertions(+), 12 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R140-Grass.el b/lisp/utf-2000/Ideograph-R140-Grass.el
index 7e75f85..ba78f20 100644
--- a/lisp/utf-2000/Ideograph-R140-Grass.el
+++ b/lisp/utf-2000/Ideograph-R140-Grass.el
@@ -29093,7 +29093,6 @@
 (define-char
   '((ideographic-radical . 140)	; ⾋
     (ideographic-strokes . 10)
-    (hanyu-dazidian	5 3265 5)
     (=ucs		. #x84A6)	; 蒦
     ))
 (define-char
@@ -29102,7 +29101,35 @@
       ))
     (ideographic-radical . 140)	; ⾋
     (ideographic-strokes . 10)
+    (hanyu-dazidian	5 3265 5)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x8279)	; 艹
+      )
+     ((=ucs		  . #x96BB)	; 隻
+      ))
+    (=>ucs@iwds-1	. #x84A6)	; &A-IWDSU+84A6;
+    (=>ucs@unicode	. #x84A6)	; &A-IWDSU+84A6;
+    ))
+(define-char
+  '((<-denotational
+     ((=>ucs@iwds-1	  . #x84A6)	; &A-IWDSU+84A6;
+      (=>ucs@unicode	  . #x84A6)	; &A-IWDSU+84A6;
+      ))
+    (ideographic-radical . 140)	; ⾋
+    (ideographic-strokes . 10)
     (total-strokes	 . 14)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((name		  . "CJK RADICAL GRASS THREE")
+      (=ucs		  . #x2EC0)	; ⻀
+      )
+     ((=ucs		  . #x96BB)	; 隻
+      ))
     (=big5-cdp		. #x8CB0)	; &GT-42188;
     (=gt		. 42188)	; &I-GT-42188;
     (=gt-k		. 11857)	; &I-GT-K11857;
@@ -29126,20 +29153,21 @@
     ))
 (define-char
   '((<-denotational
-     ((=ucs		  . #x84A6)	; 蒦
-      ))
-    (ideographic-radical . 140)	; ⾋
-    (ideographic-strokes . 10)
-    (total-strokes	 . 14)
-    (=cns11643-4	. #x466C)	; &C4-466C; [38-76]
-    ))
-(define-char
-  '((<-denotational
-     ((=ucs		  . #x84A6)	; 蒦
+     ((=>ucs@iwds-1	  . #x84A6)	; &A-IWDSU+84A6;
+      (=>ucs@unicode	  . #x84A6)	; &A-IWDSU+84A6;
       ))
     (ideographic-radical . 140)	; ⾋
     (ideographic-strokes . 10)
     (total-strokes	 . 13)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((name		  . "CJK RADICAL GRASS ONE")
+      (=ucs		  . #x2EBE)	; ⺾
+      )
+     ((=ucs		  . #x96BB)	; 隻
+      ))
     (=ucs@unicode	. #x84A6)	; &HD-JB-586E;
     (=jis-x0212		. #x586E)	; &HD-JB-586E; [56-78]
     (=jis-x0213-2	. #x7657)	; &I-JX2-7657; [86-55]
@@ -29147,7 +29175,18 @@
     (=gt		. 41801)	; &I-GT-41801;
     (=gt-pj-10		. #x6949)	; &I-GT-41801; [73-41]
     (->subsumptive
-     ((==ucs@unicode	  . #x84A6)	; &g2-HD-JB-586E;
+     ((ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+	(=ucs		    . #x2FF1)	; ⿱
+	)
+       ((=ucs@unicode	    . #x8279)	; &GT-39639;
+	(=gb2312	    . #x5C33)	; &GT-39639; [60-19]
+	(=jis-x0213-2	    . #x7576)	; &I-JX2-7576; [85-86]
+	)
+       ((==ucs@unicode	    . #x96BB)	; &g2-GT-56358;
+	(==jis-x0208	    . #x4049)	; &g2-GT-56358; [32-41]
+	))
+      (==ucs@unicode	  . #x84A6)	; &g2-HD-JB-586E;
       (==jis-x0212	  . #x586E)	; &g2-HD-JB-586E; [56-78]
       (==jis-x0213-2	  . #x7657)	; &g2-HD-JB-586E; [86-55]
       (==hanyo-denshi/jb  . #x586E)	; &g2-HD-JB-586E; [56-78]
@@ -29164,6 +29203,64 @@
       ))
     ))
 (define-char
+  '((<-denotational
+     ((=>ucs@iwds-1	  . #x84A6)	; &A-IWDSU+84A6;
+      (=>ucs@unicode	  . #x84A6)	; &A-IWDSU+84A6;
+      ))
+    (ideographic-radical . 140)	; ⾋
+    (ideographic-strokes . 10)
+    (total-strokes	 . 14)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((name		  . "CJK RADICAL GRASS TWO")
+      (=ucs		  . #x2EBF)	; ⺿
+      )
+     ((=ucs		  . #x96BB)	; 隻
+      ))
+    (=ucs@cns		. #x84A6)	; &C4-466C;
+    (=cns11643-4	. #x466C)	; &C4-466C; [38-76]
+    (->subsumptive
+     ((ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+	(=ucs		    . #x2FF1)	; ⿱
+	)
+       ((name		    . "CJK COMPATIBILITY IDEOGRAPH-FA5E")
+	(=ucs		    . #xFA5E)	; 艹
+	)
+       ((==ucs@unicode	    . #x96BB)	; &g2-GT-56358;
+	(==jis-x0208	    . #x4049)	; &g2-GT-56358; [32-41]
+	))
+      (==ucs@cns	  . #x84A6)	; &g2-CU+84A6;
+      (==cns11643-4	  . #x466C)	; &g2-CU+84A6; [38-76]
+      ))
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x84A6)	; 蒦
+      ))
+    (ideographic-radical . 140)	; ⾋
+    (ideographic-strokes . 10)
+    (total-strokes	 . 14)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=big5-cdp	  . #x85F0)	; &CDP-85F0;
+      )
+     ((ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+	(=ucs		    . #x2FF1)	; ⿱
+	)
+       ((=ucs		    . #x96B9)	; 隹
+	)
+       ((=ucs		    . #x4E42)	; 乂
+	))
+      ))
+    (=ucs-itaiji-002	. #x84A6)	; &U-i002+84A6;
+    ))
+(define-char
   '((=>ucs		. #x4501)	; 䔁
     (ideographic-radical . 140)	; ⾋
     (ideographic-strokes . 10)
-- 
1.7.10.4