From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Mon, 10 Oct 2016 08:49:55 +0000 (+0900)
Subject: (BC-8970): Use `<-subsumptive' for U+7F8A instead of `=>ucs' for
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=2025930e68b2f29c1f9a4d18a4d7959c8dc62dc4;p=chise%2Fxemacs-chise.git-

(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
--- 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")