From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Sat, 22 Oct 2016 04:21:35 +0000 (+0900)
Subject: (U-000201D2): Use `ideographic-radical@ucs/code' instead of
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=fea086a341957b679d152bf81bc71bd069ac46af;p=chise%2Fxemacs-chise.git

(U-000201D2): Use `ideographic-radical@ucs/code' instead of
`ideographic-radical@ucs'.
---

diff --git a/lisp/utf-2000/Ideograph-R011-Enter.el b/lisp/utf-2000/Ideograph-R011-Enter.el
index f44aa84..e0a4697 100644
--- a/lisp/utf-2000/Ideograph-R011-Enter.el
+++ b/lisp/utf-2000/Ideograph-R011-Enter.el
@@ -916,70 +916,28 @@
       ))
     ))
 (define-char
-  '((ideographic-radical@ucs . 9)	; ⼈
-    (ideographic-radical@daikanwa . 11)	; ⼊
+  '((ideographic-radical@daikanwa . 11)	; ⼊
+    (ideographic-radical@daikanwa*sources
+     daikanwa ucs)
+    (ideographic-radical@ucs/code . 9)	; ⼈
     (ideographic-strokes . 4)
     (total-strokes	 . 6)
     (hanyu-dazidian	1 124 9)
-    (ideographic-structure
-     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
-      (=ucs		  . #x2FF0)	; â¿°
-      )
-     ((name		  . "CJK RADICAL PERSON")
-      (=ucs		  . #x2E85)	; ⺅
-      )
-     ((ideographic-structure
-       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
-	(=ucs		    . #x2FF1)	; ⿱
-	)
-       ((=ucs		    . #x5165)	; 入
-	)
-       ((=ucs		    . #x5165)	; 入
-	))
-      ))
     (=ucs		. #x201D2)	; 𠇒
     (=daikanwa		. 01429)	; &I-M-01429;
-    (=hanziku-1		. #xBD73)	; &I-HZK01-BD73;
     (->subsumptive
-     ((ideographic-structure
-       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
-	(=ucs		    . #x2FF0)	; â¿°
-	)
-       ((name		    . "CJK RADICAL PERSON")
-	(=ucs		    . #x2E85)	; ⺅
-	)
-       ((ideographic-structure
-	 ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
-	  (=ucs		      . #x2FF1)	; ⿱
-	  )
-	 ((==ucs@jis	      . #x5165)	; &g2-AJ1-03286;
-	  (==ucs@ks	      . #x5165)	; &g2-AJ1-03286;
-	  (==adobe-japan1-0   . 03286)	; &g2-AJ1-03286;
-	  )
-	 ((==ucs@jis	      . #x5165)	; &g2-AJ1-03286;
-	  (==ucs@ks	      . #x5165)	; &g2-AJ1-03286;
-	  (==adobe-japan1-0   . 03286)	; &g2-AJ1-03286;
-	  ))
-	))
+     ((ideographic-radical . 11)	; ⼊
+      (ideographic-strokes . 4)
       (==daikanwa	  . 01429)	; &g2-M-01429;
       )
-     ((ideographic-structure
-       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
-	(=ucs		    . #x2FF0)	; â¿°
-	)
-       ((name		    . "CJK RADICAL PERSON")
-	(=ucs		    . #x2E85)	; ⺅
+     ((ideographic-radical . 11)	; ⼊
+      (ideographic-strokes . 4)
+      (==ucs@iso	  . #x201D2)	; &g2-IU-000201D2;
+      (->subsumptive
+       ((===ucs@iso	    . #x201D2)	; &R-U-000201D2;
 	)
-       ((ideographic-structure
-	 ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
-	  (=ucs		      . #x2FF1)	; ⿱
-	  )
-	 ((==ucs@unicode      . #x5165)	; &g2-UU+5165;
-	  )
-	 ((==ucs@unicode      . #x5165)	; &g2-UU+5165;
-	  ))
+       ((=hanziku-1	    . #xBD73)	; &HZK01-BD73;
 	))
-      (==ucs@iso	  . #x201D2)	; &g2-IU-000201D2;
       ))
     ))
 (define-char