Add mojikyo-conf.el and mojikyo-ccs.el.

diff --git a/lisp/utf-2000/ChangeLog b/lisp/utf-2000/ChangeLog
index df4cdd8..8058de3 100644 (file)
--- a/lisp/utf-2000/ChangeLog
+++ b/lisp/utf-2000/ChangeLog
@@ -1,3 +1,18 @@
+2004-02-13  MORIOKA Tomohiko  <tomo@kanji.zinbun.kyoto-u.ac.jp>
+
+       * mojikyo-conf.el (default-coded-charset-priority-list): Add
+       `mojikyo' again.
+
+2003-01-02  MORIOKA Tomohiko  <tomo@mousai.as.wakwak.ne.jp>
+
+       * mojikyo-ccs.el: Use
+       "\\(MojikyoPJ\\|jisx0208\\.Mojikyo\\)-{1..21}" as the x-registry
+       of mojikyo-pj-{1..21}.
+
+2002-03-17  MORIOKA Tomohiko  <tomo@mousai.as.wakwak.ne.jp>
+
+       * mojikyo-ccs.el: Delete unused local variable `name'.
+
 2004-02-12  MORIOKA Tomohiko  <tomo@kanji.zinbun.kyoto-u.ac.jp>
 
        * Ideograph-R009-Man.el (M-00882): Simplify

diff --git a/lisp/utf-2000/mojikyo-ccs.el b/lisp/utf-2000/mojikyo-ccs.el
new file mode 100644 (file)
index 0000000..aac3f13
--- /dev/null
+++ b/lisp/utf-2000/mojikyo-ccs.el
@@ -0,0 +1,77 @@
+;;; mojikyo-ccs.el --- Definition of Mojikyo related coded-charsets
+
+;; Copyright (C) 2001,2002,2003 MORIOKA Tomohiko.
+
+;; Author: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
+;; Keywords: UTF-2000, ISO/IEC 10646, Unicode, UCS-4, MULE.
+
+;; This file is part of XEmacs UTF-2000.
+
+;; XEmacs UTF-2000 is free software; you can redistribute it and/or
+;; modify it under the terms of the GNU General Public License as
+;; published by the Free Software Foundation; either version 2, or (at
+;; your option) any later version.
+
+;; XEmacs UTF-2000 is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+;; General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with XEmacs UTF-2000; see the file COPYING.  If not, write to
+;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+
+;;; Code:
+
+(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))
+  (while (<= i 21)
+    (make-charset
+     (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\\|jisx0208\\.Mojikyo\\)-%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))
+    (setq i (1+ i))))
+
+
+(provide 'mojikyo-ccs)
+
+;;; mojikyo-ccs.el ends here

diff --git a/lisp/utf-2000/mojikyo-conf.el b/lisp/utf-2000/mojikyo-conf.el
new file mode 100644 (file)
index 0000000..09a2d69
--- /dev/null
+++ b/lisp/utf-2000/mojikyo-conf.el
@@ -0,0 +1,55 @@
+;;; mojikyo-conf.el --- Setting for Mojikyo related coded-charsets
+
+;; Copyright (C) 2001,2002,2003,2004 MORIOKA Tomohiko.
+
+;; Author: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
+;; Keywords: UTF-2000, ISO/IEC 10646, Unicode, UCS-4, MULE.
+
+;; This file is part of XEmacs UTF-2000.
+
+;; XEmacs UTF-2000 is free software; you can redistribute it and/or
+;; modify it under the terms of the GNU General Public License as
+;; published by the Free Software Foundation; either version 2, or (at
+;; your option) any later version.
+
+;; XEmacs UTF-2000 is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+;; General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with XEmacs UTF-2000; see the file COPYING.  If not, write to
+;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+
+;;; Code:
+
+(unless (memq 'mojikyo default-coded-charset-priority-list)
+  (setq default-coded-charset-priority-list
+       (append default-coded-charset-priority-list
+               '(mojikyo))))
+
+(let ((i 1)
+      name)
+  (while (<= i 21)
+    (setq name (intern (format "mojikyo-pj-%d" i)))
+    (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))))
+
+(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))))
+
+(eval-after-load "char-db-util"
+  '(unless (memq 'mojikyo char-db-coded-charset-priority-list)
+     (setq char-db-coded-charset-priority-list
+          (append char-db-coded-charset-priority-list
+                  '(mojikyo)))))
+
+(provide 'mojikyo-conf)
+
+;;; mojikyo-conf.el ends here