(U+5F51): Add `<-same' for JSP-3C77.

(<CJK RADICAL SNOUT ONE>): Copied from
u02E00-CJK-Radical-Supplement.el.

diff --git a/lisp/utf-2000/Ideograph-R058-Snout.el b/lisp/utf-2000/Ideograph-R058-Snout.el
index 61ba17e..096bb58 100644 (file)
--- 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)