From 4c2061b67ec7c8083038183a361cc0d483d7d75b Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Sat, 10 Sep 2011 13:39:54 +0000
Subject: [PATCH] Add Hanyo-Denshi/JB code points. (U+4A83): Use
 `->subsumptive' to separate representative nodes.

---
 lisp/utf-2000/Ideograph-R177-Leather.el |   85 ++++++++++++++++++++++---------
 1 file changed, 61 insertions(+), 24 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R177-Leather.el b/lisp/utf-2000/Ideograph-R177-Leather.el
index ec31fb5..04ce3f5 100644
--- a/lisp/utf-2000/Ideograph-R177-Leather.el
+++ b/lisp/utf-2000/Ideograph-R177-Leather.el
@@ -3280,22 +3280,41 @@
     ))
 (define-char
   '((ideographic-radical . 177)	; â¾°
+    (=ucs		. #x97BE)	; 鞾
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x97BE)	; 鞾
+      ))
+    (ideographic-radical . 177)	; â¾°
     (ideographic-strokes . 12)
-    (japanese-strokes	 . 10)
     (total-strokes	 . 21)
-    (=ucs		. #x97BE)	; 鞾
-    (=jis-x0212		. #x6756)	; &I-JSP-6756; [71-54]
-    (=cns11643-3	. #x5E74)	; &I-C3-5E74; [62-84]
-    (=jis-x0213-2	. #x7C2A)	; &I-JX2-7C2A; [92-10]
+    (=cns11643-3	. #x5E74)	; &M-43030; [62-84]
     (=daikanwa		. 43030)	; &I-M-43030;
     ))
 (define-char
+  '((<-denotational
+     ((=ucs		  . #x97BE)	; 鞾
+      ))
+    (ideographic-radical . 177)	; â¾°
+    (ideographic-strokes . 10)
+    (total-strokes	 . 19)
+    (=ucs@unicode	. #x97BE)	; &JX2-7C2A;
+    (=jis-x0212		. #x6756)	; &JX2-7C2A; [71-54]
+    (=jis-x0213-2	. #x7C2A)	; &I-JX2-7C2A; [92-10]
+    (=hanyo-denshi/jb	. #x6756)	; &I-HD-JB-6756; [71-54]
+    ))
+(define-char
   '((ideographic-radical . 177)	; â¾°
     (ideographic-strokes . 12)
     (total-strokes	 . 21)
     (=ucs		. #x4A83)	; 䪃
-    (=cns11643-5	. #x7169)	; &I-C5-7169; [81-73]
-    (=daikanwa		. 43031)	; &I-M-43031;
+    (->subsumptive
+     ((=daikanwa	  . 43031)	; &M-43031;
+      )
+     ((=ucs@unicode	  . #x4A83)	; &C5-7169;
+      (=cns11643-5	  . #x7169)	; &C5-7169; [81-73]
+      ))
     ))
 (define-char
   '((ideographic-radical . 177)	; â¾°
@@ -3956,25 +3975,43 @@
 (define-char
   '((ideographic-radical . 177)	; â¾°
     (=ucs		. #x97C9)	; 韉
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x97C9)	; 韉
+      ))
+    (ideographic-radical . 177)	; â¾°
+    (ideographic-strokes . 17)
+    (total-strokes	 . 26)
+    (=>>ucs@cns		. #x97C9)	; &G-CU+97C9;
+    (=>>>ucs@cns	. #x97C9)	; &G-CU+97C9;
+    (=>>daikanwa	. 43089)	; &G-CU+97C9;
     (->subsumptive
-     ((ideographic-strokes . 17)
-      (total-strokes	   . 26)
-      (->subsumptive
-       ((=daikanwa	    . 43089)	; &M-43089;
-	)
-       ((=cns11643-1	    . #x7D36)	; &C1-7D36; [93-22]
-	))
+     ((=daikanwa	  . 43089)	; &M-43089;
       )
-     ((ideographic-strokes . 16)
-      (total-strokes	   . 25)
-      (->subsumptive
-       ((=ucs@jis	    . #x97C9)	; &JX1-7D72;
-	(=jis-x0212	    . #x675C)	; &JX1-7D72; [71-60]
-	(=jis-x0213-1	    . #x7D72)	; &I-JX1-7D72; [93-82]
-	)
-       ((=ucs@unicode	    . #x97C9)	; &UU+97C9;
-	(=gb12345	    . #x7735)	; &UU+97C9; [87-21]
-	))
+     ((=ucs@cns		  . #x97C9)	; &C1-7D36;
+      (=cns11643-1	  . #x7D36)	; &C1-7D36; [93-22]
+      ))
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs		  . #x97C9)	; 韉
+      ))
+    (ideographic-radical . 177)	; â¾°
+    (ideographic-strokes . 16)
+    (total-strokes	 . 25)
+    (=>>ucs@unicode	. #x97C9)	; &g2-JX1-7D72;
+    (=>>>ucs@unicode	. #x97C9)	; &g2-JX1-7D72;
+    (=>>>jis-x0213-1	. #x7D72)	; &g2-JX1-7D72; [93-82]
+    (=>>hanyo-denshi/jb . #x675C)	; &g2-JX1-7D72; [71-60]
+    (->subsumptive
+     ((=ucs@jis		  . #x97C9)	; &JX1-7D72;
+      (=jis-x0212	  . #x675C)	; &JX1-7D72; [71-60]
+      (=jis-x0213-1	  . #x7D72)	; &I-JX1-7D72; [93-82]
+      (=hanyo-denshi/jb	  . #x675C)	; &I-HD-JB-675C; [71-60]
+      )
+     ((=ucs@unicode	  . #x97C9)	; &UU+97C9;
+      (=gb12345		  . #x7735)	; &UU+97C9; [87-21]
       ))
     ))
 (define-char
-- 
1.7.10.4