From: tomo <tomo>
Date: Tue, 1 Feb 2000 06:23:48 +0000 (+0000)
Subject: New file.
X-Git-Tag: r21-2-27-utf-2000-0_14-0~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9aa41d4511cdf767c6b969dcd29138d74d19720c;p=chise%2Fxemacs-chise.git.1

New file.
---

diff --git a/lisp/utf-2000/mojikyo.el b/lisp/utf-2000/mojikyo.el
new file mode 100644
index 0000000..62709bb
--- /dev/null
+++ b/lisp/utf-2000/mojikyo.el
@@ -0,0 +1,33 @@
+(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))))