From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Sun, 18 Mar 2018 15:02:16 +0000 (+0900)
Subject: (A-IWDSU+5313): New abstract node.
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=720929f3362ca7c11f94fe72040b1f2808c6eae0;p=chise%2Fxemacs-chise.git.1

(A-IWDSU+5313): New abstract node.
(U+5313): Add `<-denotational' for A-IWDSU+5313; add
`ideographic-structure'.
(CU+5313): Use IU+23A98 instead of U-00023A98 in
`ideographic-structure'.
(g2-JU+5313): Omit `ideographic-structure'.
(U-000208FF): Add `<-denotational' for A-IWDSU+5313.
---

diff --git a/lisp/utf-2000/Ideograph-R020-Wrap.el b/lisp/utf-2000/Ideograph-R020-Wrap.el
index a6ee8da..fb84290 100644
--- a/lisp/utf-2000/Ideograph-R020-Wrap.el
+++ b/lisp/utf-2000/Ideograph-R020-Wrap.el
@@ -2769,6 +2769,29 @@
     ))
 (define-char
   '((ideographic-radical . 20)	; ⼓
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER RIGHT")
+      (=ucs		  . #x2FF9)	; ⿹
+      )
+     ((=ucs		  . #x52F9)	; 勹
+      )
+     ((=>ucs@iwds-1	  . #x23A98)	; &A-IWDSU+23A98;
+      ))
+    (=>ucs@iwds-1	. #x5313)	; &A-IWDSU+5313;
+    ))
+(define-char
+  '((<-denotational
+     ((=>ucs@iwds-1	  . #x5313)	; &A-IWDSU+5313;
+      ))
+    (ideographic-radical . 20)	; ⼓
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER RIGHT")
+      (=ucs		  . #x2FF9)	; ⿹
+      )
+     ((=ucs		  . #x52F9)	; 勹
+      )
+     ((=ucs		  . #x23A98)	; 𣪘
+      ))
     (=ucs		. #x5313)	; 匓
     ))
 (define-char
@@ -2785,7 +2808,8 @@
       )
      ((=ucs		  . #x52F9)	; 勹
       )
-     ((=ucs		  . #x23A98)	; 𣪘
+     ((=ucs@iso		  . #x23A98)	; &MJ038914;
+      (=mj		  . 038914)	; &MJ038914;
       ))
     (=ucs@cns		. #x5313)	; &AJ1-21221;
     (=ucs@jis		. #x5313)	; &AJ1-21221;
@@ -2800,15 +2824,6 @@
 	)
        ((=ucs		    . #xE0100)	; 󠄀
 	))
-      (ideographic-structure
-       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER RIGHT")
-	(=ucs		    . #x2FF9)	; ⿹
-	)
-       ((=ucs		    . #x52F9)	; 勹
-	)
-       ((==ucs@jis	    . #x23A98)	; &g2-AJ1-17897;
-	(==adobe-japan1-5   . 17897)	; &g2-AJ1-17897;
-	))
       (==ucs@jis	  . #x5313)	; &g2-AJ1-21221;
       (==adobe-japan1-6	  . 21221)	; &g2-AJ1-21221;
       (==jis-x0212	  . #x3423)	; &g2-AJ1-21221; [20-03]
@@ -2931,7 +2946,10 @@
       ))
     ))
 (define-char
-  '((ideographic-radical . 20)	; ⼓
+  '((<-denotational
+     ((=>ucs@iwds-1	  . #x5313)	; &A-IWDSU+5313;
+      ))
+    (ideographic-radical . 20)	; ⼓
     (ideographic-strokes . 12)
     (total-strokes	 . 14)
     (ideographic-structure