Fix last commit.
[emacs.git] / lisp / language / tai-viet.el
blob25ac901a6420e7d78cd18652b8badc25f75efe91
1 ;;; tai-viet.el --- support for Tai Viet -*- coding: utf-8; no-byte-compile: t -*-
3 ;; Copyright (C) 2007, 2008, 2009, 2010
4 ;; National Institute of Advanced Industrial Science and Technology (AIST)
5 ;; Registration Number H13PRO009
6 ;; Copyright (C) 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
8 ;; Keywords: multilingual, Tai Viet, i18n
10 ;; This file is part of GNU Emacs.
12 ;; GNU Emacs is free software: you can redistribute it and/or modify
13 ;; it under the terms of the GNU General Public License as published by
14 ;; the Free Software Foundation, either version 3 of the License, or
15 ;; (at your option) any later version.
17 ;; GNU Emacs is distributed in the hope that it will be useful,
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
20 ;; GNU General Public License for more details.
22 ;; You should have received a copy of the GNU General Public License
23 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
25 ;;; Commentary:
27 ;; Tai Viet is being included in the Unicode at the range U+AA80..U+AADF.
29 ;;; Code:
31 (set-char-table-range composition-function-table
32 '(#xAA80 . #xAADF)
33 'tai-viet-composition-function)
35 (set-language-info-alist
36 "TaiViet" '((charset unicode)
37 (coding-system utf-8)
38 (coding-priority utf-8)
39 (input-method . "tai-sonla")
40 (sample-text . "TaiViet (ꪁꪫꪱꪣ ꪼꪕ)\t\tꪅꪰꪙꫂ ꪨꪮꫂ ꪁꪫꪱ / ꪅꪽ ꪨꪷ ꪁꪫꪱ")
41 (documentation . "\
42 TaiViet refers to the Tai language used by Tai people in
43 Vietnam, and also refers to the script used for this language.
44 Both the script and language have the same origin as that of Thai
45 language/script used in Thailand, but now they differ from each
46 other in a significant way (especially the scripts are).
48 The language name is spelled as \"ꪁꪫꪱꪣ ꪼꪕ\", and the script name is
49 spelled as \"ꪎ ꪼꪕ\" in the modern form, \"ꪎꪳ ꪼꪕ\" in the traditional
50 form.
52 As the proposal for TaiViet script to the Unicode is still on
53 the progress, we use the Private Use Area for TaiViet
54 characters (U+F000..U+F07E). A TaiViet font encoded accordingly
55 is available at this web page:
56 http://www.m17n.org/viettai/
57 ")))
59 (provide 'tai-viet)
61 ;; Local Variables:
62 ;; coding: utf-8
63 ;; End:
65 ;; arch-tag: db4e3377-2ba7-47a0-b173-e44420d540c3