emacs/lisp/language/thai.el

;;; thai.el --- support for Thai -*- coding: utf-8 -*-

;; Copyright (C) 1997-1998, 2000-2019 Free Software Foundation, Inc.
;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
;;   2005, 2006, 2007, 2008, 2009, 2010, 2011
;;   National Institute of Advanced Industrial Science and Technology (AIST)
;;   Registration Number H13PRO009
;; Copyright (C) 2005
;;   National Institute of Advanced Industrial Science and Technology (AIST)
;;   Registration Number H14PRO021

;; Keywords: multilingual, Thai, i18n

;; This file is part of GNU Emacs.

;; GNU Emacs 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 3 of the License, or
;; (at your option) any later version.

;; GNU Emacs 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 GNU Emacs.  If not, see <https://www.gnu.org/licenses/>.

;;; Commentary:

;; For Thai, the character set TIS620 is supported.

;;; Code:

(define-coding-system 'thai-tis620
  "8-bit encoding for ASCII (MSB=0) and Thai TIS620 (MSB=1)."
  :coding-type 'charset
  :mnemonic ?T
  :charset-list '(tis620-2533))

(define-coding-system-alias 'th-tis620 'thai-tis620)
(define-coding-system-alias 'tis620 'thai-tis620)
(define-coding-system-alias 'tis-620 'thai-tis620)

(set-language-info-alist
 "Thai" '((tutorial . "TUTORIAL.th")
	  (charset thai-tis620)
	  (coding-system thai-tis620 iso-8859-11 cp874)
	  (coding-priority thai-tis620)
	  (nonascii-translation . tis620-2533)
	  (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 (ภาษาไทย)		สวัสดีครับ, สวัสดีค่ะ")))
	  (documentation . t)))

(define-coding-system 'cp874
  "DOS codepage 874 (Thai)"
  :coding-type 'charset
  :mnemonic ?D
  :charset-list '(cp874)
  :mime-charset 'cp874)
(define-coding-system-alias 'ibm874 'cp874)

(define-coding-system 'iso-8859-11
  "ISO/IEC 8859/11 (Latin/Thai)
This is the same as `thai-tis620' with the addition of no-break-space."
  :coding-type 'charset
  :mnemonic ?*
  :mime-charset 'iso-8859-11 ; not actually registered as of 2002-05-24
  :charset-list '(iso-8859-11))

;; For automatic composition.
(let ((chars "ัิีึืฺุู็่้๊๋์ํ๎")
      (elt '(["[ก-ฯ].[่้๊๋์]?ำ?" 1 thai-composition-function]
	     [nil 0 thai-composition-function])))
  (dotimes (i (length chars))
    (aset composition-function-table (aref chars i) elt)))
(aset composition-function-table ?ำ '(["[ก-ฯ]." 1 thai-composition-function]))

(provide 'thai)

;;; thai.el ends here
Use UTF-8 for most files with non-ASCII characters. * admin/notes/unicode (etc/tutorials/TUTORIAL.ko, leim/quail/hanja.el) (leim/quail/hanja3.el, leim/quail/symbol-ksc.el): Now utf-8, not iso-2022-7bit. Also, files that contain non-UTF-8 characters are now encoded in utf-8-emacs, not iso-2022-7bit. * etc/tutorials/TUTORIAL.ko, tutorials/TUTORIAL.th: Switch from iso-2022-7bit to utf-8. * leim/quail/cyrillic.el, leim/quail/czech.el, leim/quail/ethiopic.el: * leim/quail/greek.el, leim/quail/hanja.el, leim/quail/hanja3.el: * leim/quail/hebrew.el, leim/quail/lao.el, leim/quail/lrt.el: * leim/quail/slovak.el, leim/quail/symbol-ksc.el, leim/quail/thai.el: * leim/quail/tibetan.el, leim/quail/viqr.el, leim/quail/vntelex.el: * leim/quail/vnvni.el, leim/quail/welsh.el: * lisp/international/latin1-disp.el, lisp/international/mule-util.el: * lisp/language/cyril-util.el, lisp/language/european.el: * lisp/language/ind-util.el, lisp/language/lao-util.el, lisp/language/thai.el: * lisp/language/tibet-util.el, lisp/language/tibetan.el: * lisp/language/viet-util.el: Switch from iso-2022-7bit to utf-8 or (if needed) utf-8-emacs. Fixes: debbugs:13936 2013-04-02 01:18:40 +00:00			`;;; thai.el --- support for Thai -- coding: utf-8 --`
Initial revision 1997-02-20 07:02:49 +00:00
Update copyright year to 2019 Run 'TZ=UTC0 admin/update-copyright $(git ls-files)'. 2019-01-01 00:59:58 +00:00			`;; Copyright (C) 1997-1998, 2000-2019 Free Software Foundation, Inc.`
Update AIST copyright years. 2006-12-13 01:13:58 +00:00			`;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,`
Add 2011 to FSF/AIST copyright years. 2011-01-02 23:50:46 +00:00			`;; 2005, 2006, 2007, 2008, 2009, 2010, 2011`
* empty log message * 2003-09-08 12:53:41 +00:00			`;; National Institute of Advanced Industrial Science and Technology (AIST)`
			`;; Registration Number H13PRO009`
* empty log message * 2005-03-18 07:10:50 +00:00			`;; Copyright (C) 2005`
			`;; National Institute of Advanced Industrial Science and Technology (AIST)`
			`;; Registration Number H14PRO021`
Initial revision 1997-02-20 07:02:49 +00:00
(iso-8859-11): New coding system. 2002-05-29 22:45:23 +00:00			`;; Keywords: multilingual, Thai, i18n`
Initial revision 1997-02-20 07:02:49 +00:00
			`;; This file is part of GNU Emacs.`

Switch to recommended form of GPLv3 permissions notice. 2008-05-06 04:29:13 +00:00			`;; GNU Emacs is free software: you can redistribute it and/or modify`
Initial revision 1997-02-20 07:02:49 +00:00			`;; it under the terms of the GNU General Public License as published by`
Switch to recommended form of GPLv3 permissions notice. 2008-05-06 04:29:13 +00:00			`;; the Free Software Foundation, either version 3 of the License, or`
			`;; (at your option) any later version.`
Initial revision 1997-02-20 07:02:49 +00:00
			`;; GNU Emacs 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`
Prefer HTTPS to FTP and HTTP in documentation Most of this change is to boilerplate commentary such as license URLs. This change was prompted by ftp://ftp.gnu.org's going-away party, planned for November. Change these FTP URLs to https://ftp.gnu.org instead. Make similar changes for URLs to other organizations moving away from FTP. Also, change HTTP to HTTPS for URLs to gnu.org and fsf.org when this works, as this will further help defend against man-in-the-middle attacks (for this part I omitted the MS-DOS and MS-Windows sources and the test tarballs to keep the workload down). HTTPS is not fully working to lists.gnu.org so I left those URLs alone for now. 2017-09-13 22:52:52 +00:00			`;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.`
Initial revision 1997-02-20 07:02:49 +00:00
			`;;; Commentary:`

			`;; For Thai, the character set TIS620 is supported.`

			`;;; Code:`

Call define-coding-system instead of make-coding-system. All CCL program deleted. 2002-03-01 02:28:29 +00:00			`(define-coding-system 'thai-tis620`
			`"8-bit encoding for ASCII (MSB=0) and Thai TIS620 (MSB=1)."`
			`:coding-type 'charset`
			`:mnemonic ?T`
			`:charset-list '(tis620-2533))`
Remove prefix "coding-system-" from coding system symbol names. 1997-02-26 13:11:47 +00:00
Fix calls to define-coding-system-alias. 1997-07-01 23:29:26 +00:00			`(define-coding-system-alias 'th-tis620 'thai-tis620)`
			`(define-coding-system-alias 'tis620 'thai-tis620)`
(tis-620): New alias coding system for thai-tis620. 1999-03-09 11:57:05 +00:00			`(define-coding-system-alias 'tis-620 'thai-tis620)`
Initial revision 1997-02-20 07:02:49 +00:00
			`(set-language-info-alist`
			`"Thai" '((tutorial . "TUTORIAL.th")`
Adjusted for the change of make-coding-system. Register coding-priority key in language-info-alist. 1998-01-22 01:46:28 +00:00			`(charset thai-tis620)`
("Thai"): Add cp874, iso-8859-11 coding systems. 2002-06-06 11:32:53 +00:00			`(coding-system thai-tis620 iso-8859-11 cp874)`
Adjusted for the change of make-coding-system. Register coding-priority key in language-info-alist. 1998-01-22 01:46:28 +00:00			`(coding-priority thai-tis620)`
Call define-coding-system instead of make-coding-system. All CCL program deleted. 2002-03-01 02:28:29 +00:00			`(nonascii-translation . tis620-2533)`
("LANUGAGE-ENVIRONMENT"): Delete property setup-function or change the value to setup-XXX-environment-internal. Add properties nonascii-translation, input-method, features, unibyte-syntax, and unibyte-display. 1998-08-10 06:29:02 +00:00			`(input-method . "thai-kesmanee")`
			`(unibyte-display . thai-tis620)`
			`(features thai-util)`
("Thai"): Set setup-function and exit-function for Thai language environment. 2005-03-29 07:56:54 +00:00			`(setup-function . setup-thai-language-environment-internal)`
			`(exit-function . exit-thai-language-environment-internal)`
Trailing whitepace deleted. 2003-02-04 13:24:35 +00:00			`(sample-text`
("Thai"): Set a lisp form that produces composed string in `sample-text' language info. 2000-11-06 00:10:50 +00:00			`. (thai-compose-string`
Use UTF-8 for most files with non-ASCII characters. * admin/notes/unicode (etc/tutorials/TUTORIAL.ko, leim/quail/hanja.el) (leim/quail/hanja3.el, leim/quail/symbol-ksc.el): Now utf-8, not iso-2022-7bit. Also, files that contain non-UTF-8 characters are now encoded in utf-8-emacs, not iso-2022-7bit. * etc/tutorials/TUTORIAL.ko, tutorials/TUTORIAL.th: Switch from iso-2022-7bit to utf-8. * leim/quail/cyrillic.el, leim/quail/czech.el, leim/quail/ethiopic.el: * leim/quail/greek.el, leim/quail/hanja.el, leim/quail/hanja3.el: * leim/quail/hebrew.el, leim/quail/lao.el, leim/quail/lrt.el: * leim/quail/slovak.el, leim/quail/symbol-ksc.el, leim/quail/thai.el: * leim/quail/tibetan.el, leim/quail/viqr.el, leim/quail/vntelex.el: * leim/quail/vnvni.el, leim/quail/welsh.el: * lisp/international/latin1-disp.el, lisp/international/mule-util.el: * lisp/language/cyril-util.el, lisp/language/european.el: * lisp/language/ind-util.el, lisp/language/lao-util.el, lisp/language/thai.el: * lisp/language/tibet-util.el, lisp/language/tibetan.el: * lisp/language/viet-util.el: Switch from iso-2022-7bit to utf-8 or (if needed) utf-8-emacs. Fixes: debbugs:13936 2013-04-02 01:18:40 +00:00			`(copy-sequence "Thai (ภาษาไทย) สวัสดีครับ, สวัสดีค่ะ")))`
Coding system names changed as follows: internal -> emacs-mule, automatic-conversion -> undecided. Coding category name changes as follows: coding-category-internal -> coding-category-emacs-mule. Delete functions describe-LANGUAGE-support. Delete describe-function entries and change documentation entries in each language specific information. 1997-05-16 00:59:09 +00:00			`(documentation . t)))`
Initial revision 1997-02-20 07:02:49 +00:00
(cp874, ibm874): New coding systems. 2002-05-23 18:23:57 +00:00			`(define-coding-system 'cp874`
			`"DOS codepage 874 (Thai)"`
			`:coding-type 'charset`
			`:mnemonic ?D`
			`:charset-list '(cp874)`
			`:mime-charset 'cp874)`
			`(define-coding-system-alias 'ibm874 'cp874)`

(iso-8859-11): New coding system. 2002-05-29 22:45:23 +00:00			`(define-coding-system 'iso-8859-11`
			`"ISO/IEC 8859/11 (Latin/Thai)`
			This is the same as `thai-tis620' with the addition of no-break-space."
			`:coding-type 'charset`
			`:mnemonic ?*`
			`:mime-charset 'iso-8859-11 ; not actually registered as of 2002-05-24`
			`:charset-list '(iso-8859-11))`

Register thai-composition-function in composition-function-table for Thai vowels and tones. (thai-tis620): Don't use thai-post-read-conversion. 2002-11-07 06:32:02 +00:00			`;; For automatic composition.`
Use UTF-8 for most files with non-ASCII characters. * admin/notes/unicode (etc/tutorials/TUTORIAL.ko, leim/quail/hanja.el) (leim/quail/hanja3.el, leim/quail/symbol-ksc.el): Now utf-8, not iso-2022-7bit. Also, files that contain non-UTF-8 characters are now encoded in utf-8-emacs, not iso-2022-7bit. * etc/tutorials/TUTORIAL.ko, tutorials/TUTORIAL.th: Switch from iso-2022-7bit to utf-8. * leim/quail/cyrillic.el, leim/quail/czech.el, leim/quail/ethiopic.el: * leim/quail/greek.el, leim/quail/hanja.el, leim/quail/hanja3.el: * leim/quail/hebrew.el, leim/quail/lao.el, leim/quail/lrt.el: * leim/quail/slovak.el, leim/quail/symbol-ksc.el, leim/quail/thai.el: * leim/quail/tibetan.el, leim/quail/viqr.el, leim/quail/vntelex.el: * leim/quail/vnvni.el, leim/quail/welsh.el: * lisp/international/latin1-disp.el, lisp/international/mule-util.el: * lisp/language/cyril-util.el, lisp/language/european.el: * lisp/language/ind-util.el, lisp/language/lao-util.el, lisp/language/thai.el: * lisp/language/tibet-util.el, lisp/language/tibetan.el: * lisp/language/viet-util.el: Switch from iso-2022-7bit to utf-8 or (if needed) utf-8-emacs. Fixes: debbugs:13936 2013-04-02 01:18:40 +00:00			`(let ((chars "ัิีึืฺุู็่้๊๋์ํ๎")`
			`(elt '(["[ก-ฯ].[่้๊๋์]?ำ?" 1 thai-composition-function]`
Fix setting up of composition-function-table. 2008-08-29 07:59:57 +00:00			`[nil 0 thai-composition-function])))`
Register thai-composition-function in composition-function-table for Thai vowels and tones. (thai-tis620): Don't use thai-post-read-conversion. 2002-11-07 06:32:02 +00:00			`(dotimes (i (length chars))`
Fix setting up of composition-function-table. 2008-08-29 07:59:57 +00:00			`(aset composition-function-table (aref chars i) elt)))`
Use UTF-8 for most files with non-ASCII characters. * admin/notes/unicode (etc/tutorials/TUTORIAL.ko, leim/quail/hanja.el) (leim/quail/hanja3.el, leim/quail/symbol-ksc.el): Now utf-8, not iso-2022-7bit. Also, files that contain non-UTF-8 characters are now encoded in utf-8-emacs, not iso-2022-7bit. * etc/tutorials/TUTORIAL.ko, tutorials/TUTORIAL.th: Switch from iso-2022-7bit to utf-8. * leim/quail/cyrillic.el, leim/quail/czech.el, leim/quail/ethiopic.el: * leim/quail/greek.el, leim/quail/hanja.el, leim/quail/hanja3.el: * leim/quail/hebrew.el, leim/quail/lao.el, leim/quail/lrt.el: * leim/quail/slovak.el, leim/quail/symbol-ksc.el, leim/quail/thai.el: * leim/quail/tibetan.el, leim/quail/viqr.el, leim/quail/vntelex.el: * leim/quail/vnvni.el, leim/quail/welsh.el: * lisp/international/latin1-disp.el, lisp/international/mule-util.el: * lisp/language/cyril-util.el, lisp/language/european.el: * lisp/language/ind-util.el, lisp/language/lao-util.el, lisp/language/thai.el: * lisp/language/tibet-util.el, lisp/language/tibetan.el: * lisp/language/viet-util.el: Switch from iso-2022-7bit to utf-8 or (if needed) utf-8-emacs. Fixes: debbugs:13936 2013-04-02 01:18:40 +00:00			`(aset composition-function-table ?ำ '(["[ก-ฯ]." 1 thai-composition-function]))`
Register thai-composition-function in composition-function-table. (thai-tis620): Delete `pre-write-conversion' property. 1999-12-15 00:48:14 +00:00
Use provide. 2000-11-22 19:28:28 +00:00			`(provide 'thai)`

Initial revision 1997-02-20 07:02:49 +00:00			`;;; thai.el ends here`