Add mappings between CNS 11643-4 and CJK Compatibility Ideographs

Supplement of UCS.

diff --git a/lisp/utf-2000/Ideograph-R115-Grain.el b/lisp/utf-2000/Ideograph-R115-Grain.el
index 39f953a..e1e6b6f 100644 (file)
--- a/lisp/utf-2000/Ideograph-R115-Grain.el
+++ b/lisp/utf-2000/Ideograph-R115-Grain.el
@@ -2540,17 +2540,27 @@
     (ucs               . #x2580E)      ; 𥠎
     ))
 (define-char
-  '((=>ucs             . #x7A40)       ; 穀
+  '((=>ucs             . #x2F959)      ; 穀
+    (=>ucs*            . #x7A40)       ; 穀
     (morohashi-daikanwa        25188 1)
     (ideographic-radical . 115)        ; ⽲
     (ideographic-strokes . 9)
     (japanese-strokes   . 14)
     (=jis-x0208                . #x3972)       ; �����
-    (chinese-cns11643-4 . #x455F)      ; �����
     (china3-jef                . #x5CF4)       ; �����
     (ucs-jis           . #x7A40)       ; �����
     ))
 (define-char
+  '((=>ucs*            . #x7A40)       ; 穀
+    (=>ucs-jis         . #x7A40)       ; �����
+    (morohashi-daikanwa        25188 1 0)
+    (ideographic-radical . 115)        ; ⽲
+    (ideographic-strokes . 9)
+    (japanese-strokes   . 14)
+    (chinese-cns11643-4 . #x455F)      ; �����
+    (ucs               . #x2F959)      ; 穀
+    ))
+(define-char
   '((=>ucs             . #x25822)      ; 𥠢
     (ideographic-radical . 115)        ; ⽲
     (ideographic-strokes . 9)
@@ -3520,29 +3530,45 @@
     (chinese-cns11643-2 . #x587A)      ; �����
     ))
 (define-char
-  '((=>ucs             . #x7A4A)       ; 穊
+  '((=>ucs             . #x2F95A)      ; 穊
     (ideographic-radical . 115)        ; ⽲
     (ideographic-strokes . 11)
     (total-strokes      . 16)
     (ideograph-daikanwa . 25261)       ; �����
     ))
 (define-char
-  '((=>ucs             . #x7A4A)       ; 穊
+  '((=>ucs*            . #x7A4A)       ; 穊
     (morohashi-daikanwa        25261 0 0)
     (ideographic-radical . 115)        ; ⽲
     (ideographic-strokes . 11)
     (total-strokes      . 16)
+    (ucs               . #x2F95A)      ; 穊
+    ))
+(define-char
+  '((=>ucs             . #x2F95A)      ; 穊
+    (=>ucs*            . #x7A4A)       ; 穊
+    (morohashi-daikanwa        25261 0 1)
+    (ideographic-radical . 115)        ; ⽲
+    (ideographic-strokes . 11)
+    (total-strokes      . 16)
     (chinese-cns11643-4 . #x5221)      ; �����
     ))
 (define-char
-  '((morohashi-daikanwa        25261 0 5)
+  '((morohashi-daikanwa        25261 0 4)
     (ideographic-radical . 115)        ; ⽲
     (ideographic-strokes . 9)
     (total-strokes      . 14)
-    (chinese-cns11643-2 . #x4C4C)      ; �����
     (ucs               . #x7A4A)       ; 穊
     ))
 (define-char
+  '((=>ucs             . #x7A4A)       ; 穊
+    (morohashi-daikanwa        25261 0 5)
+    (ideographic-radical . 115)        ; ⽲
+    (ideographic-strokes . 9)
+    (total-strokes      . 14)
+    (chinese-cns11643-2 . #x4C4C)      ; �����
+    ))
+(define-char
   '((=>ucs             . #x7A4B)       ; 穋
     (ideographic-radical . 115)        ; ⽲
     (ideographic-strokes . 11)