(BC-8970): Use `<-subsumptive' for U+7F8A instead of `=>ucs' for

U+2EB6; moved to Ideograph-R123-Sheep.el.
(UU+2EB6): New character; use `<-denotational' for <CJK RADICAL
SHEEP>; use `<-formed@component' for U+7F8A.
(BC-8CCC): Use `<-denotational' instead of `=>ucs' to represent
mapping for <CJK RADICAL SHEEP>.

diff --git a/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el b/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el
index 3c19af2..144d1a7 100644 (file)
--- a/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el
+++ b/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el
@@ -828,17 +828,26 @@
       ))
     ))
 (define-char
-  '((=>ucs             . #x2EB6)       ; ⺶
+  '((<-denotational
+     ((name              . "CJK RADICAL SHEEP")
+      (=ucs              . #x2EB6)     ; ⺶
+      ))
     (ideographic-radical . 123)        ; ⽺
     (ideographic-strokes . 0)
     (total-strokes      . 6)
-    (=big5-cdp         . #x8970)       ; &CDP-8970;
+    (=ucs@unicode      . #x2EB6)       ; &UU+2EB6;
     (<-formed@component
      ((=ucs              . #x7F8A)     ; 羊
       ))
+    (->subsumptive
+     ((==ucs@unicode     . #x2EB6)     ; &g2-UU+2EB6;
+      ))
     ))
 (define-char
-  '((=>ucs             . #x2EB6)       ; ⺶
+  '((<-denotational
+     ((name              . "CJK RADICAL SHEEP")
+      (=ucs              . #x2EB6)     ; ⺶
+      ))
     (ideographic-radical . 123)        ; ⽺
     (ideographic-strokes . 0)
     (total-strokes      . 7)
@@ -846,6 +855,9 @@
     (<-formed@component
      ((=ucs              . #x7F8A)     ; 羊
       ))
+    (->subsumptive
+     ((==big5-cdp        . #x8CCC)     ; &g2-CDP-8CCC;
+      ))
     ))
 (define-char
   '((name              . "CJK RADICAL RAM")