From 655c9afaa3d88416eeee60662d8ac434c11bf9d6 Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Sun, 6 Feb 2022 17:21:37 +0900
Subject: [PATCH] (ZOB-01677): Add `ideographic-structure'; add
 A-U+6A02-itaiji-003 as a corresponding modern character.

---
 lisp/utf-2000/Oracle-Bones.el |   12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/lisp/utf-2000/Oracle-Bones.el b/lisp/utf-2000/Oracle-Bones.el
index 9c02751..6e40d26 100644
--- a/lisp/utf-2000/Oracle-Bones.el
+++ b/lisp/utf-2000/Oracle-Bones.el
@@ -13039,7 +13039,7 @@
     (zinbun-oracle-page . 50)
     (=zinbun-oracle	. 01084)	; &ZOB-1084;
     (<-Oracle-Bones
-     ((=cbeta		  . 12039)	; &CB12039;
+     ((=ucs		  . #x2ABCE)	; 𪯎
       ))
     ))
 (define-char
@@ -18492,9 +18492,19 @@
     ))
 (define-char
   '((shuowen-radical	. 206)	; 木
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=zinbun-oracle	  . 01303)	; &ZOB-1303;
+      )
+     ((=zinbun-oracle	  . 01656)	; &ZOB-1656;
+      ))
     (zinbun-oracle-page . 79)
     (=zinbun-oracle	. 01677)	; &ZOB-1677;
     (<-Oracle-Bones
+     ((=>ucs-itaiji-003	  . #x6A02)	; &A-U-i003+6A02;
+      )
      ((=ucs		  . #x6A02)	; 樂
       ))
     ))
-- 
1.7.10.4