From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Sat, 10 Feb 2018 12:14:14 +0000 (+0900)
Subject: (A-compU+725B): New abstract node.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=8a929a355b682ba8b4bbaabee84b8323254f4a45;p=chise%2Fxemacs-chise.git-

(A-compU+725B): New abstract node.
(U+725B): Add `<-denotational@component' for A-compU+725B.
(<CJK RADICAL COW>): Copied from u02E00-CJK-Radical-Supplement.el; add
`<-denotational@component' for A-compU+725B; add
`ideographic-{radical|strokes}' and `total-strokes'.
---

diff --git a/lisp/utf-2000/Ideograph-R093-Cow.el b/lisp/utf-2000/Ideograph-R093-Cow.el
index 6b6b7ed..3c84fd8 100644
--- a/lisp/utf-2000/Ideograph-R093-Cow.el
+++ b/lisp/utf-2000/Ideograph-R093-Cow.el
@@ -3,6 +3,15 @@
   '((ideographic-radical . 93)	; ⽜
     (ideographic-strokes . 0)
     (total-strokes	 . 4)
+    (=>ucs@component	. #x725B)	; &A-compU+725B;
+    ))
+(define-char
+  '((<-denotational@component
+     ((=>ucs@component	  . #x725B)	; &A-compU+725B;
+      ))
+    (ideographic-radical . 93)	; ⽜
+    (ideographic-strokes . 0)
+    (total-strokes	 . 4)
     (=ucs		. #x725B)	; 牛
     (=adobe-japan1-0	. 01671)	; &I-AJ1-01671;
     (=jis-x0208		. #x356D)	; &I-J90-356D; [21-77]
@@ -53,6 +62,28 @@
       ))
     ))
 (define-char
+  '((<-denotational@component
+     ((=>ucs@component	  . #x725B)	; &A-compU+725B;
+      ))
+    (name		. "CJK RADICAL COW")
+    (general-category	symbol other) ; Informative Category
+    (bidi-category	. "ON")
+    (mirrored		. nil)
+    (ideographic-radical . 93)	; ⽜
+    (ideographic-strokes . 0)
+    (total-strokes	 . 4)
+    (=ucs		. #x2EA7)	; ⺧
+    (=big5-cdp		. #x8B66)	; &I-CDP-8B66;
+    (<-formed@component/connect-below
+     ((=ucs		  . #x725B)	; 牛
+      ))
+    (->subsumptive
+     ((==big5-cdp	  . #x8B66)	; &g2-CDP-8B66;
+      )
+     ((==ucs@iso	  . #x2EA7)	; &g2-IU-00002EA7;
+      ))
+    ))
+(define-char
   '((ideographic-radical . 93)	; ⽜
     (ideographic-strokes . 0)
     (total-strokes	 . 4)
@@ -1788,7 +1819,7 @@
       )
      ((=ucs		  . #x725B)	; 牛
       )
-     ((=ucs@big5	  . #x544A)	; &J97-3970;
+     ((=>ucs@iwds-1	  . #x543F)	; &J97-3970;
       (=>jis-x0208	  . #x3970)	; &J97-3970; [25-80]
       ))
     (=ucs		. #x727F)	; 牿