From 382f7e929b9660176d6e1086efc5eddf0c81771a Mon Sep 17 00:00:00 2001 From: tomo Date: Fri, 13 Feb 2004 18:10:33 +0000 Subject: [PATCH] Add mojikyo-conf.el and mojikyo-ccs.el. --- lisp/utf-2000/ChangeLog | 15 ++++++++ lisp/utf-2000/mojikyo-ccs.el | 77 +++++++++++++++++++++++++++++++++++++++++ lisp/utf-2000/mojikyo-conf.el | 55 +++++++++++++++++++++++++++++ 3 files changed, 147 insertions(+) create mode 100644 lisp/utf-2000/mojikyo-ccs.el create mode 100644 lisp/utf-2000/mojikyo-conf.el diff --git a/lisp/utf-2000/ChangeLog b/lisp/utf-2000/ChangeLog index df4cdd8..8058de3 100644 --- a/lisp/utf-2000/ChangeLog +++ b/lisp/utf-2000/ChangeLog @@ -1,3 +1,18 @@ +2004-02-13 MORIOKA Tomohiko + + * mojikyo-conf.el (default-coded-charset-priority-list): Add + `mojikyo' again. + +2003-01-02 MORIOKA Tomohiko + + * mojikyo-ccs.el: Use + "\\(MojikyoPJ\\|jisx0208\\.Mojikyo\\)-{1..21}" as the x-registry + of mojikyo-pj-{1..21}. + +2002-03-17 MORIOKA Tomohiko + + * mojikyo-ccs.el: Delete unused local variable `name'. + 2004-02-12 MORIOKA Tomohiko * 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 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 +;; 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 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 +;; 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 -- 1.7.10.4