Mercurial > emacs
annotate lisp/language/tai-viet.el @ 111114:674f04c442a5
The range [STARTPOS..ENDPOS] is inclusive in strings.
Tested with multiline display strings.
xdisp.c (mouse_face_from_string_pos): Fix off-by-one error when
testing against ENDPOS.
author | Eli Zaretskii <eliz@gnu.org> |
---|---|
date | Sat, 23 Oct 2010 14:58:12 +0200 |
parents | 2a3fdfdeb7b3 |
children | 417b1e4d63cd |
rev | line source |
---|---|
90939 | 1 ;;; tai-viet.el --- support for Tai Viet -*- coding: utf-8; no-byte-compile: t -*- |
2 | |
106815 | 3 ;; Copyright (C) 2007, 2008, 2009, 2010 |
90939 | 4 ;; National Institute of Advanced Industrial Science and Technology (AIST) |
5 ;; Registration Number H13PRO009 | |
106815 | 6 ;; Copyright (C) 2007, 2008, 2009, 2010 Free Software Foundation, Inc. |
90939 | 7 |
8 ;; Keywords: multilingual, Tai Viet, i18n | |
9 | |
10 ;; This file is part of GNU Emacs. | |
11 | |
94665
55b7f25d920a
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
91436
diff
changeset
|
12 ;; GNU Emacs is free software: you can redistribute it and/or modify |
90939 | 13 ;; it under the terms of the GNU General Public License as published by |
94665
55b7f25d920a
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
91436
diff
changeset
|
14 ;; the Free Software Foundation, either version 3 of the License, or |
55b7f25d920a
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
91436
diff
changeset
|
15 ;; (at your option) any later version. |
90939 | 16 |
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. | |
21 | |
22 ;; You should have received a copy of the GNU General Public License | |
94665
55b7f25d920a
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
91436
diff
changeset
|
23 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
90939 | 24 |
25 ;;; Commentary: | |
26 | |
27 ;; Tai Viet is being included in the Unicode at the range U+AA80..U+AADF. | |
28 | |
29 ;;; Code: | |
30 | |
31 (set-char-table-range composition-function-table | |
32 '(#xAA80 . #xAADF) | |
33 'tai-viet-composition-function) | |
34 | |
35 (set-language-info-alist | |
36 "TaiViet" '((charset unicode) | |
37 (coding-system utf-8) | |
38 (coding-priority utf-8) | |
39 (input-method . "tai-sonla") | |
109366
2a3fdfdeb7b3
* language/tai-viet.el ("TaiViet"): Try to fix re-encoding bugs. (Bug#5806)
Andreas Schwab <schwab@linux-m68k.org>
parents:
106815
diff
changeset
|
40 (sample-text . "TaiViet (ꪁꪫꪱꪣ ꪼꪕ)\t\tꪅꪰꪙꫂ ꪨꪮꫂ ꪁꪫꪱ / ꪅꪽ ꪨꪷ ꪁꪫꪱ") |
90939 | 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). | |
47 | |
109366
2a3fdfdeb7b3
* language/tai-viet.el ("TaiViet"): Try to fix re-encoding bugs. (Bug#5806)
Andreas Schwab <schwab@linux-m68k.org>
parents:
106815
diff
changeset
|
48 The language name is spelled as \"ꪁꪫꪱꪣ ꪼꪕ\", and the script name is |
2a3fdfdeb7b3
* language/tai-viet.el ("TaiViet"): Try to fix re-encoding bugs. (Bug#5806)
Andreas Schwab <schwab@linux-m68k.org>
parents:
106815
diff
changeset
|
49 spelled as \"ꪎ ꪼꪕ\" in the modern form, \"ꪎꪳ ꪼꪕ\" in the traditional |
2a3fdfdeb7b3
* language/tai-viet.el ("TaiViet"): Try to fix re-encoding bugs. (Bug#5806)
Andreas Schwab <schwab@linux-m68k.org>
parents:
106815
diff
changeset
|
50 form. |
90939 | 51 |
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: | |
109366
2a3fdfdeb7b3
* language/tai-viet.el ("TaiViet"): Try to fix re-encoding bugs. (Bug#5806)
Andreas Schwab <schwab@linux-m68k.org>
parents:
106815
diff
changeset
|
56 http://www.m17n.org/viettai/ |
90939 | 57 "))) |
58 | |
59 (provide 'tai-viet) | |
60 | |
61 ;; Local Variables: | |
62 ;; coding: utf-8 | |
63 ;; End: | |
90950 | 64 |
65 ;; arch-tag: db4e3377-2ba7-47a0-b173-e44420d540c3 |