Add some mappings for CJK Ext-B code points.

[chise/xemacs-chise.git] / lisp / utf-2000 / Ideograph-R008-Lid.el

diff --git a/lisp/utf-2000/Ideograph-R008-Lid.el b/lisp/utf-2000/Ideograph-R008-Lid.el
index ec0e0db..03392c0 100644 (file)
--- a/lisp/utf-2000/Ideograph-R008-Lid.el
+++ b/lisp/utf-2000/Ideograph-R008-Lid.el
@@ -2579,14 +2579,32 @@
   '((ideographic-radical . 8)  ; ⼇
     (ideographic-strokes . 13)
     (total-strokes      . 15)
+    (->identical
+     ((chinese-cns11643-7 . #x2679)    ; �����
+      ))
+    (->same-ideograph
+     ((ideograph-daikanwa . 49510)     ; �����
+      ))
     (hanyu-dazidian    1 292 5)
     (ideographic-structure
-     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO MIDDLE AND BELOW")
-      (ucs               . #x2FF3)     ; ⿳
-      )
-     ((chinese-big5-cdp          . #x8BAA)     ; ������
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (ucs               . #x2FF1)     ; ⿱
       )
-     ((ucs               . #x53E3)     ; 口
+     ((ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+       (ucs                . #x2FF1)   ; ⿱
+       )
+       ((ideographic-structure
+        ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+         (ucs                . #x2FF1) ; ⿱
+         )
+        ((ucs                . #x4EA0) ; 亠
+         )
+        ((ucs                . #x53E3) ; 口
+         ))
+       )
+       ((ucs               . #x53E3)   ; 口
+       ))
       )
      ((ideographic-structure
        ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")