("Thai"): Set setup-function and exit-function

for Thai language environment.

diff --git a/lisp/language/thai.el b/lisp/language/thai.el
index 6b5df5c08b6ad56f70f02f95bde22f593b742a85..c14d0005a721d75a54e2f5a47fb6680eae3a7e09 100644 (file)
--- a/lisp/language/thai.el
+++ b/lisp/language/thai.el
@@ -1,10 +1,9 @@
 ;;; thai.el --- support for Thai -*- coding: iso-2022-7bit; no-byte-compile: t -*-
 
-;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
-;; Licensed to the Free Software Foundation.
-;; Copyright (C) 2005
+;; Copyright (C) 1995, 1997, 1998, 1999, 2000, 2002, 2005
 ;;   National Institute of Advanced Industrial Science and Technology (AIST)
 ;;   Registration Number H14PRO021
+;; Copyright (C) 1997, 1998, 2000, 2001, 2002 Free Software Foundation, Inc.
 
 ;; Keywords: multilingual, Thai
 
@@ -53,6 +52,8 @@
          (input-method . "thai-kesmanee")
          (unibyte-display . thai-tis620)
          (features thai-util)
+         (setup-function . setup-thai-language-environment-internal)
+         (exit-function . exit-thai-language-environment-internal)
          (sample-text
           . (thai-compose-string
              (copy-sequence "Thai (\e,T@RIRd7B\e(B)              \e,TJ\e0GQ\e1J\e04U\e1$\e0CQ\e1:\e(B, \e,TJ\e0GQ\e1J\e04U\e1\e0$h\e1P\e(B")))