(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)))