From a6bed459051d09e326c3ce8df2db85e0f7edaf4b Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Wed, 27 Nov 2002 07:50:51 +0000
Subject: [PATCH] Add mappings between CNS 11643-4 and CJK Compatibility
 Ideographs Supplement of UCS.

---
 lisp/utf-2000/Ideograph-R075-Tree.el   |   54 +++++++++++++++++++++-----------
 lisp/utf-2000/Ideograph-R079-Weapon.el |   17 ++++++----
 2 files changed, 46 insertions(+), 25 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R075-Tree.el b/lisp/utf-2000/Ideograph-R075-Tree.el
index 1198877..0c195fb 100644
--- a/lisp/utf-2000/Ideograph-R075-Tree.el
+++ b/lisp/utf-2000/Ideograph-R075-Tree.el
@@ -1206,6 +1206,13 @@
   '((ideographic-radical . 75)	; ⽊
     (ideographic-strokes . 3)
     (total-strokes	 . 7)
+    (chinese-cns11643-4 . #x2447)	; ø»—¥¨
+    (ucs		. #x2F8DB)	; 杞
+    ))
+(define-char
+  '((ideographic-radical . 75)	; ⽊
+    (ideographic-strokes . 3)
+    (total-strokes	 . 7)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
       (ucs		  . #x2FF0)	; â¿°
@@ -1217,12 +1224,6 @@
     (ideograph-cbeta	. 03014)	; ø¸ ¯†
     ))
 (define-char
-  '((ideographic-radical . 75)	; ⽊
-    (ideographic-strokes . 3)
-    (total-strokes	 . 7)
-    (chinese-cns11643-4 . #x2447)	; ø»—¥¨
-    ))
-(define-char
   '((=>ucs		. #x676A)	; 杪
     (ideographic-radical . 75)	; ⽊
     (ideographic-strokes . 4)
@@ -1696,7 +1697,8 @@
     (ucs		. #x6781)	; 极
     ))
 (define-char
-  '((ideographic-radical . 75)	; ⽊
+  '((=>ucs		. #x3B49)	; 㭉
+    (ideographic-radical . 75)	; ⽊
     (ideographic-strokes . 4)
     (total-strokes	 . 8)
     (ideographic-structure
@@ -1725,9 +1727,11 @@
      ((ucs		  . #x6728)	; 木
       ))
     (ideograph-cbeta	. 03954)	; ø¸ ½²
+    (ucs		. #x3B49)	; 㭉
     ))
 (define-char
-  '((morohashi-daikanwa	14520 0 2)
+  '((=>ucs*		. #x3B49)	; 㭉
+    (morohashi-daikanwa	14520 0 2)
     (ideographic-radical . 75)	; ⽊
     (ideographic-strokes . 4)
     (total-strokes	 . 8)
@@ -1740,6 +1744,7 @@
      ((ucs		  . #x6728)	; 木
       ))
     (chinese-cns11643-4 . #x2668)	; ø»—©…
+    (ucs		. #x2F8DE)	; 㭉
     ))
 (define-char
   '((ideographic-radical . 75)	; ⽊
@@ -5820,14 +5825,15 @@
     (ideograph-cbeta	. 04283)	; ø¸¡‚»
     ))
 (define-char
-  '((=>ucs		. #x6885)	; 梅
+  '((=>ucs*		. #x6885)	; 梅
     (morohashi-daikanwa	14795 1)
     (ideographic-radical . 75)	; ⽊
     (ideographic-strokes . 6)
     (total-strokes	 . 10)
     (=jis-x0208		. #x475F)	; ø½Š®®
     (chinese-cns11643-4 . #x2D5C)	; ø»—³‹
-    (ucs-jis		. #x6885)	; ø½Š®®
+    (ucs-jis		. #x6885)	; 梅
+    (ucs		. #x2F8E2)	; 梅
     ))
 (define-char
   '((ideographic-radical . 75)	; ⽊
@@ -21479,20 +21485,36 @@
     (ucs		. #x6ADA)	; 櫚
     ))
 (define-char
-  '((=>ucs		. #x6ADB)	; 櫛
+  '((=>ucs		. #x2F8ED)	; 櫛
     (ideographic-radical . 75)	; ⽊
     (ideographic-strokes . 15)
     (total-strokes	 . 19)
     (ideograph-daikanwa . 15817)	; ø¸ƒ·‰
     ))
 (define-char
+  '((=>ucs		. #x2F8ED)	; 櫛
+    (morohashi-daikanwa	15817 0 0)
+    (ideographic-radical . 75)	; ⽊
+    (ideographic-strokes . 15)
+    (total-strokes	 . 19)
+    (chinese-cns11643-4 . #x5F76)	; ø»˜½
+    ))
+(define-char
+  '((morohashi-daikanwa	15817 0 1)
+    (ideographic-radical . 75)	; ⽊
+    (ideographic-strokes . 14)
+    (total-strokes	 . 18)
+    (ucs		. #x2F8ED)	; 櫛
+    ))
+(define-char
   '((=>ucs		. #x6ADB)	; 櫛
     (morohashi-daikanwa	15817 0 3)
     (ideographic-radical . 75)	; ⽊
     (ideographic-strokes . 15)
     (total-strokes	 . 19)
-    (korean-ksc5601	. #x716E)	; ø»Š¹
-    (chinese-big5	. #xC0CD)	; ý¢€Œƒ
+    (japanese-jisx0208-1978	. #x367B)	; ø»‚œ
+    (korean-ksc5601		. #x716E)	; ø»Š¹
+    (chinese-big5		. #xC0CD)	; ý¢€Œƒ
     ))
 (define-char
   '((=>ucs		. #x6ADB)	; 櫛
@@ -22005,12 +22027,6 @@
     (ucs		. #x237D1)	; 𣟑
     ))
 (define-char
-  '((ideographic-radical . 75)	; ⽊
-    (ideographic-strokes . 15)
-    (total-strokes	 . 19)
-    (chinese-cns11643-4 . #x5F76)	; ø»˜½
-    ))
-(define-char
   '((=>ucs		. #x6AE7)	; 櫧
     (ideographic-radical . 75)	; ⽊
     (ideographic-strokes . 16)
diff --git a/lisp/utf-2000/Ideograph-R079-Weapon.el b/lisp/utf-2000/Ideograph-R079-Weapon.el
index 4c9a37e..f37a5cb 100644
--- a/lisp/utf-2000/Ideograph-R079-Weapon.el
+++ b/lisp/utf-2000/Ideograph-R079-Weapon.el
@@ -230,14 +230,14 @@
     ))
 (define-char
   '((=>ucs		. #x6BBA)	; 殺
+    (=>ucs-cns		. #x2F8F5)	; 殺
     (ideographic-radical . 79)	; ⽎
     (ideographic-strokes . 6)
     (total-strokes	 . 10)
     (<-vulgar-ideograph
-     (:sources	(morohashi-daikanwa)
-      :char	((ideograph-daikanwa . 16638)	; ø¸„ƒ¾
+     (:char	((ideograph-daikanwa . 16638)	; ø¸„ƒ¾
 		 )
-      ))
+      :sources	(morohashi-daikanwa)))
     (shinjigen-1	. 3996)
     (shinjigen-2	. 3996)
     (=jis-x0208		. #x3B26)	; ø½Šœ
@@ -246,15 +246,19 @@
     (ucs-jis		. #x6BBA)	; ø½Šœ
     ))
 (define-char
-  '((=>ucs		. #x6BBA)	; 殺
+  '((=>ucs*		. #x6BBA)	; 殺
+    (=>ucs-gb		. #x6BBA)	; 殺
+    (=>ucs-jis		. #x6BBA)	; ø½Šœ
     (morohashi-daikanwa	16629 0 1)
     (ideographic-radical . 79)	; ⽎
     (ideographic-strokes . 6)
     (total-strokes	 . 10)
     (chinese-cns11643-4 . #x2D65)	; ø»—³”
+    (ucs		. #x2F8F5)	; 殺
     ))
 (define-char
-  '((morohashi-daikanwa	16629 0 3)
+  '((=>ucs-cns		. #x2F8F5)	; 殺
+    (morohashi-daikanwa	16629 0 3)
     (ideographic-radical . 79)	; ⽎
     (ideographic-strokes . 6)
     (total-strokes	 . 10)
@@ -398,7 +402,7 @@
     (ucs-jis			. #xF970)	; ø»‰µž
     ))
 (define-char
-  '((=>ucs		. #x6BBA)	; 殺
+  '((=>ucs*		. #x6BBA)	; 殺
     (morohashi-daikanwa	16638 0 0)
     (ideographic-radical . 79)	; ⽎
     (ideographic-strokes . 7)
@@ -413,6 +417,7 @@
     (ideographic-strokes . 7)
     (total-strokes	 . 11)
     (chinese-cns11643-1 . #x5B44)	; ø»’˜‹
+    (ucs-cns		. #x6BBA)	; ø»’˜‹
     ))
 (define-char
   '((ideographic-radical . 79)	; ⽎
-- 
1.7.10.4