From 42acaf36389aa3b1df4123860ee0cbf14d311f35 Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Wed, 12 Jul 2017 23:52:00 +0900
Subject: [PATCH] (GT-K00859): Add `<-denotational@component' for
 A-compU+706B. (g2-UU+5173): Apply new conventions for glyph
 granularity for components of ideographic-structure.
 (U+34B8): Add `ideographic-structure'. (g2-UU+34B8): Apply
 new conventions for glyph granularity for components of
 ideographic-structure. (g2-CU+34B8): Likewise.

---
 lisp/utf-2000/Ideograph-R012-Eight.el |   21 ++++++++++++++++++---
 1 file changed, 18 insertions(+), 3 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R012-Eight.el b/lisp/utf-2000/Ideograph-R012-Eight.el
index 719cbb2..f99be93 100644
--- a/lisp/utf-2000/Ideograph-R012-Eight.el
+++ b/lisp/utf-2000/Ideograph-R012-Eight.el
@@ -451,6 +451,9 @@
   '((<-denotational
      ((=ucs		  . #x20501)	; 𠔁
       ))
+    (<-denotational@component
+     ((=>ucs@component	  . #x706B)	; &A-compU+706B;
+      ))
     (ideographic-radical . 12)	; ⼋
     (ideographic-strokes . 2)
     (total-strokes	 . 4)
@@ -998,7 +1001,8 @@
        ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
 	(=ucs		    . #x2FF1)	; ⿱
 	)
-       ((=ucs		    . #x4E37)	; 丷
+       ((==ucs@unicode	    . #x4E37)	; &g2-AJ1-13981;
+	(==adobe-japan1-4   . 13981)	; &g2-AJ1-13981;
 	)
        ((==ucs@unicode	    . #x5929)	; &GT-K00468;
 	(=gt-k		    . 00468)	; &GT-K00468;
@@ -1989,6 +1993,15 @@
   '((ideographic-radical . 12)	; ⼋
     (ideographic-strokes . 7)
     (total-strokes	 . 9)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=>ucs@component	  . #x4E37)	; &A-compU+4E37;
+      (=>iwds-1		  .  0022)	; &A-compU+4E37;
+      )
+     ((=ucs		  . #x8C55)	; 豕
+      ))
     (=ucs		. #x34B8)	; 㒸
     ))
 (define-char
@@ -2050,7 +2063,8 @@
        ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
 	(=ucs		    . #x2FF1)	; ⿱
 	)
-       ((=ucs		    . #x4E37)	; 丷
+       ((==ucs@unicode	    . #x4E37)	; &g2-AJ1-13981;
+	(==adobe-japan1-4   . 13981)	; &g2-AJ1-13981;
 	)
        ((==ucs@unicode	    . #x8C55)	; &g2-UU+8C55;
 	))
@@ -2061,7 +2075,8 @@
        ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
 	(=ucs		    . #x2FF1)	; ⿱
 	)
-       ((=ucs		    . #x4E37)	; 丷
+       ((==ucs@unicode	    . #x4E37)	; &g2-AJ1-13981;
+	(==adobe-japan1-4   . 13981)	; &g2-AJ1-13981;
 	)
        ((==ucs@cns	    . #x8C55)	; &g2-MJ024907;
 	(==mj		    . 024907)	; &g2-MJ024907;
-- 
1.7.10.4