Add mappings between CNS 11643-4 and CJK Compatibility Ideographs

Supplement of UCS.

diff --git a/lisp/utf-2000/Ideograph-R181-Leaf.el b/lisp/utf-2000/Ideograph-R181-Leaf.el
index 7252e6e..1eb85c5 100644 (file)
--- a/lisp/utf-2000/Ideograph-R181-Leaf.el
+++ b/lisp/utf-2000/Ideograph-R181-Leaf.el
@@ -2520,7 +2520,8 @@
     (ideograph-daikanwa . 43560)       ; �����
     ))
 (define-char
-  '((ideographic-radical . 181)        ; ⾴
+  '((=>ucs             . #x2FA00)      ; 頩
+    (ideographic-radical . 181)        ; ⾴
     (ideographic-strokes . 8)
     (total-strokes      . 17)
     (ideograph-daikanwa . 43561)       ; �����
@@ -2531,6 +2532,7 @@
     (ideographic-strokes . 8)
     (total-strokes      . 17)
     (chinese-cns11643-4 . #x5976)      ; �����
+    (ucs               . #x2FA00)      ; 頩
     ))
 (define-char
   '((ideographic-radical . 181)        ; ⾴

diff --git a/lisp/utf-2000/Ideograph-R184-Eat.el b/lisp/utf-2000/Ideograph-R184-Eat.el
index f79abff..35b46fb 100644 (file)
--- a/lisp/utf-2000/Ideograph-R184-Eat.el
+++ b/lisp/utf-2000/Ideograph-R184-Eat.el
@@ -3696,17 +3696,27 @@
     ))
 (define-char
   '((=>ucs             . #x9929)       ; 餩
+    (=>ucs-cns         . #x2FA04)      ; 餩
     (ideographic-radical . 184)        ; ⾷
     (ideographic-strokes . 8)
     (total-strokes      . 17)
     (ideograph-daikanwa . 44239)       ; �����
     ))
 (define-char
-  '((morohashi-daikanwa        44239 0 1)
+  '((=>ucs*            . #x9929)       ; 餩
+    (morohashi-daikanwa        44239 0 0)
     (ideographic-radical . 184)        ; ⾷
     (ideographic-strokes . 8)
     (total-strokes      . 16)
     (chinese-cns11643-4 . #x5523)      ; �����
+    (ucs               . #x2FA04)      ; 餩
+    ))
+(define-char
+  '((=>ucs-cns         . #x2FA04)      ; 餩
+    (morohashi-daikanwa        44239 0 1)
+    (ideographic-radical . 184)        ; ⾷
+    (ideographic-strokes . 8)
+    (total-strokes      . 16)
     (ucs               . #x9929)       ; 餩
     ))
 (define-char
@@ -3716,6 +3726,7 @@
     (ideographic-strokes . 8)
     (total-strokes      . 16)
     (chinese-cns11643-2 . #x5B6B)      ; �����
+    (ucs-cns           . #x9929)       ; �����
     ))
 (define-char
   '((ideographic-radical . 184)        ; ⾷

diff --git a/lisp/utf-2000/Ideograph-R186-Fragrant.el b/lisp/utf-2000/Ideograph-R186-Fragrant.el
index c855311..b607782 100644 (file)
--- a/lisp/utf-2000/Ideograph-R186-Fragrant.el
+++ b/lisp/utf-2000/Ideograph-R186-Fragrant.el
@@ -283,11 +283,25 @@
     (ideograph-daikanwa . 44551)       ; �����
     ))
 (define-char
-  '((ideographic-radical . 186)        ; ⾹
+  '((=>ucs*            . #x99A7)       ; 馧
+    (ideographic-radical . 186)        ; ⾹
     (ideographic-strokes . 9)
     (total-strokes      . 18)
     (chinese-cns11643-4 . #x5E60)      ; �����
     (ideograph-daikanwa . 44552)       ; �����
+    (ucs-gb            . #x99A7)       ; 馧
+    (ucs               . #x2FA05)      ; 馧
+    ))
+(define-char
+  '((=>ucs-cns         . #x2FA05)      ; 馧
+    (morohashi-daikanwa        44552 0 0)
+    (ideographic-radical . 186)        ; ⾹
+    (ideographic-strokes . 9)
+    (total-strokes      . 18)
+    (->same-ideograph
+     ((ucs               . #x2FA05)    ; 馧
+      ))
+    (ucs               . #x99A7)       ; 馧
     ))
 (define-char
   '((ideographic-radical . 186)        ; ⾹
@@ -342,12 +356,13 @@
     (chinese-cns11643-4 . #x623D)      ; �����
     ))
 (define-char
-  '((ideographic-radical . 186)        ; ⾹
+  '((=>ucs             . #x99A7)       ; 馧
+    (ideographic-radical . 186)        ; ⾹
     (ideographic-strokes . 10)
     (total-strokes      . 19)
     (chinese-cns11643-2 . #x677E)      ; �����
     (ideograph-daikanwa . 44556)       ; �����
-    (ucs               . #x99A7)       ; 馧
+    (ucs-cns           . #x99A7)       ; �����
     ))
 (define-char
   '((=>ucs             . #x29855)      ; 𩡕

diff --git a/lisp/utf-2000/Ideograph-R202-Millet.el b/lisp/utf-2000/Ideograph-R202-Millet.el
index 24e7673..6ad6799 100644 (file)
--- a/lisp/utf-2000/Ideograph-R202-Millet.el
+++ b/lisp/utf-2000/Ideograph-R202-Millet.el
@@ -258,20 +258,28 @@
     (ucs               . #x4D55)       ; 䵕
     ))
 (define-char
-  '((ideographic-radical . 202)        ; ⿉
+  '((=>ucs             . #x4D56)       ; 䵖
+    (ideographic-radical . 202)        ; ⿉
     (ideographic-strokes . 8)
     (total-strokes      . 20)
     (chinese-cns11643-5 . #x6F54)      ; �����
     (ideograph-daikanwa . 48017)       ; �����
+    ))
+(define-char
+  '((morohashi-daikanwa        48017 0 0)
+    (ideographic-radical . 202)        ; ⿉
+    (ideographic-strokes . 8)
+    (total-strokes      . 20)
     (ucs               . #x4D56)       ; 䵖
     ))
 (define-char
-  '((=>ucs             . #x4D56)       ; 䵖
+  '((=>ucs*            . #x4D56)       ; 䵖
     (morohashi-daikanwa        48017 0 5)
     (ideographic-radical . 202)        ; ⿉
     (ideographic-strokes . 9)
     (total-strokes      . 21)
     (chinese-cns11643-4 . #x684F)      ; �����
+    (ucs               . #x2FA16)      ; 䵖
     ))
 (define-char
   '((ideographic-radical . 202)        ; ⿉