From 015ee4ee7d09e92be0e1dd452e37d5a5248f2ce8 Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Fri, 3 Mar 2017 03:47:52 +0900
Subject: [PATCH] (UU+787A): Add `ideographic-structure'. (A-CB11909): New
 abstract node; use `<-denotational' for U+787A. (CB11909):
 Use A-CB11909 instead of U+787A as its mother.

---
 lisp/utf-2000/Ideograph-R112-Stone.el |   27 +++++++++++++++++++++++----
 1 file changed, 23 insertions(+), 4 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R112-Stone.el b/lisp/utf-2000/Ideograph-R112-Stone.el
index ed17802..5fd1026 100644
--- a/lisp/utf-2000/Ideograph-R112-Stone.el
+++ b/lisp/utf-2000/Ideograph-R112-Stone.el
@@ -4162,6 +4162,14 @@
     (ideographic-radical . 112)	; ⽯
     (ideographic-strokes . 8)
     (total-strokes	 . 13)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=ucs		  . #x77F3)	; 石
+      )
+     ((=ucs		  . #x8C56)	; 豖
+      ))
     (=ucs@unicode	. #x787A)	; &AJ1-08577;
     (=adobe-japan1-2	. 08577)	; &AJ1-08577;
     (=jis-x0212		. #x4F6D)	; &I-JSP-4F6D; [47-77]
@@ -4207,12 +4215,23 @@
       )
      ((=ucs		  . #x77F3)	; 石
       )
-     ((=ucs@unicode	  . #x8C55)	; &AJ1-06742;
-      (=adobe-japan1-0	  . 06742)	; &AJ1-06742;
+     ((=ucs		  . #x8C55)	; 豕
       ))
-    (=cbeta		. 11909)	; &CB11909;
+    (=>cbeta		. 11909)	; &A-CB11909;
     (->subsumptive
-     ((==cbeta		  . 11909)	; &g2-CB11909;
+     ((ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+	(=ucs		    . #x2FF0)	; â¿°
+	)
+       ((=ucs		    . #x77F3)	; 石
+	)
+       ((=ucs@unicode	    . #x8C55)	; &MJ024906;
+	(=mj		    . 024906)	; &I-MJ024906;
+	))
+      (=cbeta		  . 11909)	; &CB11909;
+      (->subsumptive
+       ((==cbeta	    . 11909)	; &g2-CB11909;
+	))
       ))
     ))
 (define-char
-- 
1.7.10.4