Add some mappings between CNS 11643-6 and CJK Ext-B code points.

[chise/xemacs-chise.git.1] / lisp / utf-2000 / Ideograph-R049-Oneself.el

diff --git a/lisp/utf-2000/Ideograph-R049-Oneself.el b/lisp/utf-2000/Ideograph-R049-Oneself.el
index 6c1999b..6b60a43 100644 (file)
--- a/lisp/utf-2000/Ideograph-R049-Oneself.el
+++ b/lisp/utf-2000/Ideograph-R049-Oneself.el
@@ -128,10 +128,12 @@
     (=daikanwa         . 08748)        ; &I-M-08748;
     ))
 (define-char
-  '((ideographic-      (:radical       49 ; ⼰
-                        :strokes       3)
-                       (:radical       4 ; ⼃
-                        :strokes       5))
+  '((ideographic-radical@ucs . 4)      ; ⼃
+    (ideographic-strokes@ucs . 5)
+    (ideographic-radical@cns . 49)     ; ⼰
+    (ideographic-strokes@cns . 3)
+    (ideographic-radical@cns*sources
+     daikanwa cns11643)
     (total-strokes      . 6)
     (hanyu-dazidian    1 69 21)
     (=ucs              . #x200AC)      ; 𠂬
@@ -257,20 +259,25 @@
     (=daikanwa         . 08759)        ; &I-M-08759;
     ))
 (define-char
-  '((morohashi-daikanwa        8759 1)
-    (ideographic-radical . 49) ; ⼰
+  '((ideographic-radical . 49) ; ⼰
     (ideographic-strokes . 6)
     (total-strokes      . 9)
     (=ucs              . #x5DFB)       ; 巻
-    (=jis-x0208                . #x342C)       ; &I-J90-342C; [20-12]
-    (=cns11643-3       . #x2C44)       ; &I-C3-2C44; [12-36]
-    (=gt               . 11038)        ; &I-GT-11038;
-    (=gt-k             . 05217)        ; &I-GT-K05217;
-    (=gt-pj-1          . #x342C)       ; &I-GT-11038; [20-12]
-    (<-simplified@JP/Jouyou
-     ((=jis-x0208        . #x524B)     ; &GT-03636; [50-43]
-      (=ks-x1001         . #x4F69)     ; &I-K0-4F69; [47-73]
-      (=daikanwa         . 02860)      ; &I-M-02860;
+    (->subsumptive
+     ((morohashi-daikanwa      8759 1)
+      (=jis-x0208        . #x342C)     ; &GT-11038; [20-12]
+      (=gt               . 11038)      ; &I-GT-11038;
+      (=gt-k             . 05217)      ; &I-GT-K05217;
+      (=gt-pj-1                  . #x342C)     ; &I-GT-11038; [20-12]
+      (=ucs@jis                  . #x5DFB)     ; &GT-11038;
+      (<-simplified@JP/Jouyou
+       ((=jis-x0208        . #x524B)   ; &GT-03636; [50-43]
+       (=ks-x1001          . #x4F69)   ; &I-K0-4F69; [47-73]
+       (=daikanwa          . 02860)    ; &I-M-02860;
+       ))
+      )
+     ((=cns11643-3       . #x2C44)     ; &C3-2C44; [12-36]
+      (=ucs@unicode      . #x5DFB)     ; &C3-2C44;
       ))
     ))
 (define-char