Add mappings for Big5 code points.

[chise/xemacs-chise.git-] / lisp / utf-2000 / Ideograph-R135-Tongue.el

diff --git a/lisp/utf-2000/Ideograph-R135-Tongue.el b/lisp/utf-2000/Ideograph-R135-Tongue.el
index cc61d9f..13b54ea 100644 (file)
--- a/lisp/utf-2000/Ideograph-R135-Tongue.el
+++ b/lisp/utf-2000/Ideograph-R135-Tongue.el
@@ -433,29 +433,27 @@
     (ideographic-radical . 135)        ; ⾆
     (ideographic-strokes . 7)
     (total-strokes      . 13)
-    (->identical
-     (:sources (morohashi-daikanwa)
-      :char    ((ideograph-daikanwa . 38638)   ; �����
+    (->same-ideograph
+     (:char    ((ideograph-daikanwa . 38638)   ; �����
                 )
-      ))
+      :sources (morohashi-daikanwa)))
     (<-vulgar-ideograph
-     (:sources (morohashi-daikanwa)
-      :char    ((ideograph-daikanwa . 38671)   ; �����
+     (:char    ((ideograph-daikanwa . 38671)   ; �����
                 )
-      )
-     (:sources (morohashi-daikanwa)
-      :char    ((ideograph-daikanwa . 38649)   ; �����
+      :sources (morohashi-daikanwa))
+     (:char    ((ideograph-daikanwa . 38649)   ; �����
                 )
-      ))
+      :sources (morohashi-daikanwa)))
     (ideograph-daikanwa . 30307)       ; �����
     ))
 (define-char
-  '((=>ucs             . #x8F9E)       ; 辞
+  '((=>ucs*            . #x8F9E)       ; 辞
     (morohashi-daikanwa        30307 0 1)
     (ideographic-radical . 135)        ; ⾆
     (ideographic-strokes . 7)
     (total-strokes      . 13)
     (chinese-cns11643-3 . #x4425)      ; �����
+    (ucs               . #x2F98D)      ; 辞
     ))
 (define-char
   '((=>ucs             . #x269DF)      ; 𦧟