From: tomo <tomo>
Date: Thu, 24 Jun 2004 11:31:53 +0000 (+0000)
Subject: (chise-tex-encode-region-for-gb): Renamed from
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=66096e1b707e644e562088754b1f22d224e5a2bd;p=chise%2Fomega.git

(chise-tex-encode-region-for-gb): Renamed from
`chise-tex-encode-region'.
(iso-2022-jp-tex-gb): Renamed from `iso-2022-jp-tex'.
---

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 <tomo@kanji.zinbun.kyoto-u.ac.jp>
+;; 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