From c6a849955cca8959975f0defeac6c6d6b01c6577 Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Thu, 8 Sep 2005 14:02:52 +0000
Subject: [PATCH] (U+353E): Add `<-same' for U+5369. (<CJK RADICAL SEAL>): Use
 `<-formed@component/connect-above' instead of
 `<-ideographic-component-forms' for U+5369; use
 `<-identical@component/connect-above' instead of
 `<-radical' for U+353E. (JC3-71F7): New character.
 (BC-8A60): Use `<-formed@component' instead of
 `<-ideographic-component-forms'.

---
 lisp/utf-2000/Ideograph-R026-Seal.el |   18 +++++++++++++++---
 1 file changed, 15 insertions(+), 3 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R026-Seal.el b/lisp/utf-2000/Ideograph-R026-Seal.el
index cbd96ad..59c6ea1 100644
--- a/lisp/utf-2000/Ideograph-R026-Seal.el
+++ b/lisp/utf-2000/Ideograph-R026-Seal.el
@@ -20,6 +20,12 @@
   '((ideographic-radical . 26)	; ⼙
     (ideographic-strokes . 0)
     (total-strokes	 . 2)
+    (<-same
+     ((=ucs		  . #x5369)	; 卩
+      (=daikanwa	  . 02836)	; &I-M-02836;
+      ))
+    (<-same*sources
+     zihui daikanwa)
     (hanyu-dazidian	1 310 10)
     (=ucs		. #x353E)	; 㔾
     (=cns11643-4	. #x212B)	; &I-C4-212B; [01-11]
@@ -36,20 +42,26 @@
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (<-ideographic-component-forms
+    (<-formed@component/connect-above
      ((=ucs		  . #x5369)	; 卩
       ))
-    (<-radical
+    (<-identical@component/connect-above
      ((=ucs		  . #x353E)	; 㔾
       ))
     (=ucs		. #x2E8B)	; ⺋
     ))
 (define-char
+  '((<-denotational
+     ((=ucs		  . #x353E)	; 㔾
+      ))
+    (=jef-china3	. #x71F7)	; &JC3-71F7;
+    ))
+(define-char
   '((=>ucs		. #x5369)	; 卩
     (ideographic-radical . 26)	; ⼙
     (ideographic-strokes . 0)
     (total-strokes	 . 2)
-    (<-ideographic-component-forms
+    (<-formed@component
      ((=ucs		  . #x5369)	; 卩
       ))
     (=big5-cdp		. #x8A60)	; &CDP-8A60;
-- 
1.7.10.4