Add mappings between CNS 11643-4 and CJK Compatibility Ideographs

Supplement of UCS.

diff --git a/lisp/utf-2000/Ideograph-R040-Roof.el b/lisp/utf-2000/Ideograph-R040-Roof.el
index f9dd0a6..cdfeead 100644 (file)
--- a/lisp/utf-2000/Ideograph-R040-Roof.el
+++ b/lisp/utf-2000/Ideograph-R040-Roof.el
@@ -2306,10 +2306,9 @@
     (ideographic-strokes . 8)
     (total-strokes      . 11)
     (<-vulgar-ideograph
-     (:sources (seiji-tsuu morohashi-daikanwa)
-      :char    ((ideograph-daikanwa . 01587)   ; �����
+     (:char    ((ideograph-daikanwa . 01587)   ; �����
                 )
-      ))
+      :sources (seiji-tsuu morohashi-daikanwa)))
     (japanese-jisx0208         . #x5563)       ; �����
     (japanese-jisx0208-1990    . #x5563)       ; �����
     (ideograph-daikanwa                . 07202)        ; �����
@@ -2326,7 +2325,7 @@
     ))
 (define-char
   '((=>ucs             . #x5BC3)       ; 寃
-    (morohashi-daikanwa        7202 0 2)
+    (morohashi-daikanwa        7202 0 1)
     (ideographic-radical . 40) ; ⼧
     (ideographic-strokes . 7)
     (total-strokes      . 10)
@@ -2334,20 +2333,29 @@
     ))
 (define-char
   '((=>ucs             . #x5BC3)       ; 寃
-    (morohashi-daikanwa        7202 0 4)
+    (morohashi-daikanwa        7202 0 3)
     (ideographic-radical . 40) ; ⼧
     (ideographic-strokes . 8)
     (total-strokes      . 11)
     (korean-ksc5601    . #x6A32)       ; �����
     ))
 (define-char
-  '((=>ucs             . #x5BC3)       ; 寃
+  '((=>ucs             . #x2F86D)      ; 寃
+    (=>ucs*            . #x5BC3)       ; 寃
+    (morohashi-daikanwa        7202 0 4)
+    (ideographic-radical . 40) ; ⼧
+    (ideographic-strokes . 8)
+    (total-strokes      . 11)
+    (china3-jef                . #x4AB8)       ; �����
+    ))
+(define-char
+  '((=>ucs*            . #x5BC3)       ; 寃
     (morohashi-daikanwa        7202 0 5)
     (ideographic-radical . 40) ; ⼧
     (ideographic-strokes . 8)
     (total-strokes      . 11)
     (chinese-cns11643-4 . #x3130)      ; �����
-    (china3-jef                . #x4AB8)       ; �����
+    (ucs               . #x2F86D)      ; 寃
     ))
 (define-char
   '((ideographic-radical . 40) ; ⼧