(C3-2546): Unify BC-8D64.

[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 ee4cc55..bfd332f 100644 (file)
--- a/lisp/utf-2000/Ideograph-R135-Tongue.el
+++ b/lisp/utf-2000/Ideograph-R135-Tongue.el
@@ -23,7 +23,8 @@
     (total-strokes      . 6)
     (<-original-ideograph
      (:sources (shinjigen-1)
-      :char    ((mojikyo            . 030277)  ; ������
+      :char    ((japanese-jisx0208  . #x4065)  ; �����
+                (ucs                . #x820C)  ; 舌
                 )
       ))
     (ideograph-cdp     . 31451)
@@ -37,12 +38,10 @@
     (total-strokes      . 8)
     (ideograph-cdp     . 31452)
     (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          . #x8AFC)     ; 
+     ((chinese-big5-cdp          . #x8AFC)     ; ������
       )
      ((ucs               . #x53E4)     ; 古
       ))
@@ -403,14 +402,29 @@
     (chinese-cns11643-5 . #x4929)      ; �����
     ))
 (define-char
-  '((ideographic-radical . 135)        ; ⾆
+  '((=>ucs             . #x8F9E)       ; 辞
+    (ideographic-radical . 135)        ; ⾆
     (ideographic-strokes . 7)
     (total-strokes      . 13)
-    (japanese-jisx0208-1990    . #x3C2D)       ; �����
-    (ideograph-daikanwa                . 30307)        ; �����
+    (->identical
+     (:sources (morohashi-daikanwa)
+      :char    ((ideograph-daikanwa . 38638)   ; �����
+                )
+      ))
+    (<-vulgar-ideograph
+     (:sources (morohashi-daikanwa)
+      :char    ((ideograph-daikanwa . 38671)   ; �����
+                )
+      )
+     (:sources (morohashi-daikanwa)
+      :char    ((ideograph-daikanwa . 38649)   ; �����
+                )
+      ))
+    (ideograph-daikanwa . 30307)       ; �����
     ))
 (define-char
-  '((morohashi-daikanwa        30307 0 1)
+  '((=>ucs             . #x8F9E)       ; 辞
+    (morohashi-daikanwa        30307 0 1)
     (ideographic-radical . 135)        ; ⾆
     (ideographic-strokes . 7)
     (total-strokes      . 13)
@@ -658,6 +672,8 @@
     (ideographic-radical . 135)        ; ⾆
     (ideographic-strokes . 9)
     (total-strokes      . 15)
+    (japanese-jisx0208-1978    . #x4A5E)       ; �����
+    (japanese-jisx0208         . #x4A5E)       ; �����
     (japanese-jisx0208-1990    . #x4A5E)       ; �����
     (mojikyo                   . 050384)       ; ������
     (ucs                       . #x8217)       ; 舗