(M-30307): Separate J90-3C2D; map to U+8F9E; add `->identical' for

M-38638; add `<-vulgar-ideograph' for M-38671 and M-38649.
(C3-4425): Map to U+8F9E.

diff --git a/lisp/utf-2000/Ideograph-R135-Tongue.el b/lisp/utf-2000/Ideograph-R135-Tongue.el
index fa7ef4c..bfd332f 100644 (file)
--- a/lisp/utf-2000/Ideograph-R135-Tongue.el
+++ b/lisp/utf-2000/Ideograph-R135-Tongue.el
@@ -402,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)