From: tomo <tomo>
Date: Mon, 31 Dec 2001 19:15:25 +0000 (+0000)
Subject: Delete mojikyo.el.
X-Git-Tag: r21-2-43-utf-2000-0_18-n4~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b65594178c2d9de4e2daf9a7ca632069a3b490f2;p=chise%2Fxemacs-chise.git.1

Delete mojikyo.el.
---

diff --git a/lisp/utf-2000/mojikyo.el b/lisp/utf-2000/mojikyo.el
deleted file mode 100644
index 22e9e41..0000000
--- a/lisp/utf-2000/mojikyo.el
+++ /dev/null
@@ -1,48 +0,0 @@
-(defun allocate-mojikyo-chars (name plane)
-  (let ((ucs (+ #xE00001
-		(* (1- plane)
-		   (eval-when-compile (* 94 60)))))
-	(r 0)
-	char c)
-    (while (< r 30)
-      (setq c 0)
-      (while (< c 94)
-	(setq char (int-char ucs))
-	(put-char-attribute
-	 char name (list (+ r (eval-when-compile (+ 16 32)))
-			 (+ c 33)))
-	(setq c (1+ c)
-	      ucs (1+ ucs)))
-      (setq r (1+ r)))
-    (setq r 30)
-    (while (< r 60)
-      (setq c 0)
-      (while (< c 94)
-	(setq char (int-char ucs))
-	(put-char-attribute
-	 char name (list (+ r (eval-when-compile (+ 18 32)))
-			 (+ c 33)))
-	(setq c (1+ c)
-	      ucs (1+ ucs)))
-      (setq r (1+ r)))
-    ))
-
-(let ((p 1))
-  (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)