From b182f4c6893e7408dceb43430176376b669d9e68 Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Sat, 8 Oct 2005 06:56:27 +0000
Subject: [PATCH] (<CJK RADICAL WEST TWO>): Copied from
 u02E00-CJK-Radical-Supplement.el. (<CJK RADICAL WEST ONE>):
 Likewise. (U+8980): Add `<-formed@component' for U+897F.

---
 lisp/utf-2000/Ideograph-R146-West.el |   32 ++++++++++++++++++++++++++++++--
 1 file changed, 30 insertions(+), 2 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R146-West.el b/lisp/utf-2000/Ideograph-R146-West.el
index c595386..3f9cedc 100644
--- a/lisp/utf-2000/Ideograph-R146-West.el
+++ b/lisp/utf-2000/Ideograph-R146-West.el
@@ -34,10 +34,38 @@
       ))
     ))
 (define-char
-  '((=>daikanwa		. 34763)	; &GT-46803;
-    (ideographic-radical . 146)	; ⾑
+  '((<-denotational
+     ((=ucs		  . #x897F)	; 西
+      ))
+    (name		. "CJK RADICAL WEST TWO")
+    (general-category	symbol other) ; Informative Category
+    (bidi-category	. "ON")
+    (mirrored		. nil)
+    (<-identical@component
+     ((=ucs		  . #x897F)	; 西
+      ))
+    (=ucs		. #x2EC4)	; ⻄
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x8980)	; 覀
+      ))
+    (name		. "CJK RADICAL WEST ONE")
+    (general-category	symbol other) ; Informative Category
+    (bidi-category	. "ON")
+    (mirrored		. nil)
+    (<-identical@component
+     ((=ucs		  . #x8980)	; 覀
+      ))
+    (=ucs		. #x2EC3)	; ⻃
+    ))
+(define-char
+  '((ideographic-radical . 146)	; ⾑
     (ideographic-strokes . 0)
     (total-strokes	 . 6)
+    (<-formed@component
+     ((=ucs		  . #x897F)	; 西
+      ))
     (=ucs		. #x8980)	; 覀
     (->subsumptive
      ((=big5-cdp	  . #x8BD5)	; &CDP-8BD5;
-- 
1.7.10.4