update.

[chise/xemacs-chise.git] / lisp / mule / thai-xtis.el

diff --git a/lisp/mule/thai-xtis.el b/lisp/mule/thai-xtis.el
index 60f7ef5..cd398bc 100644 (file)
--- a/lisp/mule/thai-xtis.el
+++ b/lisp/mule/thai-xtis.el
@@ -40,7 +40,7 @@
                          ("\e$(?p0\e(B-\e$(?y0\e(B"        "w")
                          ("\e$(?O0f0_0o0z0{0\e(B"        "_")
                          ))
-       elm chars len syntax category to ch i)
+       elm chars len syntax to ch i)
     (while deflist
       (setq elm (car deflist))
       (setq chars (car elm)
@@ -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)
@@ -352,10 +354,10 @@
 
 (set-language-info-alist
  "Thai-XTIS"
- '((setup-function . setup-thai-xtis-environment)
-   (exit-function . exit-thai-xtis-environment)
-   (charset thai-xtis)
+ '((charset thai-xtis)
    (coding-system tis-620 iso-2022-7bit)
+   (tutorial . "TUTORIAL.th")
+   (tutorial-coding-system . tis-620)
    (coding-priority tis-620 iso-2022-7bit)
    (sample-text . "\e$(?!:\e(B")
    (documentation . t)))