X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;ds=inline;f=lisp%2Futf-2000%2FIdeograph-R020-Wrap.el;h=fb84290dafb0ac479e369afb54483744c60f242a;hb=720929f3362ca7c11f94fe72040b1f2808c6eae0;hp=a6ee8da760117da9e7382bb9b03d4dab8dbb2185;hpb=fdd004514dccd26017ff5e4ff1e9ee005cd3db06;p=chise%2Fxemacs-chise.git.1

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