1 ;;; thai.el --- Support for Thai
3 ;; Copyright (C) 1995 Free Software Foundation, Inc.
4 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
6 ;; Keywords: multilingual, Thai
8 ;; This file is part of GNU Emacs.
10 ;; GNU Emacs is free software; you can redistribute it and/or modify
11 ;; it under the terms of the GNU General Public License as published by
12 ;; the Free Software Foundation; either version 2, or (at your option)
15 ;; GNU Emacs is distributed in the hope that it will be useful,
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 ;; GNU General Public License for more details.
20 ;; You should have received a copy of the GNU General Public License
21 ;; along with GNU Emacs; see the file COPYING. If not, write to
22 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
26 ;; For Thai, the character set TIS620 is supported.
31 'coding-system-tis620
2 ?T
32 "Coding-system used for ASCII(MSB=0) & TIS620(MSB=1)."
33 '((ascii t
) (thai-tis620 t
) nil nil
35 (put 'coding-system-tis620
'post-read-conversion
36 'thai-post-read-conversion
)
37 (put 'coding-system-tis620
'pre-write-conversion
38 'thai-pre-write-conversion
)
40 (register-input-method
41 "Thai" '("quail-thai" quail-use-package
"quail/thai"))
43 (defun setup-thai-environment ()
44 (setq coding-category-iso-8-1
'coding-system-tis620
)
47 '(coding-category-iso-7
48 coding-category-iso-8-1
))
50 (setq-default buffer-file-coding-system
'coding-system-tis620
)
52 (setq default-input-method
'("Thai" .
"quail-thai"))
55 (set-language-info-alist
56 "Thai" '((tutorial .
"TUTORIAL.th")
57 (setup-function . setup-thai-environment
)
58 (charset .
(thai-tis620))
59 (coding-systemm .
(coding-system-tis620))
61 (sample-text .
"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")))