From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Fri, 17 Mar 2017 03:44:41 +0000 (+0900)
Subject: (UU+6555): Add `<-interchangeable' for JU+98ED.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=96c50b2299dd38a9e18c24c20ab8fca14b9decd7;p=chise%2Fxemacs-chise.git

(UU+6555): Add `<-interchangeable' for JU+98ED.
(UU+6574): Add `<-formed' for JU+98ED; add `<-same' for U-00022FEB.
---

diff --git a/lisp/utf-2000/Ideograph-R066-Rap.el b/lisp/utf-2000/Ideograph-R066-Rap.el
index 255b60f..5af9ef0 100644
--- a/lisp/utf-2000/Ideograph-R066-Rap.el
+++ b/lisp/utf-2000/Ideograph-R066-Rap.el
@@ -2811,6 +2811,10 @@
     (=daikanwa		. 13225)	; &I-M-13225;
     (=shinjigen		.  0728)	; &AJ1-05066;
     (<-interchangeable
+     ((=ucs@jis		  . #x98ED)	; &AJ1-04289;
+      (=ucs@ks		  . #x98ED)	; &AJ1-04289;
+      (=adobe-japan1-0	  . 04289)	; &AJ1-04289;
+      )
      ((=ucs		  . #x52C5)	; 勅
       ))
     (->formed
@@ -4553,7 +4557,7 @@
       )
      ((=ucs@unicode	  . #x80B2)	; &MJ020960;
       (=ucs@cns		  . #x2F982)	; &MJ020960;
-      (=mj		  . 020960)	; &I-MJ020960;
+      (=mj		  . 020960)	; &MJ020960;
       )
      ((=ucs		  . #x6535)	; 攵
       ))
@@ -6789,6 +6793,17 @@
     (=gt-pj-1		. #x4030)	; &I-GT-16925; [32-16]
     (=daikanwa		. 13394)	; &I-M-13394;
     (=shinjigen		.  3196)	; &AJ1-02644;
+    (<-formed
+     ((=ucs@jis		  . #x98ED)	; &AJ1-04289;
+      (=ucs@ks		  . #x98ED)	; &AJ1-04289;
+      (=adobe-japan1-0	  . 04289)	; &AJ1-04289;
+      ))
+    (<-same
+     ((=ucs		  . #x22FEB)	; 𢿫
+      (=daikanwa	  . 13393)	; &I-M-13393;
+      ))
+    (<-same*sources
+     jiujingziyang daikanwa)
     (->subsumptive
      ((ideographic-structure
        ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")