From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Fri, 16 Sep 2016 16:24:01 +0000 (+0900)
Subject: (U+9ADF): Add representative nodes.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=cd28829f317bbfe686b8981c75371aca9d59e798;p=chise%2Fxemacs-chise.git

(U+9ADF): Add representative nodes.
(U-00029BCD): Use `->denotational' instead of `->subsumptive'.
---

diff --git a/lisp/utf-2000/Ideograph-R190-Hair.el b/lisp/utf-2000/Ideograph-R190-Hair.el
index 8360c8a..f45561e 100644
--- a/lisp/utf-2000/Ideograph-R190-Hair.el
+++ b/lisp/utf-2000/Ideograph-R190-Hair.el
@@ -3,6 +3,14 @@
   '((ideographic-radical . 190)	; â¾½
     (ideographic-strokes . 0)
     (total-strokes	 . 10)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=ucs		  . #x9578)	; 镸
+      )
+     ((=ucs		  . #x5F61)	; 彡
+      ))
     (=ucs		. #x9ADF)	; 髟
     (=jis-x0208		. #x7175)	; &I-J90-7175; [81-85]
     (=gb2312		. #x7754)	; &I-G0-7754; [87-52]
@@ -14,6 +22,30 @@
     (=gt-pj-1		. #x7175)	; &I-GT-61051; [81-85]
     (=daikanwa		. 45355)	; &I-M-45355;
     (=shinjigen		.  9452)	; 髟
+    (->subsumptive
+     ((==ucs@unicode	  . #x9ADF)	; &g2-GT-61051;
+      (==gb2312		  . #x7754)	; &g2-GT-61051; [87-52]
+      (==jis-x0208	  . #x7175)	; &g2-GT-61051; [81-85]
+      (==cns11643-2	  . #x334C)	; &g2-GT-61051; [19-44]
+      (==jis-x0213-1	  . #x7175)	; &g2-GT-61051; [81-85]
+      (==gt		  . 61051)	; &g2-GT-61051;
+      (==gt-k		  . 06654)	; &g2-GT-61051;
+      (==daikanwa	  . 45355)	; &g2-GT-61051;
+      (==shinjigen	  .  9452)	; &g2-GT-61051;
+      (->subsumptive
+       ((===daikanwa	    . 45355)	; &R-M-45355;
+	)
+       ((===jis-x0208	    . #x7175)	; &R-J0-7175; [81-85]
+	(===jis-x0213-1	    . #x7175)	; &R-J0-7175; [81-85]
+	)
+       ((===cns11643-2	    . #x334C)	; &R-C2-334C; [19-44]
+	)
+       ((===gt		    . 61051)	; &R-GT-61051;
+	(===gt-k	    . 06654)	; &R-GT-61051;
+	)
+       ((===ucs@unicode	    . #x9ADF)	; &R-UU+9ADF;
+	))
+      ))
     ))
 (define-char
   '((ideographic-radical . 190)	; â¾½
@@ -3344,16 +3376,89 @@
     ))
 (define-char
   '((ideographic-radical . 190)	; â¾½
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x9ADF)	; 髟
+      )
+     ((=ucs		  . #x83C6)	; 菆
+      ))
     (=ucs		. #x29BCD)	; 𩯍
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x29BCD)	; 𩯍
+      ))
+    (ideographic-radical . 190)	; â¾½
+    (ideographic-strokes . 12)
+    (total-strokes	 . 22)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x9ADF)	; 髟
+      )
+     ((=ucs@cns		  . #x83C6)	; &C2-3F4D;
+      (=cns11643-2	  . #x3F4D)	; &C2-3F4D; [31-45]
+      (=daikanwa	  . 31146)	; &I-M-31146;
+      ))
+    (=ucs@cns		. #x29BCD)	; &C5-7526;
+    (=cns11643-5	. #x7526)	; &C5-7526; [85-06]
+    (=daikanwa		. 45585)	; &I-M-45585;
     (->subsumptive
-     ((ideographic-strokes . 12)
-      (total-strokes	   . 22)
-      (=cns11643-5	  . #x7526)	; &C5-7526; [85-06]
-      (=daikanwa	  . 45585)	; &I-M-45585;
+     ((ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+	(=ucs		    . #x2FF1)	; ⿱
+	)
+       ((==ucs@unicode	    . #x9ADF)	; &g2-GT-61051;
+	(==jis-x0208	    . #x7175)	; &g2-GT-61051; [81-85]
+	)
+       ((==ucs@cns	    . #x83C6)	; &g2-M-31146;
+	(==daikanwa	    . 31146)	; &g2-M-31146;
+	))
+      (==ucs@cns	  . #x29BCD)	; &g2-M-45585;
+      (==cns11643-5	  . #x7526)	; &g2-M-45585; [85-06]
+      (==daikanwa	  . 45585)	; &g2-M-45585;
+      (->subsumptive
+       ((===daikanwa	    . 45585)	; &R-M-45585;
+	)
+       ((===cns11643-5	    . #x7526)	; &R-C5-7526; [85-06]
+	))
+      ))
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x29BCD)	; 𩯍
+      ))
+    (ideographic-radical . 190)	; â¾½
+    (ideographic-strokes . 11)
+    (total-strokes	 . 21)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
       )
-     ((ideographic-strokes . 11)
-      (total-strokes	   . 21)
-      (=ucs@iso		  . #x29BCD)	; &U-00029BCD;
+     ((=ucs		  . #x9ADF)	; 髟
+      )
+     ((=ucs@unicode	  . #x83C6)	; &UU+83C6;
+      ))
+    (=ucs@iso		. #x29BCD)	; &U-00029BCD;
+    (->subsumptive
+     ((ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+	(=ucs		    . #x2FF1)	; ⿱
+	)
+       ((==ucs@unicode	    . #x9ADF)	; &g2-GT-61051;
+	(==jis-x0208	    . #x7175)	; &g2-GT-61051; [81-85]
+	)
+       ((==ucs@unicode	    . #x83C6)	; &g2-UU+83C6;
+	))
+      (==ucs@iso	  . #x29BCD)	; &g2-IU-00029BCD;
+      (->subsumptive
+       ((===ucs@iso	    . #x29BCD)	; &R-U-00029BCD;
+	)
+       ((=hanziku-12	    . #xADA9)	; &HZK12-ADA9;
+	))
       ))
     ))
 (define-char