X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2Fmojikyo.el;h=22e9e413663bc351e23e5e7bd3a9151c22d8e481;hb=c5a785b6d3a7b1651d9a18639ecd067aa5fb2884;hp=62709bb0b5365fbf79e8df20ecbcbb01fe5fdcab;hpb=9aa41d4511cdf767c6b969dcd29138d74d19720c;p=chise%2Fxemacs-chise.git

diff --git a/lisp/utf-2000/mojikyo.el b/lisp/utf-2000/mojikyo.el
index 62709bb..22e9e41 100644
--- a/lisp/utf-2000/mojikyo.el
+++ b/lisp/utf-2000/mojikyo.el
@@ -31,3 +31,18 @@
   (while (<= p 21)
     (allocate-mojikyo-chars (intern (format "mojikyo-pj-%d" p)) p)
     (setq p (1+ p))))
+
+(remove-char-attribute (decode-char 'ideograph-daikanwa 292)
+		       'mojikyo-pj-1)
+(remove-char-attribute (decode-char 'ideograph-daikanwa 634)
+		       ;; (int-char (+ #xe00000 634))
+		       'mojikyo-pj-1)
+(remove-char-attribute (int-char (+ #xe00000 916))
+		       ;;(decode-char 'ideograph-daikanwa 916)
+		       'mojikyo-pj-1)
+(remove-char-attribute (decode-char 'ideograph-daikanwa 28800)
+		       'mojikyo-pj-6)
+(remove-char-attribute (int-char (+ #xe00000 48869))
+		       'mojikyo-pj-9)
+(remove-char-attribute (int-char (+ #xe00000 50100))
+		       'mojikyo-pj-9)