From 0f50fb9d9d8ceb06e4b68fe1d1ebc251839df960 Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Thu, 8 Sep 2005 17:01:52 +0000
Subject: [PATCH] (U-000209DC): Use `->subsumptive'. (U+5364): Add `<-Zhouwen'
 for U+38B4; add `<-same' for J0-403E; add `<-simplified@CN'
 for U+9E75 and U+6EF7. (<CJK RADICAL C-SIMPLIFIED SALT>):
 Copied from u02E00-CJK-Radical-Supplement.el.

---
 lisp/utf-2000/Ideograph-R025-Divination.el |   55 +++++++++++++++++++++++-----
 1 file changed, 46 insertions(+), 9 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R025-Divination.el b/lisp/utf-2000/Ideograph-R025-Divination.el
index 8e17738..06d06c6 100644
--- a/lisp/utf-2000/Ideograph-R025-Divination.el
+++ b/lisp/utf-2000/Ideograph-R025-Divination.el
@@ -324,20 +324,44 @@
     (ideographic-strokes . 5)
     (total-strokes	 . 7)
     (=ucs		. #x209DC)	; 𠧜
-    (=daikanwa		. 02793)	; &I-M-02793;
-    ))
-(define-char
-  '((=>ucs		. #x209DC)	; 𠧜
-    (morohashi-daikanwa	2793 0 1)
-    (ideographic-radical . 25)	; ⼘
-    (ideographic-strokes . 5)
-    (total-strokes	 . 7)
-    (=cns11643-6	. #x263C)	; &C6-263C; [06-28]
+    (->subsumptive
+     ((<-same
+       ((=jis-x0208	    . #x403E)	; &GT-46803; [32-30]
+	(=ks-x1001	    . #x6024)	; &I-K0-6024; [64-04]
+	(=daikanwa	    . 34763)	; &I-M-34763;
+	))
+      (<-same*sources
+       zihui-bu daikanwa)
+      (=daikanwa	  . 02793)	; &M-02793;
+      (=ucs@iso		  . #x209DC)	; &M-02793;
+      )
+     ((=cns11643-6	  . #x263C)	; &C6-263C; [06-28]
+      ))
     ))
 (define-char
   '((ideographic-radical . 25)	; ⼘
     (ideographic-strokes . 5)
     (total-strokes	 . 7)
+    (<-Zhouwen
+     ((=ucs		  . #x38B4)	; 㢴
+      (=daikanwa	  . 09776)	; &I-M-09776;
+      ))
+    (<-Zhouwen*sources
+     shuowen daikanwa)
+    (<-same
+     ((=jis-x0208	  . #x403E)	; &GT-46803; [32-30]
+      (=ks-x1001	  . #x6024)	; &I-K0-6024; [64-04]
+      (=daikanwa	  . 34763)	; &I-M-34763;
+      ))
+    (<-same*sources
+     daikanwa)
+    (<-simplified@CN
+     ((=ucs		  . #x9E75)	; é¹µ
+      (=gb12345		  . #x7852)	; é¹µ [88-50]
+      )
+     ((=ucs		  . #x6EF7)	; æ»·
+      (=gb12345		  . #x4231)	; æ»· [34-17]
+      ))
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER FULL SURROUND")
       (=ucs		  . #x2FF4)	; â¿´
@@ -353,6 +377,19 @@
     (=daikanwa		. 02794)	; &I-M-02794;
     ))
 (define-char
+  '((<-denotational
+     ((=ucs		  . #x5364)	; 卤
+      ))
+    (name		. "CJK RADICAL C-SIMPLIFIED SALT")
+    (general-category	symbol other) ; Informative Category
+    (bidi-category	. "ON")
+    (mirrored		. nil)
+    (<-identical@component
+     ((=ucs		  . #x5364)	; 卤
+      ))
+    (=ucs		. #x2EE7)	; ⻧
+    ))
+(define-char
   '((ideographic-radical . 25)	; ⼘
     (ideographic-strokes . 5)
     (total-strokes	 . 7)
-- 
1.7.10.4