(M-38638): Add `<-vulgar-ideograph' for M-38671 and M-38649; delete

[chise/xemacs-chise.git-] / lisp / utf-2000 / Ideograph-R160-Bitter.el

diff --git a/lisp/utf-2000/Ideograph-R160-Bitter.el b/lisp/utf-2000/Ideograph-R160-Bitter.el
index 2f69ffb..50be211 100644 (file)
--- a/lisp/utf-2000/Ideograph-R160-Bitter.el
+++ b/lisp/utf-2000/Ideograph-R160-Bitter.el
@@ -158,9 +158,16 @@
 (define-char
   '((ideographic-radical . 160)        ; ⾟
     (ideographic-strokes . 6)
-    (kangxi-radical     . 135) ; ⾆
-    (kangxi-strokes     . 7)
     (total-strokes      . 13)
+    (<-vulgar-ideograph
+     (:sources (seiji-tsuu morohashi-daikanwa)
+      :char    ((ideograph-daikanwa . 38671)   ; �����
+                )
+      )
+     (:sources (jiyun morohashi-daikanwa)
+      :char    ((ideograph-daikanwa . 38649)   ; �����
+                )
+      ))
     (shinjigen-2       . 8199)
     (japanese-jisx0208-1978    . #x3C2D)       ; �����
     (chinese-gb2312            . #x3447)       ; �����