From 66096e1b707e644e562088754b1f22d224e5a2bd Mon Sep 17 00:00:00 2001 From: tomo Date: Thu, 24 Jun 2004 11:31:53 +0000 Subject: [PATCH] (chise-tex-encode-region-for-gb): Renamed from `chise-tex-encode-region'. (iso-2022-jp-tex-gb): Renamed from `iso-2022-jp-tex'. --- chise2otf/elisp/chise-tex.el | 44 +++++++++++++++++++++++++++++++++++++----- 1 file changed, 39 insertions(+), 5 deletions(-) diff --git a/chise2otf/elisp/chise-tex.el b/chise2otf/elisp/chise-tex.el index 7178f6c..307e353 100644 --- a/chise2otf/elisp/chise-tex.el +++ b/chise2otf/elisp/chise-tex.el @@ -1,3 +1,29 @@ +;;; chise-tex.el --- Coding-system based chise2otf like tool + +;; Copyright (C) 2004 MORIOKA Tomohiko + +;; Author: MORIOKA Tomohiko +;; Keywords: OTF package, pTeX, CHISE, Multiscript, Multilingual + +;; This file is a part of Omega/CHISE. + +;; This program 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. + +;; This program 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 this program; see the file COPYING. If not, write to +;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330, +;; Boston, MA 02111-1307, USA. + +;;; Code: + (defvar chise-tex-coded-charset-expression-alist '((=ucs@gb "UCSgb" 4 X) (=ucs@jis "UCSjis" 4 X) @@ -15,7 +41,7 @@ (=ucs@ks "UCSks" 4 X) (=ucs@cns "UCScns" 4 X))) -(defun chise-tex-encode-region (start end) +(defun chise-tex-encode-region-for-gb (start end) (interactive "r") (save-excursion (save-restriction @@ -83,14 +109,22 @@ (goto-char me))))))) (make-coding-system - 'iso-2022-jp-tex 'iso2022 - "ISO-2022-JP with TeX representation." + 'iso-2022-jp-tex-gb 'iso2022 + "ISO-2022-JP with TeX representation for GB fonts." '(charset-g0 ascii short t seven t input-charset-conversion ((latin-jisx0201 ascii) (japanese-jisx0208-1978 japanese-jisx0208)) - pre-write-conversion chise-tex-encode-region + pre-write-conversion chise-tex-encode-region-for-gb post-read-conversion chise-tex-decode-region - mnemonic "pTeX/7bit" + mnemonic "pTeX(GB)/7bit" )) + + +;;; @ End. +;;; + +(provide 'chise-tex) + +;;; chise-tex.el ends here -- 1.7.10.4