From: tomo <tomo>
Date: Sun, 6 Jan 2002 16:19:00 +0000 (+0000)
Subject: New file.
X-Git-Tag: r21-2-44-utf-2000-0_18-m2~2
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=9fccbbdf29f66570e9e10131de95d0b3e664f1f3;p=chise%2Fxemacs-chise.git-

New file.
---

diff --git a/lisp/utf-2000/mojikyo-ccs.el b/lisp/utf-2000/mojikyo-ccs.el
new file mode 100644
index 0000000..ea4e02b
--- /dev/null
+++ b/lisp/utf-2000/mojikyo-ccs.el
@@ -0,0 +1,49 @@
+(make-charset 'mojikyo
+	      "Mojikyo"
+	      `(long-name "Mojikyo"
+			  chars 256
+			  dimension 3
+			  columns 2
+			  graphic 2
+			  direction l2r
+			  min-code ,(lsh #x6000 16)
+			  max-code ,(1- (+ (lsh #x6000 16)
+					   (* 94 60 22)))
+			  code-offset ,(lsh #x6000 16)))
+
+(make-charset 'mojikyo-2022-1
+	      "Mojikyo-2022-1"
+	      `(long-name "Mojikyo for ISO 2022 based CES, Part 1"
+			  chars 94
+			  dimension 3
+			  columns 2
+			  graphic 0
+			  direction l2r
+			  mother mojikyo
+			  min-code 0
+			  max-code ,(1- (* 94 94 60))
+			  code-offset 1
+			  conversion 94x94x60))
+
+(let ((i 1)
+      name)
+  (while (<= i 21)
+    (make-charset (setq name (intern (format "mojikyo-pj-%d" i)))
+		  (format "Mojikyo PJ %d" i)
+		  `(long-name ,(format "Mojikyo Psedo JIS Part %d" i)
+			      chars 94
+			      dimension 2
+			      columns 2
+			      graphic 0
+			      registry ,(format "MojikyoPJ-%d" i)
+			      direction l2r
+			      mother mojikyo
+			      min-code ,(1+ (* 94 60 (1- i)))
+			      max-code ,(* 94 60 i)
+			      code-offset ,(1+ (* 94 60 (1- i)))
+			      conversion 94x60))
+    (unless (memq name default-coded-charset-priority-list)
+      (setq default-coded-charset-priority-list
+	    (append default-coded-charset-priority-list
+		    (list name))))
+    (setq i (1+ i))))
diff --git a/lisp/utf-2000/mojikyo-conf.el b/lisp/utf-2000/mojikyo-conf.el
new file mode 100644
index 0000000..8cbb0cb
--- /dev/null
+++ b/lisp/utf-2000/mojikyo-conf.el
@@ -0,0 +1,4 @@
+(unless (memq 'mojikyo-2022-1 default-coded-charset-priority-list)
+  (setq default-coded-charset-priority-list
+	(append default-coded-charset-priority-list
+		'(mojikyo-2022-1))))