From: tomo <tomo>
Date: Tue, 11 Apr 2000 07:28:24 +0000 (+0000)
Subject: (M292): Remove mojikyo-pj-1.
X-Git-Tag: r21-2-27-utf-2000-0_15-0~31
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c4b8c1aade0b07b25de71435aa28fcdba2c255dd;p=chise%2Fxemacs-chise.git

(M292): Remove mojikyo-pj-1.
(M634): Likewise.
(M916): Likewise.
(M28800): Remove mojikyo-pj-6.
(M48869): Remove mojikyo-pj-9.
(M50100): Likewise.
---

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)