From 366e8b8dd525577a3ea0599f0d87b09ab276e2ea Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Mon, 3 Oct 2005 10:48:00 +0000
Subject: [PATCH] (U+5F51): Add `<-same' for JSP-3C77. (<CJK RADICAL SNOUT
 ONE>): Copied from u02E00-CJK-Radical-Supplement.el.

---
 lisp/utf-2000/Ideograph-R058-Snout.el |   23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)

diff --git a/lisp/utf-2000/Ideograph-R058-Snout.el b/lisp/utf-2000/Ideograph-R058-Snout.el
index 61ba17e..096bb58 100644
--- a/lisp/utf-2000/Ideograph-R058-Snout.el
+++ b/lisp/utf-2000/Ideograph-R058-Snout.el
@@ -76,6 +76,13 @@
   '((ideographic-radical . 58)	; â¼¹
     (ideographic-strokes . 0)
     (total-strokes	 . 3)
+    (<-same
+     ((=jis-x0212	  . #x3C77)	; &GT-12503; [28-87]
+      (=cns11643-3	  . #x2140)	; &I-C3-2140; [01-32]
+      (=daikanwa	  . 09908)	; &I-M-09908;
+      ))
+    (<-same*sources
+     guangyun daikanwa)
     (=ucs		. #x5F51)	; 彑
     (=jis-x0208		. #x5740)	; &I-J90-5740; [55-32]
     (=cns11643-3	. #x2141)	; &I-C3-2141; [01-33]
@@ -86,6 +93,22 @@
     (=daikanwa		. 09909)	; &I-M-09909;
     ))
 (define-char
+  '((<-denotational
+     ((=ucs		  . #x5F51)	; 彑
+      ))
+    (name		. "CJK RADICAL SNOUT ONE")
+    (general-category	symbol other) ; Informative Category
+    (bidi-category	. "ON")
+    (mirrored		. nil)
+    (<-formed@component
+     ((=ucs		  . #x5F50)	; 彐
+      ))
+    (<-identical@component
+     ((=ucs		  . #x5F51)	; 彑
+      ))
+    (=ucs		. #x2E94)	; ⺔
+    ))
+(define-char
   '((ideographic-radical . 58)	; â¼¹
     (ideographic-strokes . 2)
     (total-strokes	 . 5)
-- 
1.7.10.4