From 720929f3362ca7c11f94fe72040b1f2808c6eae0 Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Mon, 19 Mar 2018 00:02:16 +0900
Subject: [PATCH] (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.

---
 lisp/utf-2000/Ideograph-R020-Wrap.el |   40 ++++++++++++++++++++++++----------
 1 file changed, 29 insertions(+), 11 deletions(-)

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
-- 
1.7.10.4