Add some missing mappings to CBETA numbers.

[chise/xemacs-chise.git-] / lisp / utf-2000 / Ideograph-R014-Cover.el

diff --git a/lisp/utf-2000/Ideograph-R014-Cover.el b/lisp/utf-2000/Ideograph-R014-Cover.el
index e8f9cfc..f02e762 100644 (file)
--- a/lisp/utf-2000/Ideograph-R014-Cover.el
+++ b/lisp/utf-2000/Ideograph-R014-Cover.el
@@ -41,16 +41,13 @@
     (ideographic-strokes . 2)
     (total-strokes      . 4)
     (<-vulgar-ideograph
-     (:sources (shinjigen-1)
-      :char    ((shinjigen-1        . 525)
+     (:char    ((shinjigen-1        . 525)
                 (ideograph-daikanwa . 01566)   ; �����
                 )
-      ))
+      :sources (shinjigen-1)))
     (ideographic-structure
-     (:cdp-combinator  2
-      :char    ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
-                (ucs                . #x2FF1)  ; ⿱
-                )
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (ucs               . #x2FF1)     ; ⿱
       )
      ((chinese-big5-cdp          . #x8B40)     ; ������
       )
@@ -60,6 +57,7 @@
     (shinjigen-2       . 527)
     (chinese-cns11643-3 . #x214F)      ; �����
     (mojikyo           . 050943)       ; ������
+    (ucs               . #x2F817)      ; 冗
     ))
 (define-char
   '((ideographic-radical . 14) ; ⼍