(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 (file)
--- 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)