annotate lisp/language/tai-viet.el @ 93525:26506821c407

(list-yahrzeit-dates): Expand calendar-for-loop call.
author Glenn Morris <rgm@gnu.org>
date Wed, 02 Apr 2008 03:17:21 +0000
parents 7599e146f01b
children 55b7f25d920a
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
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
12 ;; GNU Emacs is free software; you can redistribute it and/or modify
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
91436
7599e146f01b Update copyright years and GPL version.
Glenn Morris <rgm@gnu.org>
parents: 90950
diff changeset
14 ;; the Free Software Foundation; either version 3, or (at your option)
90939
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
15 ;; any later version.
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
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
23 ;; along with GNU Emacs; see the file COPYING. If not, write to the
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
24 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
25 ;; Boston, MA 02110-1301, USA.
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
26
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
27 ;;; Commentary:
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
28
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
29 ;; 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
30
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
31 ;;; Code:
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
32
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
33 (set-char-table-range composition-function-table
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
34 '(#xAA80 . #xAADF)
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
35 'tai-viet-composition-function)
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
36
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
37 (set-language-info-alist
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
38 "TaiViet" '((charset unicode)
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
39 (coding-system utf-8)
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
40 (coding-priority utf-8)
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
41 (input-method . "tai-sonla")
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
42 (sample-text
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
43 "TaiViet (ꪁꪫꪱꪣ ꪽꪕ)\t\tꪅꪰꪙ꫃ ꪨꪮ꫃ ꪁꪫꪱ / ꪅꪾ ꪨ� ꪁꪫꪱ")
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
44 (documentation . "\
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
45 TaiViet refers to the Tai language used by Tai people in
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
46 Vietnam, and also refers to the script used for this language.
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
47 Both the script and language have the same origin as that of Thai
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
48 language/script used in Thailand, but now they differ from each
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
49 other in a significant way (especially the scripts are).
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
50
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
51 The language name is spelled as \"ꪁꪫꪱꪣ ꪽꪕ\", and the script name is
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
52 spelled as \"ꪎ� ꪽꪕ\" in the modern form, \"ꪎꪴ ꪽꪕ\" in the traditional
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
53 from.
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
54
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
55 As the proposal for TaiViet script to the Unicode is still on
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
56 the progress, we use the Private Use Area for TaiViet
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
57 characters (U+F000..U+F07E). A TaiViet font encoded accordingly
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
58 is available at this web page:
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
59 http://www.m17n.org/TaiViet/
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
60 ")))
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
61
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
62 (provide 'tai-viet)
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
63
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
64 ;; Local Variables:
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
65 ;; coding: utf-8
7166fd1f20fa New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
66 ;; End:
90950
8568c29985a3 Add arch tagline
Miles Bader <miles@gnu.org>
parents: 90939
diff changeset
67
8568c29985a3 Add arch tagline
Miles Bader <miles@gnu.org>
parents: 90939
diff changeset
68 ;; arch-tag: db4e3377-2ba7-47a0-b173-e44420d540c3