Add mappings between CNS 11643-4 and CJK Compatibility Ideographs

Supplement of UCS.

diff --git a/lisp/utf-2000/Ideograph-R015-Ice.el b/lisp/utf-2000/Ideograph-R015-Ice.el
index 40649bc..f60bfcb 100644 (file)
--- a/lisp/utf-2000/Ideograph-R015-Ice.el
+++ b/lisp/utf-2000/Ideograph-R015-Ice.el
@@ -159,7 +159,7 @@
     (ucs               . #x51B0)       ; 冰
     ))
 (define-char
-  '((=>ucs             . #x4ECC)       ; 仌
+  '((=>ucs*            . #x4ECC)       ; 仌
     (morohashi-daikanwa        1612 0 7)
     (ideographic-radical . 15) ; ⼎
     (ideographic-strokes . 2)
@@ -170,10 +170,9 @@
       (ideograph-daikanwa . 00360)     ; �����
       ))
     (<-original-ideograph
-     (:sources (morohashi-daikanwa)
-      :char    ((ideograph-daikanwa . 01612)   ; �����
+     (:char    ((ideograph-daikanwa . 01612)   ; �����
                 )
-      ))
+      :sources (morohashi-daikanwa)))
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
       (ucs               . #x2FF1)     ; ⿱
@@ -183,6 +182,7 @@
      ((ucs               . #x4EBA)     ; 人
       ))
     (chinese-cns11643-4 . #x213F)      ; �����
+    (ucs               . #x2F819)      ; 仌
     ))
 (define-char
   '((ideographic-radical . 15) ; ⼎

diff --git a/lisp/utf-2000/Ideograph-R019-Power.el b/lisp/utf-2000/Ideograph-R019-Power.el
index 6162e41..86e8d00 100644 (file)
--- a/lisp/utf-2000/Ideograph-R019-Power.el
+++ b/lisp/utf-2000/Ideograph-R019-Power.el
@@ -2626,27 +2626,26 @@
     ))
 (define-char
   '((script            JP-Jouyou Ideograph)
-    (=>ucs             . #x52E4)       ; 勤
+    (=>ucs*            . #x52E4)       ; 勤
     (morohashi-daikanwa        2415 1)
     (ideographic-radical . 19) ; ⼒
     (ideographic-strokes . 10)
     (total-strokes      . 12)
     (<-simplified-ideograph
-     (:sources (morohashi-daikanwa)
-      :char    ((ideograph-daikanwa . 02424)   ; �����
+     (:char    ((ideograph-daikanwa . 02424)   ; �����
                 )
-      ))
+      :sources (morohashi-daikanwa)))
     (<-vulgar-ideograph
-     (:sources (shinjigen-1)
-      :char    ((shinjigen-1        . 744)
+     (:char    ((shinjigen-1        . 744)
                 (ideograph-daikanwa . 02424)   ; �����
                 )
-      ))
+      :sources (shinjigen-1)))
     (shinjigen-1       . 743)
     (shinjigen-2       . 743)
     (=jis-x0208                . #x3650)       ; �����
     (chinese-cns11643-4 . #x364C)      ; �����
-    (ucs-jis           . #x52E4)       ; �����
+    (ucs-jis           . #x52E4)       ; 勤
+    (ucs               . #x2F827)      ; 勤
     ))
 (define-char
   '((=>ucs             . #x52DF)       ; 募

diff --git a/lisp/utf-2000/Ideograph-R030-Mouth.el b/lisp/utf-2000/Ideograph-R030-Mouth.el
index 0273db2..d9ecf8e 100644 (file)
--- a/lisp/utf-2000/Ideograph-R030-Mouth.el
+++ b/lisp/utf-2000/Ideograph-R030-Mouth.el
@@ -2763,6 +2763,7 @@
     (ideographic-strokes . 4)
     (total-strokes      . 7)
     (chinese-cns11643-1 . #x4947)      ; �����
+    (chinese-big5      . #xA765)       ; ������
     (ideograph-daikanwa . 03363)       ; �����
     (china3-jef                . #x45F8)       ; �����
     ))
@@ -3310,6 +3311,9 @@
   '((ideographic-radical . 30) ; ⼝
     (ideographic-strokes . 4)
     (total-strokes      . 7)
+    (->same-ideograph
+     ((ucs               . #x2F83C)    ; 咞
+      ))
     (hanyu-dazidian    1 585 2)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
@@ -3322,9 +3326,22 @@
     (chinese-cns11643-4                . #x235C)       ; �����
     (ideograph-daikanwa                . 03385)        ; �����
     (ideograph-hanziku-2       . #xCAD0)       ; ������
+    (ucs-cns                   . #x2F83C)      ; 咞
     (ucs                       . #x549E)       ; 咞
     ))
 (define-char
+  '((=>ucs*            . #x549E)       ; 咞
+    (=>ucs-gb          . #x549E)       ; 咞
+    (morohashi-daikanwa        3385 0 0)
+    (ideographic-radical . 30) ; ⼝
+    (ideographic-strokes . 4)
+    (total-strokes      . 7)
+    (->same-ideograph
+     ((ucs               . #x549E)     ; 咞
+      ))
+    (ucs               . #x2F83C)      ; 咞
+    ))
+(define-char
   '((ideographic-radical . 30) ; ⼝
     (ideographic-strokes . 4)
     (total-strokes      . 7)
@@ -3587,6 +3604,9 @@
   '((ideographic-radical . 30) ; ⼝
     (ideographic-strokes . 4)
     (total-strokes      . 7)
+    (->same-ideograph
+     ((ucs               . #x2F83E)    ; 呈
+      ))
     (hanyu-dazidian    1 585 1)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
@@ -3602,12 +3622,24 @@
     (korean-ksc5601            . #x6F50)       ; �����
     (chinese-isoir165          . #x334A)       ; �����
     (chinese-cns11643-4                . #x235B)       ; �����
-    (chinese-big5              . #xA765)       ; ������
     (ideograph-daikanwa                . 03401)        ; �����
     (ideograph-hanziku-2       . #xCACF)       ; ������
+    (ucs-cns                   . #x2F83E)      ; 呈
     (ucs                       . #x5448)       ; 呈
     ))
 (define-char
+  '((=>ucs*            . #x5448)       ; 呈
+    (=>ucs-gb          . #x5448)       ; 呈
+    (morohashi-daikanwa        3401 0 0)
+    (ideographic-radical . 30) ; ⼝
+    (ideographic-strokes . 4)
+    (total-strokes      . 7)
+    (->same-ideograph
+     ((ucs               . #x5448)     ; 呈
+      ))
+    (ucs               . #x2F83E)      ; 呈
+    ))
+(define-char
   '((ideographic-radical . 30) ; ⼝
     (ideographic-strokes . 4)
     (total-strokes      . 7)
@@ -12829,6 +12861,9 @@
     (ideographic-radical . 30) ; ⼝
     (ideographic-strokes . 8)
     (total-strokes      . 11)
+    (->same-ideograph
+     ((ucs               . #x2F843)    ; 啓
+      ))
     (hanyu-dazidian    1 646 12)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
@@ -12841,9 +12876,22 @@
     (chinese-cns11643-4                . #x3076)       ; �����
     (chinese-gb12345           . #x4674)       ; 啓
     (ideograph-hanziku-2       . #xD75F)       ; ������
+    (ucs-cns                   . #x2F843)      ; 啓
     (ucs                       . #x5553)       ; 啓
     ))
 (define-char
+  '((=>ucs*            . #x5553)       ; 啓
+    (=>ucs-gb          . #x5553)       ; 啓
+    (morohashi-daikanwa        3820 0 5)
+    (ideographic-radical . 30) ; ⼝
+    (ideographic-strokes . 8)
+    (total-strokes      . 11)
+    (->same-ideograph
+     ((ucs               . #x5553)     ; 啓
+      ))
+    (ucs               . #x2F843)      ; 啓
+    ))
+(define-char
   '((=>ucs             . #x555F)       ; 啟
     (ideographic-radical . 30) ; ⼝
     (ideographic-strokes . 8)
@@ -19976,7 +20024,8 @@
     (chinese-cns11643-6 . #x5136)      ; �����
     ))
 (define-char
-  '((ideographic-radical . 30) ; ⼝
+  '((=>ucs             . #x2F84A)      ; 嗂
+    (ideographic-radical . 30) ; ⼝
     (ideographic-strokes . 10)
     (total-strokes      . 13)
     (ideograph-daikanwa . 48980)       ; �����
@@ -19987,6 +20036,7 @@
     (ideographic-strokes . 10)
     (total-strokes      . 13)
     (chinese-cns11643-4 . #x3C50)      ; �����
+    (ucs               . #x2F84A)      ; 嗂
     ))
 (define-char
   '((ideographic-radical . 30) ; ⼝