(M-13027): Unify U-00022E85, C5-7347 and H5-EFE7.

[chise/xemacs-chise.git.1] / 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 3fdaa8c..0f66153 100644 (file)
--- a/lisp/utf-2000/Ideograph-R135-Tongue.el
+++ b/lisp/utf-2000/Ideograph-R135-Tongue.el
@@ -445,17 +445,19 @@
     (ideographic-radical . 135)        ; ⾆
     (ideographic-strokes . 7)
     (total-strokes      . 13)
-    (->same-ideograph
-     (:char    ((=daikanwa          . 38638)   ; �����
-                )
-      :sources (morohashi-daikanwa)))
+    (->same
+     ((=jis-x0208        . #x3C2D)     ; �����
+      (=daikanwa         . 38638)      ; �����
+      ))
+    (->same*sources
+     daikanwa)
     (<-vulgar-ideograph
      (:char    ((=daikanwa          . 38671)   ; �����
                 )
-      :sources (morohashi-daikanwa))
+      :sources (daikanwa))
      (:char    ((=daikanwa          . 38649)   ; �����
                 )
-      :sources (morohashi-daikanwa)))
+      :sources (daikanwa)))
     (=daikanwa         . 30307)        ; �����
     ))
 (define-char