From c4b8c1aade0b07b25de71435aa28fcdba2c255dd Mon Sep 17 00:00:00 2001 From: tomo Date: Tue, 11 Apr 2000 07:28:24 +0000 Subject: [PATCH] (M292): Remove mojikyo-pj-1. (M634): Likewise. (M916): Likewise. (M28800): Remove mojikyo-pj-6. (M48869): Remove mojikyo-pj-9. (M50100): Likewise. --- lisp/utf-2000/mojikyo.el | 15 +++++++++++++++ 1 file changed, 15 insertions(+) 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) -- 1.7.10.4