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 bea1e85..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)
@@ -354,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)))