From bdf077e2f1466b2ed8e8865fe432cd129ce38a73 Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Thu, 6 Oct 2022 17:20:49 +0900
Subject: [PATCH] =?utf8?q?(ZOB-00138):=20Use=20ZOB-01261=20instead=20of=20"=E2?=
 =?utf8?q?=BF=B0=E5=9C=9F&ZOB-1244;".=20(ZOB-00646):=20Use=20U-00030CEE=20in?=
 =?utf8?q?stead=20of=20"=E2=BF=B4=E8=A1=8C=E2=BF=B1=E6=96=B9=E6=AD=A2".=20(Z?=
 =?utf8?q?OB-01261):=20Add=20`ideographic-structure'.=20(ZOB-01970):=20Use=20?=
 =?utf8?q?GT-K04534=20instead=20of=20"=E2=BF=B0=E7=88=BF=F0=B1=BC=80".=20(ZO?=
 =?utf8?q?B-02001):=20Add=20`ideographic-structure';=20use=20U-0002C4E8=20in?=
 =?utf8?q?stead=20of=20"=E2=BF=B0=E7=A6=BE=E2=BF=B1&CDP-8BAE;=E4=B8=82"=20as?=
 =?utf8?q?=20the=20corresponding=20modern=20character.=20(ZOB-02003):=20Use=20?=
 =?utf8?q?U-000301D1=20instead=20of=20"=E2=BF=B1=E5=86=8A=E5=8F=A3";=20add=20?=
 =?utf8?q?U-00025909=20and=20U+9FA2=20as=20corresponding=20modern=20characte?=
 =?utf8?q?rs.=20(ZOB-02611):=20Use=20U-00030DA4=20instead=20of=20RUI6-E079.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 lisp/utf-2000/Oracle-Bones.el |   81 +++++++++++++----------------------------
 1 file changed, 26 insertions(+), 55 deletions(-)

diff --git a/lisp/utf-2000/Oracle-Bones.el b/lisp/utf-2000/Oracle-Bones.el
index 00e115f..3ce0daa 100644
--- a/lisp/utf-2000/Oracle-Bones.el
+++ b/lisp/utf-2000/Oracle-Bones.el
@@ -2302,14 +2302,7 @@
       )
      ((=zinbun-oracle	  . 00121)	; &ZOB-0121;
       )
-     ((ideographic-structure
-       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
-	(=ucs		    . #x2FF0)	; â¿°
-	)
-       ((=ucs		    . #x571F)	; 土
-	)
-       ((=zinbun-oracle	    . 01244)	; &ZOB-1244;
-	))
+     ((=zinbun-oracle	  . 01261)	; &ZOB-1261;
       ))
     (sources		zob1959=2300)
     (zinbun-oracle-page . 8)
@@ -9306,21 +9299,7 @@
     (zinbun-oracle-page . 31)
     (=zinbun-oracle	. 00646)	; &ZOB-0646;
     (<-Oracle-Bones
-     ((ideographic-structure
-       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER FULL SURROUND")
-	(=ucs		    . #x2FF4)	; â¿´
-	)
-       ((=ucs		    . #x884C)	; 行
-	)
-       ((ideographic-structure
-	 ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
-	  (=ucs		      . #x2FF1)	; ⿱
-	  )
-	 ((=ucs		      . #x65B9)	; 方
-	  )
-	 ((=ucs		      . #x6B62)	; æ­¢
-	  ))
-	))
+     ((=ucs		  . #x30CEE)	; ð°³®
       ))
     ))
 (define-char
@@ -14622,6 +14601,14 @@
     ))
 (define-char
   '((shuowen-radical	. 114)	; 羊
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=ucs		  . #x571F)	; 土
+      )
+     ((=zinbun-oracle	  . 01244)	; &ZOB-1244;
+      ))
     (sources		zob1959=0092 zob1959=1353 zob1959=2300)
     (zinbun-oracle-page . 58)
     (=zinbun-oracle	. 01261)	; &ZOB-1261;
@@ -21274,14 +21261,7 @@
        ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
 	(=ucs		    . #x2FF1)	; ⿱
 	)
-       ((ideographic-structure
-	 ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
-	  (=ucs		      . #x2FF0)	; â¿°
-	  )
-	 ((=ucs		      . #x723F)	; 爿
-	  )
-	 ((=big5-cdp	      . #x8B5E)	; &CDP-8B5E;
-	  ))
+       ((=gt-k		    . 04534)	; &GT-K04534;
 	)
        ((=ucs		    . #x9F0E)	; 鼎
 	))
@@ -21524,25 +21504,19 @@
     ))
 (define-char
   '((shuowen-radical	. 253)	; 禾
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=zinbun-oracle	  . 01990)	; &ZOB-1990;
+      )
+     ((=zinbun-oracle	  . 00760)	; &ZOB-0760;
+      ))
     (sources		zob1959=0143)
     (zinbun-oracle-page . 96)
     (=zinbun-oracle	. 02001)	; &ZOB-2001;
     (<-Oracle-Bones
-     ((ideographic-structure
-       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
-	(=ucs		    . #x2FF0)	; â¿°
-	)
-       ((=ucs		    . #x79BE)	; 禾
-	)
-       ((ideographic-structure
-	 ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
-	  (=ucs		      . #x2FF1)	; ⿱
-	  )
-	 ((=big5-cdp	      . #x8BAE)	; &CDP-8BAE;
-	  )
-	 ((=ucs		      . #x4E02)	; 丂
-	  ))
-	))
+     ((=ucs		  . #x2C4E8)	; 𬓨
       ))
     ))
 (define-char
@@ -21565,15 +21539,12 @@
 	)
        ((=ucs		    . #x79BE)	; 禾
 	)
-       ((ideographic-structure
-	 ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
-	  (=ucs		      . #x2FF1)	; ⿱
-	  )
-	 ((=ucs		      . #x518A)	; 冊
-	  )
-	 ((=ucs		      . #x53E3)	; 口
-	  ))
+       ((=ucs		    . #x301D1)	; 𰇑
 	))
+      )
+     ((=ucs		  . #x25909)	; 𥤉
+      )
+     ((=ucs		  . #x9FA2)	; é¾¢
       ))
     ))
 (define-char
@@ -26963,7 +26934,7 @@
     (zinbun-oracle-page . 123)
     (=zinbun-oracle	. 02611)	; &ZOB-2611;
     (<-Oracle-Bones
-     ((=ruimoku-v6	  . #xE079)	; &RUI6-E079;
+     ((=ucs		  . #x30DA4)	; 𰶤
       ))
     ))
 (define-char
-- 
1.7.10.4