annotate lisp/language/tai-viet.el @ 105806:83e7d269fc49

(byte-compile-warning-types, byte-compile-warnings): Add `constants' as an option. (byte-compile-callargs-warn, byte-compile-arglist-warn) (display-call-tree): Update for byte-compile-fdefinition possibly returning `(macro lambda ...)'. (Bug#4778) (byte-compile-variable-ref, byte-compile-setq-default): Respect `constants' member of byte-compile-warnings.
author Glenn Morris <rgm@gnu.org>
date Sat, 31 Oct 2009 02:10:43 +0000
parents 9ee62c813963
children 1d1d5d9bd884
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
90939
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1 ;;; tai-viet.el --- support for Tai Viet -*- coding: utf-8; no-byte-compile: t -*-
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2
100908
a9dc0e7c3f2b Add 2009 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 94665
diff changeset
3 ;; Copyright (C) 2007, 2008, 2009
90939
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4 ;; National Institute of Advanced Industrial Science and Technology (AIST)
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5 ;; Registration Number H13PRO009
100908
a9dc0e7c3f2b Add 2009 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 94665
diff changeset
6 ;; Copyright (C) 2007, 2008, 2009 Free Software Foundation, Inc.
90939
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
7
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
8 ;; Keywords: multilingual, Tai Viet, i18n
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
9
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
10 ;; This file is part of GNU Emacs.
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
16
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
17 ;; GNU Emacs is distributed in the hope that it will be useful,
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
20 ;; GNU General Public License for more details.
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
21
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
24
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
25 ;;; Commentary:
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
26
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
27 ;; Tai Viet is being included in the Unicode at the range U+AA80..U+AADF.
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
28
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
29 ;;; Code:
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
30
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
31 (set-char-table-range composition-function-table
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
32 '(#xAA80 . #xAADF)
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
33 'tai-viet-composition-function)
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
34
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
35 (set-language-info-alist
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
36 "TaiViet" '((charset unicode)
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
37 (coding-system utf-8)
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
38 (coding-priority utf-8)
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
39 (input-method . "tai-sonla")
104359
9ee62c813963 ("TaiViet"): Fix sample-text entry.
Kenichi Handa <handa@m17n.org>
parents: 100908
diff changeset
40 (sample-text . "TaiViet (ꪁꪫꪱꪣ ꪽꪕ)\t\tꪅꪰꪙ꫃ ꪨꪮ꫃ ꪁꪫꪱ / ꪅꪾ ꪨ� ꪁꪫꪱ")
90939
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
41 (documentation . "\
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
42 TaiViet refers to the Tai language used by Tai people in
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
43 Vietnam, and also refers to the script used for this language.
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
44 Both the script and language have the same origin as that of Thai
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
45 language/script used in Thailand, but now they differ from each
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
46 other in a significant way (especially the scripts are).
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
47
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
48 The language name is spelled as \"ꪁꪫꪱꪣ ꪽꪕ\", and the script name is
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
49 spelled as \"ꪎ� ꪽꪕ\" in the modern form, \"ꪎꪴ ꪽꪕ\" in the traditional
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
50 from.
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
51
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
52 As the proposal for TaiViet script to the Unicode is still on
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
53 the progress, we use the Private Use Area for TaiViet
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
54 characters (U+F000..U+F07E). A TaiViet font encoded accordingly
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
55 is available at this web page:
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
56 http://www.m17n.org/TaiViet/
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
57 ")))
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
58
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
59 (provide 'tai-viet)
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
60
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
61 ;; Local Variables:
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
62 ;; coding: utf-8
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
63 ;; End:
90950
8568c29985a3 Add arch tagline
Miles Bader <miles@gnu.org>
parents: 90939
diff changeset
64
8568c29985a3 Add arch tagline
Miles Bader <miles@gnu.org>
parents: 90939
diff changeset
65 ;; arch-tag: db4e3377-2ba7-47a0-b173-e44420d540c3