From 7b5781a981d6110417a39d893415656c82ed80bd Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Fri, 2 Nov 2007 05:47:04 +0000
Subject: [PATCH] (ZOB-00733): Add `<-Oracle-Bones' for a sequence U+5341
 ZOB-01815. (ZOB-{01806 - 01823}): New characters.
 (ZOB-01824): Add `shuowen-radical' and `sources'; add
 `<-Oracle-Bones' for U+8C9D. (ZOB-{01825 - 01828}): New
 characters.

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

diff --git a/lisp/utf-2000/Oracle-Bones.el b/lisp/utf-2000/Oracle-Bones.el
index 7d41d25..5cbe9b9 100644
--- a/lisp/utf-2000/Oracle-Bones.el
+++ b/lisp/utf-2000/Oracle-Bones.el
@@ -9628,6 +9628,13 @@
     (sources		zob1968=3114)
     (zinbun-oracle-page . 35)
     (=zinbun-oracle	. 00733)	; &ZOB-0733;
+    (<-Oracle-Bones
+     ((ideographic-combination
+       ((=ucs		    . #x5341)	; 十
+	)
+       ((=zinbun-oracle	    . 01815)	; &ZOB-1815;
+	))
+      ))
     ))
 (define-char
   '((shuowen-radical	. 54)	; 十
@@ -18724,7 +18731,160 @@
     (=zinbun-oracle	. 01805)	; &ZOB-1805;
     ))
 (define-char
-  '((=zinbun-oracle	. 01824)	; &ZOB-1824;
+  '((shuowen-radical	. 224)	; 束
+    (zinbun-oracle-page . 86)
+    (=zinbun-oracle	. 01806)	; &ZOB-1806;
+    ))
+(define-char
+  '((shuowen-radical	. 224)	; 束
+    (zinbun-oracle-page . 86)
+    (=zinbun-oracle	. 01807)	; &ZOB-1807;
+    ))
+(define-char
+  '((shuowen-radical	. 226)	; 囗
+    (zinbun-oracle-page . 86)
+    (=zinbun-oracle	. 01808)	; &ZOB-1808;
+    (<-Oracle-Bones
+     ((=ucs		  . #x6216)	; 或
+      )
+     ((=ucs		  . #x570B)	; 國
+      ))
+    ))
+(define-char
+  '((shuowen-radical	. 226)	; 囗
+    (sources		zob1968=3146)
+    (zinbun-oracle-page . 86)
+    (=zinbun-oracle	. 01809)	; &ZOB-1809;
+    (<-Oracle-Bones
+     ((=ucs		  . #x56FF)	; 囿
+      ))
+    ))
+(define-char
+  '((shuowen-radical	. 226)	; 囗
+    (zinbun-oracle-page . 86)
+    (=zinbun-oracle	. 01810)	; &ZOB-1810;
+    (<-Oracle-Bones
+     ((=ucs		  . #x5703)	; 圃
+      ))
+    ))
+(define-char
+  '((shuowen-radical	. 226)	; 囗
+    (zinbun-oracle-page . 86)
+    (=zinbun-oracle	. 01811)	; &ZOB-1811;
+    (<-Oracle-Bones
+     ((=ucs		  . #x56E0)	; 因
+      ))
+    ))
+(define-char
+  '((shuowen-radical	. 226)	; 囗
+    (zinbun-oracle-page . 86)
+    (=zinbun-oracle	. 01812)	; &ZOB-1812;
+    (<-Oracle-Bones
+     ((=ucs		  . #x56F0)	; 困
+      ))
+    ))
+(define-char
+  '((shuowen-radical	. 226)	; 囗
+    (zinbun-oracle-page . 86)
+    (=zinbun-oracle	. 01813)	; &ZOB-1813;
+    (<-Oracle-Bones
+     ((=ucs		  . #x5702)	; 圂
+      ))
+    ))
+(define-char
+  '((shuowen-radical	. 226)	; 囗
+    (zinbun-oracle-page . 86)
+    (=zinbun-oracle	. 01814)	; &ZOB-1814;
+    (<-Oracle-Bones
+     ((=ucs		  . #x361D)	; 㘝
+      ))
+    ))
+(define-char
+  '((shuowen-radical	. 226)	; 囗
+    (sources		zob1968=3114)
+    (zinbun-oracle-page . 86)
+    (=zinbun-oracle	. 01815)	; &ZOB-1815;
+    ))
+(define-char
+  '((shuowen-radical	. 226)	; 囗
+    (sources		zob1968=2537)
+    (zinbun-oracle-page . 86)
+    (=zinbun-oracle	. 01816)	; &ZOB-1816;
+    ))
+(define-char
+  '((shuowen-radical	. 226)	; 囗
+    (zinbun-oracle-page . 86)
+    (=zinbun-oracle	. 01817)	; &ZOB-1817;
+    ))
+(define-char
+  '((shuowen-radical	. 226)	; 囗
+    (zinbun-oracle-page . 86)
+    (=zinbun-oracle	. 01818)	; &ZOB-1818;
+    ))
+(define-char
+  '((shuowen-radical	. 226)	; 囗
+    (zinbun-oracle-page . 86)
+    (=zinbun-oracle	. 01819)	; &ZOB-1819;
+    ))
+(define-char
+  '((shuowen-radical	. 226)	; 囗
+    (zinbun-oracle-page . 86)
+    (=zinbun-oracle	. 01820)	; &ZOB-1820;
+    ))
+(define-char
+  '((shuowen-radical	. 226)	; 囗
+    (zinbun-oracle-page . 86)
+    (=zinbun-oracle	. 01821)	; &ZOB-1821;
+    ))
+(define-char
+  '((shuowen-radical	. 226)	; 囗
+    (zinbun-oracle-page . 86)
+    (=zinbun-oracle	. 01822)	; &ZOB-1822;
+    ))
+(define-char
+  '((shuowen-radical	. 227)	; 員
+    (zinbun-oracle-page . 86)
+    (=zinbun-oracle	. 01823)	; &ZOB-1823;
+    (<-Oracle-Bones
+     ((=ucs		  . #x54E1)	; 員
+      ))
+    ))
+(define-char
+  '((shuowen-radical	. 228)	; 貝
+    (sources		zob1968=0013)
+    (zinbun-oracle-page . 86)
+    (=zinbun-oracle	. 01824)	; &ZOB-1824;
+    (<-Oracle-Bones
+     ((=ucs		  . #x8C9D)	; 貝
+      ))
+    ))
+(define-char
+  '((shuowen-radical	. 228)	; 貝
+    (zinbun-oracle-page . 86)
+    (=zinbun-oracle	. 01825)	; &ZOB-1825;
+    ))
+(define-char
+  '((shuowen-radical	. 228)	; 貝
+    (zinbun-oracle-page . 86)
+    (=zinbun-oracle	. 01826)	; &ZOB-1826;
+    (<-Oracle-Bones
+     ((=ucs		  . #x8CA3)	; è²£
+      ))
+    ))
+(define-char
+  '((shuowen-radical	. 228)	; 貝
+    (sources		zob1968=2541)
+    (zinbun-oracle-page . 86)
+    (=zinbun-oracle	. 01827)	; &ZOB-1827;
+    ))
+(define-char
+  '((shuowen-radical	. 228)	; 貝
+    (sources		zob1968=3145)
+    (zinbun-oracle-page . 86)
+    (=zinbun-oracle	. 01828)	; &ZOB-1828;
+    (<-Oracle-Bones
+     ((=ucs		  . #x8CAF)	; 貯
+      ))
     ))
 (define-char
   '((=zinbun-oracle	. 01857)	; &ZOB-1857;
-- 
1.7.10.4