Add mappings between CNS 11643-4 and CJK Compatibility Ideographs

Supplement of UCS.

diff --git a/lisp/utf-2000/Ideograph-R119-Rice.el b/lisp/utf-2000/Ideograph-R119-Rice.el
index c2fc294..9e01645 100644 (file)
--- a/lisp/utf-2000/Ideograph-R119-Rice.el
+++ b/lisp/utf-2000/Ideograph-R119-Rice.el
@@ -3329,9 +3329,11 @@
     (total-strokes      . 17)
     (chinese-cns11643-2 . #x5E3C)      ; ø»”¦¡
     (ideograph-daikanwa . 27114)       ; ø¸†§ª
+    (ucs-cns           . #x7CE8)       ; ø»”¦¡
     ))
 (define-char
-  '((morohashi-daikanwa        27114 0 5)
+  '((=>ucs-cns         . #x2F968)      ; 糨
+    (morohashi-daikanwa        27114 0 4)
     (ideographic-radical . 119)        ; ⽶
     (ideographic-strokes . 11)
     (total-strokes      . 17)
@@ -3340,6 +3342,16 @@
     (ucs               . #x7CE8)       ; 糨
     ))
 (define-char
+  '((=>ucs*            . #x7CE8)       ; 糨
+    (=>ucs-gb          . #x7CE8)       ; 糨
+    (morohashi-daikanwa        27114 0 5)
+    (ideographic-radical . 119)        ; ⽶
+    (ideographic-strokes . 12)
+    (total-strokes      . 18)
+    (chinese-cns11643-4 . #x5C59)      ; ø»˜¸Š
+    (ucs               . #x2F968)      ; 糨
+    ))
+(define-char
   '((=>ucs             . #x25F13)      ; 𥼓
     (ideographic-radical . 119)        ; ⽶
     (ideographic-strokes . 11)
@@ -3720,12 +3732,6 @@
   '((ideographic-radical . 119)        ; ⽶
     (ideographic-strokes . 12)
     (total-strokes      . 18)
-    (chinese-cns11643-4 . #x5C59)      ; ø»˜¸Š
-    ))
-(define-char
-  '((ideographic-radical . 119)        ; ⽶
-    (ideographic-strokes . 12)
-    (total-strokes      . 18)
     (chinese-cns11643-7 . #x4144)      ; ø»ž®—
     ))
 (define-char

diff --git a/lisp/utf-2000/Ideograph-R120-Silk.el b/lisp/utf-2000/Ideograph-R120-Silk.el
index 52a8539..a1c5ac4 100644 (file)
--- a/lisp/utf-2000/Ideograph-R120-Silk.el
+++ b/lisp/utf-2000/Ideograph-R120-Silk.el
@@ -15613,17 +15613,20 @@
     (ucs               . #x7E7E)       ; ç¹¾
     ))
 (define-char
-  '((ideographic-radical . 120)        ; â½·
+  '((=>ucs             . #x2F970)      ; 繅
+    (ideographic-radical . 120)        ; â½·
     (ideographic-strokes . 14)
     (total-strokes      . 20)
     (ideograph-daikanwa . 28007)       ; ø¸†µ§
     ))
 (define-char
-  '((morohashi-daikanwa        28007 0 1)
+  '((=>ucs*            . #x7E45)       ; ç¹…
+    (morohashi-daikanwa        28007 0 1)
     (ideographic-radical . 120)        ; â½·
     (ideographic-strokes . 14)
     (total-strokes      . 20)
     (chinese-cns11643-4 . #x6426)      ; ø»™ƒ‡
+    (ucs               . #x2F970)      ; 繅
     ))
 (define-char
   '((=>ucs             . #x4327)       ; 䌧