From: tomo <tomo>
Date: Mon, 28 Jun 1999 13:45:29 +0000 (+0000)
Subject: Specify `iso-8-1' as coding-category of `tis-620'.
X-Git-Tag: r21-2-17-tomo-3~57
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=d513eac149c94d482c12445046c6cf7cdd03fdc2;p=chise%2Fxemacs-chise.git

Specify `iso-8-1' as coding-category of `tis-620'.
---

diff --git a/lisp/mule/thai-xtis.el b/lisp/mule/thai-xtis.el
index 60f7ef5..bea1e85 100644
--- a/lisp/mule/thai-xtis.el
+++ b/lisp/mule/thai-xtis.el
@@ -337,12 +337,14 @@
 	(write-read-repeat r0))))))
 
 (if (featurep 'xemacs)
-    (make-coding-system
-     'tis-620 'ccl
-     "external=tis620, internal=thai-xtis"
-     `(mnemonic "TIS620"
-       decode ,ccl-decode-thai-xtis
-       encode ,ccl-encode-thai-xtis))
+    (progn
+      (make-coding-system
+       'tis-620 'ccl
+       "external=tis620, internal=thai-xtis"
+       `(mnemonic "TIS620"
+		  decode ,ccl-decode-thai-xtis
+		  encode ,ccl-encode-thai-xtis))
+      (coding-system-put 'tis-620 'category 'iso-8-1))
   (make-coding-system
    'tis-620 4 ?T "external=tis620, internal=thai-xtis"
    '(ccl-decode-thai-xtis . ccl-encode-thai-xtis)