From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Sun, 6 Feb 2022 08:21:37 +0000 (+0900)
Subject: (ZOB-01677): Add `ideographic-structure'; add A-U+6A02-itaiji-003 as a
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=655c9afaa3d88416eeee60662d8ac434c11bf9d6;p=chise%2Fxemacs-chise.git

(ZOB-01677): Add `ideographic-structure'; add A-U+6A02-itaiji-003 as a
corresponding modern character.
---

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)	; 樂
       ))
     ))