From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Mon, 23 Oct 2017 04:18:06 +0000 (+0900)
Subject: (A-cgnU+6BC0): New abstract node.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=89a1f5faa5f9c2cf5d779487f418061b47e41d5b;p=chise%2Fxemacs-chise.git.1

(A-cgnU+6BC0): New abstract node.
(A-IWDSU+6BC0): New abstract node; use `<-denotational' for
A-cgnU+6BC0.
(U+6BC0): Add `<-denotational' for A-IWDSU+6BC0.
(UU+6BC0): Separate A-IWDSU+6BC0; add `<-interchangeable' for M-35732;
add `->ancient' for IU+23AB7.
(HNG-KHM0073-0): Use A-cgnU+6BC0 instead of U+6BC0 as its mother.
(U+6BC1): Add `<-denotational' for A-IWDSU+6BC0.
---

diff --git a/lisp/utf-2000/Ideograph-R079-Weapon.el b/lisp/utf-2000/Ideograph-R079-Weapon.el
index b9a007d..a1ecb80 100644
--- a/lisp/utf-2000/Ideograph-R079-Weapon.el
+++ b/lisp/utf-2000/Ideograph-R079-Weapon.el
@@ -1862,6 +1862,29 @@
     ))
 (define-char
   '((ideographic-radical . 79)	; ⽎
+    (=>ucs@cognate	. #x6BC0)	; &A-cgnU+6BC0;
+    ))
+(define-char
+  '((<-denotational
+     ((=>ucs@cognate	  . #x6BC0)	; &A-cgnU+6BC0;
+      ))
+    (ideographic-radical . 79)	; ⽎
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=>ucs@iwds-1	  . #x2C6F8)	; &A-IWDSU+2C6F8;
+      (=>iwds-1		  .  0089)	; &A-IWDSU+2C6F8;
+      )
+     ((=ucs		  . #x6BB3)	; 殳
+      ))
+    (=>ucs@iwds-1	. #x6BC0)	; &A-IWDSU+6BC0;
+    ))
+(define-char
+  '((<-denotational
+     ((=>ucs@iwds-1	  . #x6BC0)	; &A-IWDSU+6BC0;
+      ))
+    (ideographic-radical . 79)	; ⽎
     (=ucs		. #x6BC0)	; 毀
     ))
 (define-char
@@ -1871,7 +1894,6 @@
     (ideographic-radical . 79)	; ⽎
     (ideographic-strokes . 9)
     (total-strokes	 . 13)
-    (=>ucs@iwds-1	. #x6BC0)	; &AJ1-04509;
     (=ucs@unicode	. #x6BC0)	; &AJ1-04509;
     (=adobe-japan1-0	. 04509)	; &AJ1-04509;
     (=jis-x0208		. #x544C)	; &I-J90-544C; [52-44]
@@ -1882,6 +1904,16 @@
     (=gt-k		. 10300)	; &I-GT-K10300;
     (=gt-pj-1		. #x544C)	; &I-GT-21351; [52-44]
     (=daikanwa		. 16654)	; &I-M-16654;
+    (<-interchangeable
+     ((=daikanwa	  . 35732)	; &M-35732;
+      ))
+    (->ancient
+     ((=ucs@iso		  . #x23AB7)	; &C6-5E22;
+      (=cns11643-6	  . #x5E22)	; &C6-5E22; [62-02]
+      (=daikanwa	  . 16671)	; &I-M-16671;
+      ))
+    (->ancient*sources
+     shuowen daikanwa)
     (->subsumptive
      ((==ucs@jis	  . #x6BC0)	; &g2-AJ1-04509;
       (==adobe-japan1-0	  . 04509)	; &g2-AJ1-04509;
@@ -1916,7 +1948,7 @@
     ))
 (define-char
   '((<-denotational
-     ((=ucs		  . #x6BC0)	; 毀
+     ((=>ucs@cognate	  . #x6BC0)	; &A-cgnU+6BC0;
       ))
     (ideographic-radical . 79)	; ⽎
     (ideographic-strokes . 9)
@@ -2024,7 +2056,10 @@
     (=cns11643-6	. #x5423)	; &I-C6-5423; [52-03]
     ))
 (define-char
-  '((ideographic-radical . 79)	; ⽎
+  '((<-denotational
+     ((=>ucs@iwds-1	  . #x6BC0)	; &A-IWDSU+6BC0;
+      ))
+    (ideographic-radical . 79)	; ⽎
     (=ucs		. #x6BC1)	; 毁
     ))
 (define-char