(U+8D2A): Modify `ideographic-structure'.

(JX1-7C38): Unify U+FA64 and KU+8CD3; map to GU+8CD3 and CU+8CD3.
(U+8CD3): Map to JU+FA64.
(JX1-7C3D): Unify U+FA65 and KU+8D08.

diff --git a/lisp/utf-2000/Ideograph-R154-Shell.el b/lisp/utf-2000/Ideograph-R154-Shell.el
index c965e8d..0070604 100644 (file)
--- a/lisp/utf-2000/Ideograph-R154-Shell.el
+++ b/lisp/utf-2000/Ideograph-R154-Shell.el
@@ -588,11 +588,9 @@
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
       (ucs               . #x2FF1)     ; ⿱
       )
-     ((korean-ksc5601    . #x5051)     ; �����
-      (chinese-cns11643-1 . #x4474)    ; �����
-      (ideograph-daikanwa . 00358)     ; �����
+     ((ucs               . #x4ECA)     ; 今
       )
-     ((chinese-big5-cdp          . #x895D)     ; ������
+     ((ucs               . #x8D1D)     ; 贝
       ))
     (chinese-gb2312            . #x4C30)       ; �����
     (chinese-isoir165          . #x4C30)       ; �����
@@ -1761,16 +1759,21 @@
     (ucs               . #x4775)       ; 䝵
     ))
 (define-char
-  '((=>ucs             . #x8CD3)       ; 賓
+  '((=>ucs*            . #x8CD3)       ; 賓
+    (=>ucs-gb          . #x8CD3)       ; 賓
+    (=>ucs-cns         . #x8CD3)       ; 賓
     (ideographic-radical . 154)        ; ⾙
     (ideographic-strokes . 7)
     (total-strokes      . 14)
     (korean-ksc5601            . #x5E39)       ; �����
     (japanese-jisx0213-1       . #x7C38)       ; �����
     (ideograph-daikanwa                . 36788)        ; �����
+    (ucs-ks                    . #x8CD3)       ; 賓
+    (ucs                       . #xFA64)       ; 賓
     ))
 (define-char
-  '((morohashi-daikanwa        36788 0 0)
+  '((=>ucs-jis         . #xFA64)       ; 賓
+    (morohashi-daikanwa        36788 0 0)
     (ideographic-radical . 154)        ; ⾙
     (ideographic-strokes . 7)
     (total-strokes      . 14)
@@ -3315,7 +3318,7 @@
     (ideographic-strokes . 11)
     (total-strokes      . 18)
     (=jis-x0208                . #x4223)       ; �����
-    (ucs-jis           . #x8D08)       ; �����
+    (ucs-jis           . #x8D08)       ; �����
     ))
 (define-char
   '((ideographic-radical . 154)        ; ⾙
@@ -3411,13 +3414,14 @@
     (ideograph-daikanwa . 36927)       ; �����
     ))
 (define-char
-  '((=>ucs             . #x8D08)       ; 贈
+  '((=>ucs*            . #x8D08)       ; 贈
     (ideographic-radical . 154)        ; ⾙
     (ideographic-strokes . 12)
     (korean-ksc5601            . #x717C)       ; �����
     (japanese-jisx0213-1       . #x7C3D)       ; �����
     (ideograph-daikanwa                . 36929)        ; �����
-    (ucs-jis                   . #x8D08)       ; �����
+    (ucs-ks                    . #x8D08)       ; 贈
+    (ucs                       . #xFA65)       ; 贈
     ))
 (define-char
   '((morohashi-daikanwa        36929 0 2)