From ac39ebb3e2c7b313bd38d2fea7882383f8ec9a0e Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Sun, 2 Oct 2011 00:45:16 +0000
Subject: [PATCH] Add `=decomposition@hanyo-denshi' for Hanyo-Denshi/JT
 characters.

---
 lisp/utf-2000/Ideograph-R031-Enclosure.el |   16 +++++--
 lisp/utf-2000/Ideograph-R037-Big.el       |   70 +++++++++++++++++++++++------
 2 files changed, 69 insertions(+), 17 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R031-Enclosure.el b/lisp/utf-2000/Ideograph-R031-Enclosure.el
index 3a613dc..599cfad 100644
--- a/lisp/utf-2000/Ideograph-R031-Enclosure.el
+++ b/lisp/utf-2000/Ideograph-R031-Enclosure.el
@@ -1558,7 +1558,12 @@
       ))
     (=>>ucs@cns		. #x56F6)	; &G-CU+56F6;
     (->subsumptive
-     ((=hanyo-denshi/jt	  . #xAF38)	; &HD-JT-AF38;
+     ((=decomposition@hanyo-denshi
+       ((=ucs		    . #x56F6)	; 囶
+	)
+       ((=ucs		    . #xE0102)	; 󠄂
+	))
+      (=hanyo-denshi/jt	  . #xAF38)	; 囶󠄂
       )
      ((=ucs@cns		  . #x56F6)	; &C3-2822;
       (=cns11643-3	  . #x2822)	; &C3-2822; [08-02]
@@ -2702,7 +2707,7 @@
       )
      ((=ucs		  . #x56D7)	; 囗
       )
-     ((=>>ucs@unicode	  . #x5377)	; &G-UU+5377;
+     ((=>>hanyo-denshi/ft . #x3521)	; &G-HD-FT-3521; [21-01]
       ))
     (=>>ucs@unicode	. #x5708)	; &G-HD-FT-353A;
     (=>>hanyo-denshi/ft . #x353A)	; &G-HD-FT-353A; [21-26]
@@ -3853,6 +3858,11 @@
     (ideographic-radical . 31)	; ⼞
     (ideographic-strokes . 12)
     (total-strokes	 . 15)
+    (=decomposition@hanyo-denshi
+     ((=ucs		  . #x5716)	; 圖
+      )
+     ((=ucs		  . #xE0102)	; 󠄂
+      ))
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER FULL SURROUND")
       (=ucs		  . #x2FF4)	; â¿´
@@ -3868,7 +3878,7 @@
        ((=ucs		    . #x9762)	; 面
 	))
       ))
-    (=hanyo-denshi/jt	. #xAF43)	; &HD-JT-AF43;
+    (=hanyo-denshi/jt	. #xAF43)	; 圖󠄂
     ))
 (define-char
   '((<-denotational
diff --git a/lisp/utf-2000/Ideograph-R037-Big.el b/lisp/utf-2000/Ideograph-R037-Big.el
index da47cc1..7f7bb40 100644
--- a/lisp/utf-2000/Ideograph-R037-Big.el
+++ b/lisp/utf-2000/Ideograph-R037-Big.el
@@ -567,7 +567,12 @@
     (=>>>ucs@unicode	. #x3691)	; &g2-HD-JT-AFBF;
     (=>>>hanyo-denshi/jt . #xAFBF)	; &g2-HD-JT-AFBF;
     (->subsumptive
-     ((=hanyo-denshi/jt	  . #xAFBF)	; &HD-JT-AFBF;
+     ((=decomposition@hanyo-denshi
+       ((=ucs		    . #x3691)	; 㚑
+	)
+       ((=ucs		    . #xE0102)	; 󠄂
+	))
+      (=hanyo-denshi/jt	  . #xAFBF)	; 㚑󠄂
       )
      ((=ucs@unicode	  . #x3691)	; &UU+3691;
       ))
@@ -1434,22 +1439,54 @@
     (ideographic-radical . 37)	; ⼤
     (ideographic-strokes . 6)
     (total-strokes	 . 9)
-    (=>>ucs@unicode	. #x5951)	; &G-UU+5951;
-    (=big5		. #xABB4)	; &I-B-ABB4;
+    (=>ucs@unicode	. #x5951)	; &A-UU+5951;
+    (=big5		. #xABB4)	; &A-UU+5951;
+    ))
+(define-char
+  '((<-denotational
+     ((=>ucs@unicode	  . #x5951)	; &A-UU+5951;
+      ))
+    (ideographic-radical . 37)	; ⼤
+    (ideographic-strokes . 6)
+    (total-strokes	 . 9)
+    (=gt		. 07464)	; &GT-07464;
+    (=gt-k		. 05057)	; &I-GT-K05057;
+    (=gt-pj-2		. #x6735)	; &GT-07464; [71-21]
+    (=daikanwa		. 05917)	; &I-M-05917;
+    ))
+(define-char
+  '((<-denotational
+     ((=>ucs@unicode	  . #x5951)	; &A-UU+5951;
+      ))
+    (ideographic-radical . 37)	; ⼤
+    (ideographic-strokes . 6)
+    (total-strokes	 . 9)
+    (=ucs@unicode	. #x5951)	; &G0-4675;
+    (=gb2312		. #x4675)	; &G0-4675; [38-85]
+    ))
+(define-char
+  '((<-denotational
+     ((=>ucs@unicode	  . #x5951)	; &A-UU+5951;
+      ))
+    (ideographic-radical . 37)	; ⼤
+    (ideographic-strokes . 6)
+    (total-strokes	 . 9)
+    (=>>ucs@ks		. #x5951)	; &G-HD-JT-AFC4;
+    (=>>ucs@cns		. #x5951)	; &G-HD-JT-AFC4;
+    (=>>hanyo-denshi/jt . #xAFC4)	; &G-HD-JT-AFC4;
     (->subsumptive
-     ((=gt		  . 07464)	; &GT-07464;
-      (=gt-k		  . 05057)	; &I-GT-K05057;
-      (=gt-pj-2		  . #x6735)	; &GT-07464; [71-21]
-      (=daikanwa	  . 05917)	; &I-M-05917;
-      )
-     ((=ks-x1001	  . #x4C78)	; &HD-JT-AFC4; [44-88]
+     ((=decomposition@hanyo-denshi
+       ((=ucs		    . #x5951)	; 契
+	)
+       ((=ucs		    . #xE0105)	; 󠄅
+	))
+      (=ucs@ks		  . #x5951)	; 契󠄅
+      (=ks-x1001	  . #x4C78)	; 契󠄅 [44-88]
       (=jef-china3	  . #x48EA)	; &I-JC3-48EA;
       (=hanyo-denshi/jt	  . #xAFC4)	; &I-HD-JT-AFC4;
       )
-     ((=cns11643-1	  . #x5056)	; &C1-5056; [48-54]
-      )
-     ((=ucs@unicode	  . #x5951)	; &G0-4675;
-      (=gb2312		  . #x4675)	; &G0-4675; [38-85]
+     ((=ucs@cns		  . #x5951)	; &C1-5056;
+      (=cns11643-1	  . #x5056)	; &C1-5056; [48-54]
       ))
     ))
 (define-char
@@ -2455,7 +2492,12 @@
       (=gt-pj-1		  . #x547B)	; &I-GT-07540; [52-91]
       (=hanyo-denshi/ja	  . #x547B)	; &I-HD-JA-547B; [52-91]
       )
-     ((=hanyo-denshi/jt	  . #xAFD0)	; &HD-JT-AFD0;
+     ((=decomposition@hanyo-denshi
+       ((=ucs		    . #x5960)	; 奠
+	)
+       ((=ucs		    . #xE0104)	; 󠄄
+	))
+      (=hanyo-denshi/jt	  . #xAFD0)	; 奠󠄄
       ))
     ))
 (define-char
-- 
1.7.10.4