--- a/lisp/language/thai.el	Mon Aug 13 10:02:48 2007 +0200
+++ b/lisp/language/thai.el	Mon Aug 13 10:03:52 2007 +0200
@@ -1,70 +0,0 @@
-;;; thai.el --- Support for Thai
-
-;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
-;; Licensed to the Free Software Foundation.
-;; Copyright (C) 1997 MORIOKA Tomohiko
-
-;; Keywords: multilingual, Thai
-
-;; This file is part of XEmacs.
-
-;; XEmacs is free software; you can redistribute it and/or modify it
-;; under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
-;; any later version.
-
-;; XEmacs is distributed in the hope that it will be useful, but
-;; WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;; General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with XEmacs; see the file COPYING.  If not, write to the Free
-;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
-;; 02111-1307, USA.
-
-;;; Commentary:
-
-;; For Thai, the character set TIS620 is supported.
-
-;;; Code:
-
-(define-language-environment 'thai
-  "Thai"
-  (lambda ()
-    (set-coding-category-system 'iso-8-designate 'tis620)
-    (set-coding-priority-list '(iso-8-designate iso-8-1))
-    (set-default-buffer-file-coding-system 'tis620)
-    ;; (setq-default quail-current-package (assoc "thai" quail-package-alist))
-    ))
-
-;; (make-coding-system
-;;  'th-tis620 2 ?T
-;;  "Coding-system used for ASCII(MSB=0) & TIS620(MSB=1)."
-;;  '((ascii t) (thai-tis620 t) nil nil
-;;    nil ascii-eol))
-;; (put 'th-tis620 'post-read-conversion 'thai-post-read-conversion)
-;; (put 'th-tis620 'pre-write-conversion 'thai-pre-write-conversion)
-
-(make-coding-system
- 'tis620 'iso2022
- "Coding-system used for ASCII(MSB=0) & TIS620(MSB=1)."
- '(charset-g0 ascii
-   charset-g1 thai-tis620
-   no-ascii-cntl t
-   mnemonic "TIS620"
-   post-read-conversion thai-compose-region
-   pre-write-conversion decompose-region
-   ))
-
-;;(define-coding-system-alias 'th-tis620 'tis620)
-
-(set-language-info-alist
- "Thai" '((tutorial . "TUTORIAL.th")
-	  (setup-function . setup-thai-environment)
-	  (charset . (thai-tis620))
-	  (coding-system . (tis620))
-	  (sample-text . "Thai (,T@RIRd7B(B)		,TJ0GQ1J04U1$0CQ1:(B, ,TJ0GQ1J04U10$h1P(B")
-	  (documentation . t)))
-
-;;; thai.el ends here