Commit | Line | Data |
---|---|---|
60370d40 | 1 | ;;; vietnamese.el --- support for Vietnamese -*- coding: iso-2022-7bit; -*- |
4ed46869 | 2 | |
73b0cd50 | 3 | ;; Copyright (C) 1998, 2001-2011 |
d4877ac1 | 4 | ;; Free Software Foundation, Inc. |
7976eda0 | 5 | ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
5df4f04c | 6 | ;; 2005, 2006, 2007, 2008, 2009, 2010, 2011 |
eaa61218 KH |
7 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
8 | ;; Registration Number H14PRO021 | |
8f924df7 KH |
9 | ;; Copyright (C) 2003 |
10 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | |
11 | ;; Registration Number H13PRO009 | |
4ed46869 | 12 | |
a4584db2 | 13 | ;; Keywords: multilingual, Vietnamese, i18n |
4ed46869 KH |
14 | |
15 | ;; This file is part of GNU Emacs. | |
16 | ||
4936186e | 17 | ;; GNU Emacs is free software: you can redistribute it and/or modify |
4ed46869 | 18 | ;; it under the terms of the GNU General Public License as published by |
4936186e GM |
19 | ;; the Free Software Foundation, either version 3 of the License, or |
20 | ;; (at your option) any later version. | |
4ed46869 KH |
21 | |
22 | ;; GNU Emacs is distributed in the hope that it will be useful, | |
23 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
24 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
25 | ;; GNU General Public License for more details. | |
26 | ||
27 | ;; You should have received a copy of the GNU General Public License | |
4936186e | 28 | ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
4ed46869 KH |
29 | |
30 | ;;; Commentary: | |
31 | ||
bd465aec PJ |
32 | ;; For Vietnames, the character sets VISCII, VSCII and TCVN-5712 are |
33 | ;; supported. | |
4ed46869 KH |
34 | |
35 | ;;; Code: | |
36 | ||
e1915ab3 KH |
37 | (define-coding-system 'vietnamese-viscii |
38 | "8-bit encoding for Vietnamese VISCII 1.1 (MIME:VISCII)." | |
39 | :coding-type 'charset | |
40 | :mnemonic ?V | |
41 | :charset-list '(viscii) | |
f11f47e0 KH |
42 | :mime-charset 'viscii |
43 | :suitable-for-file-name t) | |
4ed46869 | 44 | |
2e21aa27 | 45 | (define-coding-system-alias 'viscii 'vietnamese-viscii) |
4b9121fc | 46 | |
e1915ab3 KH |
47 | (define-coding-system 'vietnamese-vscii |
48 | "8-bit encoding for Vietnamese VSCII-1." | |
49 | :coding-type 'charset | |
50 | :mnemonic ?v | |
f11f47e0 KH |
51 | :charset-list '(vscii) |
52 | :suitable-for-file-name t) | |
4ed46869 | 53 | |
2e21aa27 | 54 | (define-coding-system-alias 'vscii 'vietnamese-vscii) |
4b9121fc | 55 | |
bd465aec PJ |
56 | ;; (make-coding-system |
57 | ;; 'vietnamese-vps 4 ?p | |
58 | ;; "8-bit encoding for Vietnamese VPS" | |
59 | ;; '(ccl-decode-vps . ccl-encode-vps) | |
60 | ;; '((safe-charsets ascii vietnamese-viscii-lower vietnamese-viscii-upper) | |
61 | ;; (valid-codes (0 . 255)))) | |
a1506d29 | 62 | ;; |
bd465aec PJ |
63 | ;; (define-coding-system-alias 'vps 'vietnamese-vps) |
64 | ||
e1915ab3 KH |
65 | (define-coding-system 'vietnamese-viqr |
66 | "Vietnamese latin transcription (VIQR)." | |
67 | :coding-type 'utf-8 | |
68 | :mnemonic ?q | |
69 | :charset-list '(ascii viscii) | |
70 | :post-read-conversion 'viqr-post-read-conversion | |
71 | :pre-write-conversion 'viqr-pre-write-conversion) | |
4b9121fc | 72 | |
2e21aa27 | 73 | (define-coding-system-alias 'viqr 'vietnamese-viqr) |
4ed46869 | 74 | |
4ed46869 | 75 | (set-language-info-alist |
e1915ab3 | 76 | "Vietnamese" `((charset viscii) |
a79a3c79 | 77 | (coding-system vietnamese-viscii vietnamese-vscii |
8f924df7 | 78 | vietnamese-tcvn vietnamese-viqr windows-1258) |
e1915ab3 | 79 | (nonascii-translation . viscii) |
a79a3c79 | 80 | (coding-priority vietnamese-viscii) |
a564ccf9 KH |
81 | (input-method . "vietnamese-viqr") |
82 | (unibyte-display . vietnamese-viscii) | |
83 | (features viet-util) | |
dc09922d | 84 | (sample-text . "Vietnamese (Ti\e,1*\e(Bng Vi\e,1.\e(Bt) Ch\e,1`\e(Bo b\e,1U\e(Bn") |
335a7ad7 | 85 | (documentation . "\ |
ae0fa1e0 | 86 | For Vietnamese, Emacs uses special charsets internally. |
8f924df7 | 87 | They can be decoded from and encoded to VISCII, VSCII, TCVN-5712, VIQR |
d3f35208 | 88 | and windows-1258. VSCII is deprecated in favour of TCVN-5712. The |
8f924df7 | 89 | Current setting gives higher priority to the coding system VISCII than |
d3f35208 DL |
90 | TCVN-5712. If you prefer TCVN-5712, please do: (prefer-coding-system |
91 | 'vietnamese-tcvn). There are two Vietnamese input methods: VIQR and | |
8f924df7 | 92 | Telex, VIQR is the default setting."))) |
4ed46869 | 93 | |
a4584db2 DL |
94 | (define-coding-system 'windows-1258 |
95 | "windows-1258 encoding for Vietnamese (MIME: WINDOWS-1258)" | |
96 | :coding-type 'charset | |
97 | :mnemonic ?* | |
98 | :charset-list '(windows-1258) | |
99 | :mime-charset 'windows-1258) | |
100 | (define-coding-system-alias 'cp1258 'windows-1258) | |
101 | ||
d3f35208 DL |
102 | (define-coding-system 'vietnamese-tcvn |
103 | "8-bit encoding for Vietnamese TCVN-5712" | |
104 | :coding-type 'charset | |
105 | :mnemonic ?t | |
f11f47e0 KH |
106 | :charset-list '(tcvn-5712) |
107 | :suitable-for-file-name t) | |
d3f35208 | 108 | (define-coding-system-alias 'tcvn 'vietnamese-tcvn) |
6a2bd1a5 | 109 | (define-coding-system-alias 'tcvn-5712 'vietnamese-tcvn) |
4ed46869 | 110 | |
41da80b1 DL |
111 | (provide 'vietnamese) |
112 | ||
4ed46869 | 113 | ;;; vietnamese.el ends here |