annotate lisp/language/tai-viet.el @ 96498:1f27a4bf06f5

Merge from gnus--devo--0 Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1309
author Miles Bader <miles@gnu.org>
date Fri, 04 Jul 2008 00:07:47 +0000
parents 55b7f25d920a
children a9dc0e7c3f2b
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
91436
7599e146f01b Update copyright years and GPL version.
Glenn Morris <rgm@gnu.org>
parents: 90950
diff changeset
3 ;; Copyright (C) 2007, 2008
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
91436
7599e146f01b Update copyright years and GPL version.
Glenn Morris <rgm@gnu.org>
parents: 90950
diff changeset
6 ;; Copyright (C) 2007, 2008 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")
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
40 (sample-text
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
41 "TaiViet (ꪁꪫꪱꪣ ꪽꪕ)\t\tꪅꪰꪙ꫃ ꪨꪮ꫃ ꪁꪫꪱ / ꪅꪾ ꪨ� ꪁꪫꪱ")
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
42 (documentation . "\
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
43 TaiViet refers to the Tai language used by Tai people in
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
44 Vietnam, and also refers to the script used for this language.
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
45 Both the script and language have the same origin as that of Thai
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
46 language/script used in Thailand, but now they differ from each
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
47 other in a significant way (especially the scripts are).
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
48
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
49 The language name is spelled as \"ꪁꪫꪱꪣ ꪽꪕ\", and the script name is
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
50 spelled as \"ꪎ� ꪽꪕ\" in the modern form, \"ꪎꪴ ꪽꪕ\" in the traditional
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
51 from.
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
52
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
53 As the proposal for TaiViet script to the Unicode is still on
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
54 the progress, we use the Private Use Area for TaiViet
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
55 characters (U+F000..U+F07E). A TaiViet font encoded accordingly
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
56 is available at this web page:
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
57 http://www.m17n.org/TaiViet/
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
58 ")))
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
59
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
60 (provide 'tai-viet)
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
61
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
62 ;; Local Variables:
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
63 ;; coding: utf-8
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
64 ;; End:
90950
8568c29985a3 Add arch tagline
Miles Bader <miles@gnu.org>
parents: 90939
diff changeset
65
8568c29985a3 Add arch tagline
Miles Bader <miles@gnu.org>
parents: 90939
diff changeset
66 ;; arch-tag: db4e3377-2ba7-47a0-b173-e44420d540c3