Add mappings between CNS 11643-4 and CJK Compatibility Ideographs

Supplement of UCS.

diff --git a/lisp/utf-2000/Ideograph-R142-Insect.el b/lisp/utf-2000/Ideograph-R142-Insect.el
index de776df..f51c5f1 100644 (file)
--- a/lisp/utf-2000/Ideograph-R142-Insect.el
+++ b/lisp/utf-2000/Ideograph-R142-Insect.el
@@ -2223,20 +2223,23 @@
     (ucs               . #x86ED)       ; 蛭
     ))
 (define-char
-  '((=>ucs             . #x8688)       ; 蚈
+  '((=>ucs             . #x2F9B8)      ; 蚈
     (ideographic-radical . 142)        ; ⾍
     (ideographic-strokes . 6)
     (total-strokes      . 12)
     (japanese-jisx0212 . #x5A6D)       ; �����
     (ideograph-daikanwa . 33049)       ; �����
+    (ucs-jis           . #x8688)       ; �����
     ))
 (define-char
-  '((=>ucs             . #x8688)       ; 蚈
+  '((=>ucs*            . #x8688)       ; 蚈
+    (=>ucs-jis         . #x8688)       ; �����
     (morohashi-daikanwa        33049 0 1)
     (ideographic-radical . 142)        ; ⾍
     (ideographic-strokes . 6)
     (total-strokes      . 12)
     (chinese-cns11643-4 . #x3A75)      ; �����
+    (ucs               . #x2F9B8)      ; 蚈
     ))
 (define-char
   '((ideographic-radical . 142)        ; ⾍
@@ -3659,13 +3662,21 @@
     (ideograph-daikanwa . 33197)       ; �����
     ))
 (define-char
-  '((ideographic-radical . 142)        ; ⾍
+  '((=>ucs             . #x2F9BA)      ; 蛢
+    (ideographic-radical . 142)        ; ⾍
     (ideographic-strokes . 8)
     (total-strokes      . 14)
-    (chinese-cns11643-4 . #x467C)      ; �����
     (ideograph-daikanwa . 33198)       ; �����
     ))
 (define-char
+  '((morohashi-daikanwa        33198 0 0)
+    (ideographic-radical . 142)        ; ⾍
+    (ideographic-strokes . 8)
+    (total-strokes      . 14)
+    (chinese-cns11643-4 . #x467C)      ; �����
+    (ucs               . #x2F9BA)      ; 蛢
+    ))
+(define-char
   '((ideographic-radical . 142)        ; ⾍
     (ideographic-strokes . 8)
     (total-strokes      . 14)
@@ -5531,15 +5542,36 @@
     (ucs               . #x8792)       ; 螒
     ))
 (define-char
-  '((ideographic-radical . 142)        ; ⾍
+  '((=>ucs             . #x8779)       ; 蝹
+    (ideographic-radical . 142)        ; ⾍
     (ideographic-strokes . 10)
     (total-strokes      . 16)
     (chinese-cns11643-2 . #x5A32)      ; �����
-    (chinese-cns11643-4 . #x4D33)      ; �����
     (ideograph-daikanwa . 33396)       ; �����
+    (ucs-cns           . #x8779)       ; �����
+    ))
+(define-char
+  '((=>ucs-cns         . #x2F9BB)      ; 蝹
+    (morohashi-daikanwa        33396 0 4)
+    (ideographic-radical . 142)        ; ⾍
+    (ideographic-strokes . 10)
+    (total-strokes      . 16)
+    (->same-ideograph
+     ((ucs               . #x2F9BB)    ; 蝹
+      ))
     (ucs               . #x8779)       ; 蝹
     ))
 (define-char
+  '((=>ucs*            . #x8779)       ; 蝹
+    (morohashi-daikanwa        33396 0 5)
+    (ideographic-radical . 142)        ; ⾍
+    (ideographic-strokes . 10)
+    (total-strokes      . 16)
+    (chinese-cns11643-4 . #x4D33)      ; �����
+    (ucs-gb            . #x8779)       ; 蝹
+    (ucs               . #x2F9BB)      ; 蝹
+    ))
+(define-char
   '((ideographic-radical . 142)        ; ⾍
     (ideographic-strokes . 10)
     (total-strokes      . 16)
@@ -8765,6 +8797,12 @@
     ))
 (define-char
   '((ideographic-radical . 142)        ; ⾍
+    (ideographic-strokes . 13)
+    (total-strokes      . 19)
+    (ucs               . #x45F9)       ; 䗹
+    ))
+(define-char
+  '((ideographic-radical . 142)        ; ⾍
     (ideographic-strokes . 14)
     (total-strokes      . 20)
     (chinese-cns11643-5 . #x6D4B)      ; �����
@@ -9152,10 +9190,12 @@
     (ideograph-daikanwa . 49698)       ; �����
     ))
 (define-char
-  '((ideographic-radical . 142)        ; ⾍
+  '((=>ucs*            . #x45F9)       ; 䗹
+    (ideographic-radical . 142)        ; ⾍
     (ideographic-strokes . 14)
     (total-strokes      . 20)
     (chinese-cns11643-4 . #x643F)      ; �����
+    (ucs               . #x2F9C2)      ; 䗹
     ))
 (define-char
   '((ideographic-radical . 142)        ; ⾍

diff --git a/lisp/utf-2000/Ideograph-R144-Walk-Enclosure.el b/lisp/utf-2000/Ideograph-R144-Walk-Enclosure.el
index 26a645e..60ba918 100644 (file)
--- a/lisp/utf-2000/Ideograph-R144-Walk-Enclosure.el
+++ b/lisp/utf-2000/Ideograph-R144-Walk-Enclosure.el
@@ -522,30 +522,41 @@
     (ucs                       . #x885F)       ; 衟
     ))
 (define-char
-  '((=>ucs             . #x8860)       ; 衠
+  '((=>ucs             . #x2F9C3)      ; 衠
     (ideographic-radical . 144)        ; ⾏
     (ideographic-strokes . 10)
     (total-strokes      . 16)
     (japanese-jisx0212 . #x5C32)       ; �����
     (ideograph-daikanwa . 34076)       ; �����
+    (ucs-jis           . #x8860)       ; �����
     ))
 (define-char
-  '((=>ucs             . #x8860)       ; 衠
+  '((=>ucs*            . #x8860)       ; 衠
+    (=>ucs-jis         . #x8860)       ; �����
     (morohashi-daikanwa        34076 0 0)
     (ideographic-radical . 144)        ; ⾏
     (ideographic-strokes . 10)
     (total-strokes      . 16)
     (chinese-cns11643-4 . #x534C)      ; �����
+    (ucs               . #x2F9C3)      ; 衠
     ))
 (define-char
-  '((morohashi-daikanwa        34076 0 6)
+  '((morohashi-daikanwa        34076 0 4)
     (ideographic-radical . 144)        ; ⾏
     (ideographic-strokes . 10)
     (total-strokes      . 16)
-    (chinese-cns11643-4 . #x534B)      ; �����
     (ucs               . #x8860)       ; 衠
     ))
 (define-char
+  '((=>ucs             . #x8860)       ; 衠
+    (morohashi-daikanwa        34076 0 5)
+    (ideographic-radical . 144)        ; ⾏
+    (ideographic-strokes . 10)
+    (total-strokes      . 16)
+    (chinese-cns11643-4 . #x534B)      ; �����
+    (ucs-cns           . #x8860)       ; �����
+    ))
+(define-char
   '((ideographic-radical . 144)        ; ⾏
     (ideographic-strokes . 10)
     (total-strokes      . 16)