From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Thu, 6 Oct 2022 08:20:49 +0000 (+0900)
Subject: (ZOB-00138): Use ZOB-01261 instead of "⿰土&ZOB-1244;".
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=bdf077e2f1466b2ed8e8865fe432cd129ce38a73;p=chise%2Fxemacs-chise.git

(ZOB-00138): Use ZOB-01261 instead of "⿰土&ZOB-1244;".
(ZOB-00646): Use U-00030CEE instead of "⿴行⿱方止".
(ZOB-01261): Add `ideographic-structure'.
(ZOB-01970): Use GT-K04534 instead of "⿰爿𱼀".
(ZOB-02001): Add `ideographic-structure'; use U-0002C4E8 instead of
"⿰禾⿱&CDP-8BAE;丂" as the corresponding modern character.
(ZOB-02003): Use U-000301D1 instead of "⿱冊口"; add U-00025909 and
U+9FA2 as corresponding modern characters.
(ZOB-02611): Use U-00030DA4 instead of RUI6-E079.
---

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