Mercurial > emacs
annotate lisp/language/european.el @ 71621:7250b94586cb
Add a paragraph for non-ASCII examples at the head. Add
Bulgarian and Hungarian. Add more "hello"s to Danish and Swedish.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Wed, 05 Jul 2006 01:28:13 +0000 |
parents | 837772085003 |
children | 5dce73a87d89 |
rev | line source |
---|---|
38436
b174db545cfd
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
37298
diff
changeset
|
1 ;;; european.el --- support for European languages -*- coding: iso-2022-7bit; -*- |
17052 | 2 |
62396 | 3 ;; Copyright (C) 1997, 1998, 2000, 2001, 2002, 2003, 2004 |
4 ;; Free Software Foundation, Inc. | |
5 ;; Copyright (C) 1995, 1997, 1998, 1999, 2000, 2001, 2002, 2003 | |
6 ;; National Institute of Advanced Industrial Science and Technology (AIST) | |
7 ;; Registration Number H14PRO021 | |
17052 | 8 |
9 ;; Keywords: multilingual, European | |
10 | |
11 ;; This file is part of GNU Emacs. | |
12 | |
13 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
14 ;; it under the terms of the GNU General Public License as published by | |
15 ;; the Free Software Foundation; either version 2, or (at your option) | |
16 ;; any later version. | |
17 | |
18 ;; GNU Emacs is distributed in the hope that it will be useful, | |
19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
21 ;; GNU General Public License for more details. | |
22 | |
23 ;; You should have received a copy of the GNU General Public License | |
17071 | 24 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
64085 | 25 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
26 ;; Boston, MA 02110-1301, USA. | |
17052 | 27 |
28 ;;; Commentary: | |
29 | |
52436
d095f4512252
(windows-1252): Moved from code-pages.
Dave Love <fx@gnu.org>
parents:
52401
diff
changeset
|
30 ;; For European scripts, all the ISO Latin character sets are |
d095f4512252
(windows-1252): Moved from code-pages.
Dave Love <fx@gnu.org>
parents:
52401
diff
changeset
|
31 ;; supported, along with various others. |
17052 | 32 |
33 ;;; Code: | |
34 | |
18069
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
35 ;; Latin-1 (ISO-8859-1) |
17993
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
36 |
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
37 (set-language-info-alist |
22980
5681e7798ce9
(setup-8-bit-environment): Function deleted.
Kenichi Handa <handa@m17n.org>
parents:
22726
diff
changeset
|
38 "Latin-1" '((charset ascii latin-iso8859-1) |
20743 | 39 (coding-system iso-latin-1) |
40 (coding-priority iso-latin-1) | |
22980
5681e7798ce9
(setup-8-bit-environment): Function deleted.
Kenichi Handa <handa@m17n.org>
parents:
22726
diff
changeset
|
41 (nonascii-translation . latin-iso8859-1) |
22726
e44440f1a80e
Define unibyte-syntax in each of these language environments.
Richard M. Stallman <rms@gnu.org>
parents:
22075
diff
changeset
|
42 (unibyte-syntax . "latin-1") |
22980
5681e7798ce9
(setup-8-bit-environment): Function deleted.
Kenichi Handa <handa@m17n.org>
parents:
22726
diff
changeset
|
43 (unibyte-display . iso-latin-1) |
23050 | 44 (input-method . "latin-1-prefix") |
18069
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
45 (sample-text |
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
46 . "Hello, Hej, Tere, Hei, Bonjour, Gr,A|_(B Gott, Ciao, ,A!(BHola!") |
20743 | 47 (documentation . "\ |
26014
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
48 This language environment is a generic one for the Latin-1 (ISO-8859-1) |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
49 character set which supports the following European languages: |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
50 Albanian, Basque, Breton, Catalan, Danish, Dutch, English, Faeroese, |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
51 Finnish, French (with restrictions -- see Latin-9), Frisian, Galician, |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
52 German, Greenlandic, Icelandic, Irish Gaelic (new orthography), |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
53 Italian, Latin, Luxemburgish, Norwegian, Portuguese, Rhaeto-Romanic, |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
54 Scottish Gaelic, Spanish, and Swedish. |
35350
c26260dd320b
("Latin-1"): Make the format of description
Kenichi Handa <handa@m17n.org>
parents:
35330
diff
changeset
|
55 We also have specific language environments for the following languages: |
c26260dd320b
("Latin-1"): Make the format of description
Kenichi Handa <handa@m17n.org>
parents:
35330
diff
changeset
|
56 For Dutch, \"Dutch\". |
c26260dd320b
("Latin-1"): Make the format of description
Kenichi Handa <handa@m17n.org>
parents:
35330
diff
changeset
|
57 For German, \"German\". |
49633
b7ecf0c51886
Add Slovenian to the deoc string fro language-info-alist.
Francesco Potortì <pot@gnu.org>
parents:
49631
diff
changeset
|
58 For French, \"French\". |
b7ecf0c51886
Add Slovenian to the deoc string fro language-info-alist.
Francesco Potortì <pot@gnu.org>
parents:
49631
diff
changeset
|
59 For Italian, \"Italian\". |
b7ecf0c51886
Add Slovenian to the deoc string fro language-info-alist.
Francesco Potortì <pot@gnu.org>
parents:
49631
diff
changeset
|
60 For Slovenian, \"Slovenian\". |
35350
c26260dd320b
("Latin-1"): Make the format of description
Kenichi Handa <handa@m17n.org>
parents:
35330
diff
changeset
|
61 For Spanish, \"Spanish\". |
26014
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
62 |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
63 Latin-1 also covers several written languages outside Europe, including |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
64 Indonesian/Malay, Tagalog (Philippines), Swahili and Afrikaans.")) |
20743 | 65 '("European")) |
66 | |
52436
d095f4512252
(windows-1252): Moved from code-pages.
Dave Love <fx@gnu.org>
parents:
52401
diff
changeset
|
67 (eval-and-compile |
d095f4512252
(windows-1252): Moved from code-pages.
Dave Love <fx@gnu.org>
parents:
52401
diff
changeset
|
68 (setq |
d095f4512252
(windows-1252): Moved from code-pages.
Dave Love <fx@gnu.org>
parents:
52401
diff
changeset
|
69 non-iso-charset-alist |
d095f4512252
(windows-1252): Moved from code-pages.
Dave Love <fx@gnu.org>
parents:
52401
diff
changeset
|
70 (cp-make-coding-system |
d095f4512252
(windows-1252): Moved from code-pages.
Dave Love <fx@gnu.org>
parents:
52401
diff
changeset
|
71 windows-1252 |
53009
cf5058e384f8
(windows-1252): Fix table (0x8F and 0x9E).
Kenichi Handa <handa@m17n.org>
parents:
52436
diff
changeset
|
72 [?\$,1tL(B nil ?\$,1rz(B ?\$,1!R(B ?\$,1r~(B ?\$,1s&(B ?\$,1s (B ?\$,1s!(B ?\$,1$f(B ?\$,1s0(B ?\$,1! (B ?\$,1s9(B ?\$,1 r(B nil ?\$,1!=(B nil nil |
cf5058e384f8
(windows-1252): Fix table (0x8F and 0x9E).
Kenichi Handa <handa@m17n.org>
parents:
52436
diff
changeset
|
73 ?\$,1rx(B ?\$,1ry(B ?\$,1r|(B ?\$,1r}(B ?\$,1s"(B ?\$,1rs(B ?\$,1rt(B ?\$,1$|(B ?\$,1ub(B ?\$,1!!(B ?\$,1s:(B ?\$,1 s(B nil ?\$,1!>(B ?\$,1!8(B ?\,A (B ?\,A!(B |
52436
d095f4512252
(windows-1252): Moved from code-pages.
Dave Love <fx@gnu.org>
parents:
52401
diff
changeset
|
74 ?\,A"(B ?\,A#(B ?\,A$(B ?\,A%(B ?\,A&(B ?\,A'(B ?\,A((B ?\,A)(B ?\,A*(B ?\,A+(B ?\,A,(B ?\,A-(B ?\,A.(B ?\,A/(B ?\,A0(B ?\,A1(B ?\,A2(B |
d095f4512252
(windows-1252): Moved from code-pages.
Dave Love <fx@gnu.org>
parents:
52401
diff
changeset
|
75 ?\,A3(B ?\,A4(B ?\,A5(B ?\,A6(B ?\,A7(B ?\,A8(B ?\,A9(B ?\,A:(B ?\,A;(B ?\,A<(B ?\,A=(B ?\,A>(B ?\,A?(B ?\,A@(B ?\,AA(B ?\,AB(B ?\,AC(B |
d095f4512252
(windows-1252): Moved from code-pages.
Dave Love <fx@gnu.org>
parents:
52401
diff
changeset
|
76 ?\,AD(B ?\,AE(B ?\,AF(B ?\,AG(B ?\,AH(B ?\,AI(B ?\,AJ(B ?\,AK(B ?\,AL(B ?\,AM(B ?\,AN(B ?\,AO(B ?\,AP(B ?\,AQ(B ?\,AR(B ?\,AS(B ?\,AT(B |
d095f4512252
(windows-1252): Moved from code-pages.
Dave Love <fx@gnu.org>
parents:
52401
diff
changeset
|
77 ?\,AU(B ?\,AV(B ?\,AW(B ?\,AX(B ?\,AY(B ?\,AZ(B ?\,A[(B ?\,A\(B ?\,A](B ?\,A^(B ?\,A_(B ?\,A`(B ?\,Aa(B ?\,Ab(B ?\,Ac(B ?\,Ad(B ?\,Ae(B |
d095f4512252
(windows-1252): Moved from code-pages.
Dave Love <fx@gnu.org>
parents:
52401
diff
changeset
|
78 ?\,Af(B ?\,Ag(B ?\,Ah(B ?\,Ai(B ?\,Aj(B ?\,Ak(B ?\,Al(B ?\,Am(B ?\,An(B ?\,Ao(B ?\,Ap(B ?\,Aq(B ?\,Ar(B ?\,As(B ?\,At(B ?\,Au(B ?\,Av(B |
d095f4512252
(windows-1252): Moved from code-pages.
Dave Love <fx@gnu.org>
parents:
52401
diff
changeset
|
79 ?\,Aw(B ?\,Ax(B ?\,Ay(B ?\,Az(B ?\,A{(B ?\,A|(B ?\,A}(B ?\,A~(B ?\,A(B]))) |
68330
837772085003
New alias for windows-1252.
Kenichi Handa <handa@m17n.org>
parents:
64085
diff
changeset
|
80 |
837772085003
New alias for windows-1252.
Kenichi Handa <handa@m17n.org>
parents:
64085
diff
changeset
|
81 (define-coding-system-alias 'cp1252 'windows-1252) |
837772085003
New alias for windows-1252.
Kenichi Handa <handa@m17n.org>
parents:
64085
diff
changeset
|
82 |
17993
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
83 |
18069
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
84 ;; Latin-2 (ISO-8859-2) |
17993
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
85 |
17052 | 86 (make-coding-system |
18203
0745f30aec66
Adjusted for coding system name change.
Kenichi Handa <handa@m17n.org>
parents:
18159
diff
changeset
|
87 'iso-latin-2 2 ?2 |
42152 | 88 "ISO 2022 based 8-bit encoding for Latin-2 (MIME:ISO-8859-2)." |
20743 | 89 '(ascii latin-iso8859-2 nil nil |
48389
77f983482547
(iso-latin-1): Make it safe.
Kenichi Handa <handa@m17n.org>
parents:
48041
diff
changeset
|
90 nil nil nil nil nil nil nil nil nil nil nil t) |
20743 | 91 '((safe-charsets ascii latin-iso8859-2) |
92 (mime-charset . iso-8859-2))) | |
17052 | 93 |
18520
383d11185239
Swap args to define-coding-system-alias.
Richard M. Stallman <rms@gnu.org>
parents:
18377
diff
changeset
|
94 (define-coding-system-alias 'iso-8859-2 'iso-latin-2) |
18622
fe2070df967e
(latin-1, latin-2. latin-3, latin-4, latin-5):
Richard M. Stallman <rms@gnu.org>
parents:
18543
diff
changeset
|
95 (define-coding-system-alias 'latin-2 'iso-latin-2) |
18203
0745f30aec66
Adjusted for coding system name change.
Kenichi Handa <handa@m17n.org>
parents:
18159
diff
changeset
|
96 |
17993
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
97 (set-language-info-alist |
22980
5681e7798ce9
(setup-8-bit-environment): Function deleted.
Kenichi Handa <handa@m17n.org>
parents:
22726
diff
changeset
|
98 "Latin-2" '((charset ascii latin-iso8859-2) |
20743 | 99 (coding-system iso-latin-2) |
100 (coding-priority iso-latin-2) | |
22980
5681e7798ce9
(setup-8-bit-environment): Function deleted.
Kenichi Handa <handa@m17n.org>
parents:
22726
diff
changeset
|
101 (nonascii-translation . latin-iso8859-2) |
22726
e44440f1a80e
Define unibyte-syntax in each of these language environments.
Richard M. Stallman <rms@gnu.org>
parents:
22075
diff
changeset
|
102 (unibyte-syntax . "latin-2") |
22980
5681e7798ce9
(setup-8-bit-environment): Function deleted.
Kenichi Handa <handa@m17n.org>
parents:
22726
diff
changeset
|
103 (unibyte-display . iso-latin-2) |
23050 | 104 (input-method . "latin-2-prefix") |
20743 | 105 (documentation . "\ |
26014
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
106 This language environment is a generic one for the Latin-2 (ISO-8859-2) |
23117
13247082e0ed
("Latin-1"): Modify `documentation' key value.
Kenichi Handa <handa@m17n.org>
parents:
23111
diff
changeset
|
107 character set which supports the following languages: |
18117
5db3b24f2c5c
(iso-8859-1): Use `1' for mode line.
Richard M. Stallman <rms@gnu.org>
parents:
18069
diff
changeset
|
108 Albanian, Czech, English, German, Hungarian, Polish, Romanian, |
20232
5031189adff2
Add "Upper Sorbian" and "Lower Sorbian" in
Kenichi Handa <handa@m17n.org>
parents:
20159
diff
changeset
|
109 Serbo-Croatian or Croatian, Slovak, Slovene, Sorbian (upper and lower), |
23117
13247082e0ed
("Latin-1"): Modify `documentation' key value.
Kenichi Handa <handa@m17n.org>
parents:
23111
diff
changeset
|
110 and Swedish. |
13247082e0ed
("Latin-1"): Modify `documentation' key value.
Kenichi Handa <handa@m17n.org>
parents:
23111
diff
changeset
|
111 We also have specific language environments for the following languages: |
13247082e0ed
("Latin-1"): Modify `documentation' key value.
Kenichi Handa <handa@m17n.org>
parents:
23111
diff
changeset
|
112 For Czech, \"Czech\". |
49043 | 113 For Croatian, \"Croatian\". |
23117
13247082e0ed
("Latin-1"): Modify `documentation' key value.
Kenichi Handa <handa@m17n.org>
parents:
23111
diff
changeset
|
114 For Romanian, \"Romanian\". |
13247082e0ed
("Latin-1"): Modify `documentation' key value.
Kenichi Handa <handa@m17n.org>
parents:
23111
diff
changeset
|
115 For Slovak, \"Slovak\".")) |
20743 | 116 '("European")) |
117 | |
17993
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
118 |
18069
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
119 ;; Latin-3 (ISO-8859-3) |
17993
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
120 |
17052 | 121 (make-coding-system |
18203
0745f30aec66
Adjusted for coding system name change.
Kenichi Handa <handa@m17n.org>
parents:
18159
diff
changeset
|
122 'iso-latin-3 2 ?3 |
42152 | 123 "ISO 2022 based 8-bit encoding for Latin-3 (MIME:ISO-8859-3)." |
20743 | 124 '(ascii latin-iso8859-3 nil nil |
48389
77f983482547
(iso-latin-1): Make it safe.
Kenichi Handa <handa@m17n.org>
parents:
48041
diff
changeset
|
125 nil nil nil nil nil nil nil nil nil nil nil t) |
20743 | 126 '((safe-charsets ascii latin-iso8859-3) |
127 (mime-charset . iso-8859-3))) | |
17052 | 128 |
18520
383d11185239
Swap args to define-coding-system-alias.
Richard M. Stallman <rms@gnu.org>
parents:
18377
diff
changeset
|
129 (define-coding-system-alias 'iso-8859-3 'iso-latin-3) |
18622
fe2070df967e
(latin-1, latin-2. latin-3, latin-4, latin-5):
Richard M. Stallman <rms@gnu.org>
parents:
18543
diff
changeset
|
130 (define-coding-system-alias 'latin-3 'iso-latin-3) |
18203
0745f30aec66
Adjusted for coding system name change.
Kenichi Handa <handa@m17n.org>
parents:
18159
diff
changeset
|
131 |
17993
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
132 (set-language-info-alist |
22980
5681e7798ce9
(setup-8-bit-environment): Function deleted.
Kenichi Handa <handa@m17n.org>
parents:
22726
diff
changeset
|
133 "Latin-3" '((charset ascii latin-iso8859-3) |
20743 | 134 (coding-system iso-latin-3) |
135 (coding-priority iso-latin-3) | |
22980
5681e7798ce9
(setup-8-bit-environment): Function deleted.
Kenichi Handa <handa@m17n.org>
parents:
22726
diff
changeset
|
136 (nonascii-translation . latin-iso8859-3) |
22726
e44440f1a80e
Define unibyte-syntax in each of these language environments.
Richard M. Stallman <rms@gnu.org>
parents:
22075
diff
changeset
|
137 (unibyte-syntax . "latin-3") |
22980
5681e7798ce9
(setup-8-bit-environment): Function deleted.
Kenichi Handa <handa@m17n.org>
parents:
22726
diff
changeset
|
138 (unibyte-display . iso-latin-3) |
23050 | 139 (input-method . "latin-3-prefix") |
20743 | 140 (documentation . "\ |
18117
5db3b24f2c5c
(iso-8859-1): Use `1' for mode line.
Richard M. Stallman <rms@gnu.org>
parents:
18069
diff
changeset
|
141 These languages are supported with the Latin-3 (ISO-8859-3) character set: |
5db3b24f2c5c
(iso-8859-1): Use `1' for mode line.
Richard M. Stallman <rms@gnu.org>
parents:
18069
diff
changeset
|
142 Afrikaans, Catalan, Dutch, English, Esperanto, French, Galician, |
20743 | 143 German, Italian, Maltese, Spanish, and Turkish.")) |
144 '("European")) | |
145 | |
17993
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
146 |
18069
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
147 ;; Latin-4 (ISO-8859-4) |
17993
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
148 |
17052 | 149 (make-coding-system |
18203
0745f30aec66
Adjusted for coding system name change.
Kenichi Handa <handa@m17n.org>
parents:
18159
diff
changeset
|
150 'iso-latin-4 2 ?4 |
42152 | 151 "ISO 2022 based 8-bit encoding for Latin-4 (MIME:ISO-8859-4)." |
20743 | 152 '(ascii latin-iso8859-4 nil nil |
48389
77f983482547
(iso-latin-1): Make it safe.
Kenichi Handa <handa@m17n.org>
parents:
48041
diff
changeset
|
153 nil nil nil nil nil nil nil nil nil nil nil t) |
20743 | 154 '((safe-charsets ascii latin-iso8859-4) |
28702 | 155 (mime-charset . iso-8859-4))) |
17052 | 156 |
18520
383d11185239
Swap args to define-coding-system-alias.
Richard M. Stallman <rms@gnu.org>
parents:
18377
diff
changeset
|
157 (define-coding-system-alias 'iso-8859-4 'iso-latin-4) |
18622
fe2070df967e
(latin-1, latin-2. latin-3, latin-4, latin-5):
Richard M. Stallman <rms@gnu.org>
parents:
18543
diff
changeset
|
158 (define-coding-system-alias 'latin-4 'iso-latin-4) |
18203
0745f30aec66
Adjusted for coding system name change.
Kenichi Handa <handa@m17n.org>
parents:
18159
diff
changeset
|
159 |
17993
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
160 (set-language-info-alist |
22980
5681e7798ce9
(setup-8-bit-environment): Function deleted.
Kenichi Handa <handa@m17n.org>
parents:
22726
diff
changeset
|
161 "Latin-4" '((charset ascii latin-iso8859-4) |
20743 | 162 (coding-system iso-8859-4) |
163 (coding-priority iso-8859-4) | |
22980
5681e7798ce9
(setup-8-bit-environment): Function deleted.
Kenichi Handa <handa@m17n.org>
parents:
22726
diff
changeset
|
164 (nonascii-translation . latin-iso8859-4) |
22726
e44440f1a80e
Define unibyte-syntax in each of these language environments.
Richard M. Stallman <rms@gnu.org>
parents:
22075
diff
changeset
|
165 (unibyte-syntax . "latin-4") |
22980
5681e7798ce9
(setup-8-bit-environment): Function deleted.
Kenichi Handa <handa@m17n.org>
parents:
22726
diff
changeset
|
166 (unibyte-display . iso-8859-4) |
36870
afe2778e4c9d
("Latin-5", "Latin-4"): Use postfix input
Gerd Moellmann <gerd@gnu.org>
parents:
35350
diff
changeset
|
167 (input-method . "latin-4-postfix") |
20743 | 168 (documentation . "\ |
18117
5db3b24f2c5c
(iso-8859-1): Use `1' for mode line.
Richard M. Stallman <rms@gnu.org>
parents:
18069
diff
changeset
|
169 These languages are supported with the Latin-4 (ISO-8859-4) character set: |
5db3b24f2c5c
(iso-8859-1): Use `1' for mode line.
Richard M. Stallman <rms@gnu.org>
parents:
18069
diff
changeset
|
170 Danish, English, Estonian, Finnish, German, Greenlandic, Lappish, |
20743 | 171 Latvian, Lithuanian, and Norwegian.")) |
172 '("European")) | |
173 | |
17993
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
174 |
18069
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
175 ;; Latin-5 (ISO-8859-9) |
17993
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
176 |
17052 | 177 (make-coding-system |
18203
0745f30aec66
Adjusted for coding system name change.
Kenichi Handa <handa@m17n.org>
parents:
18159
diff
changeset
|
178 'iso-latin-5 2 ?9 |
42152 | 179 "ISO 2022 based 8-bit encoding for Latin-5 (MIME:ISO-8859-9)." |
20743 | 180 '(ascii latin-iso8859-9 nil nil |
48389
77f983482547
(iso-latin-1): Make it safe.
Kenichi Handa <handa@m17n.org>
parents:
48041
diff
changeset
|
181 nil nil nil nil nil nil nil nil nil nil nil t) |
20743 | 182 '((safe-charsets ascii latin-iso8859-9) |
183 (mime-charset . iso-8859-9))) | |
17052 | 184 |
18520
383d11185239
Swap args to define-coding-system-alias.
Richard M. Stallman <rms@gnu.org>
parents:
18377
diff
changeset
|
185 (define-coding-system-alias 'iso-8859-9 'iso-latin-5) |
18622
fe2070df967e
(latin-1, latin-2. latin-3, latin-4, latin-5):
Richard M. Stallman <rms@gnu.org>
parents:
18543
diff
changeset
|
186 (define-coding-system-alias 'latin-5 'iso-latin-5) |
18203
0745f30aec66
Adjusted for coding system name change.
Kenichi Handa <handa@m17n.org>
parents:
18159
diff
changeset
|
187 |
17052 | 188 (set-language-info-alist |
22980
5681e7798ce9
(setup-8-bit-environment): Function deleted.
Kenichi Handa <handa@m17n.org>
parents:
22726
diff
changeset
|
189 "Latin-5" '((charset ascii latin-iso8859-9) |
20743 | 190 (coding-system iso-latin-5) |
191 (coding-priority iso-latin-5) | |
22980
5681e7798ce9
(setup-8-bit-environment): Function deleted.
Kenichi Handa <handa@m17n.org>
parents:
22726
diff
changeset
|
192 (nonascii-translation . latin-iso8859-9) |
22726
e44440f1a80e
Define unibyte-syntax in each of these language environments.
Richard M. Stallman <rms@gnu.org>
parents:
22075
diff
changeset
|
193 (unibyte-syntax . "latin-5") |
22980
5681e7798ce9
(setup-8-bit-environment): Function deleted.
Kenichi Handa <handa@m17n.org>
parents:
22726
diff
changeset
|
194 (unibyte-display . iso-latin-5) |
36870
afe2778e4c9d
("Latin-5", "Latin-4"): Use postfix input
Gerd Moellmann <gerd@gnu.org>
parents:
35350
diff
changeset
|
195 (input-method . "latin-5-postfix") |
42353
06cba78a5cdd
Fix the doc string of "Latin-5" language environment.
Eli Zaretskii <eliz@gnu.org>
parents:
42194
diff
changeset
|
196 (documentation . "Support for Turkish language.")) |
20743 | 197 '("European")) |
198 | |
199 | |
26014
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
200 ;; Latin-8 (ISO-8859-14) |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
201 |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
202 (make-coding-system |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
203 'iso-latin-8 2 ?W ; `W' for `Welsh', since `C' |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
204 ; for `Celtic' is taken. |
42152 | 205 "ISO 2022 based 8-bit encoding for Latin-8 (MIME:ISO-8859-14)." |
26014
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
206 '(ascii latin-iso8859-14 nil nil |
48389
77f983482547
(iso-latin-1): Make it safe.
Kenichi Handa <handa@m17n.org>
parents:
48041
diff
changeset
|
207 nil nil nil nil nil nil nil nil nil nil nil t t) |
26014
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
208 '((safe-charsets ascii latin-iso8859-14) |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
209 (mime-charset . iso-8859-14))) |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
210 |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
211 (define-coding-system-alias 'iso-8859-14 'iso-latin-8) |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
212 (define-coding-system-alias 'latin-8 'iso-latin-8) |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
213 |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
214 (set-language-info-alist |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
215 "Latin-8" '((charset ascii latin-iso8859-14) |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
216 (coding-system iso-latin-8) |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
217 (coding-priority iso-latin-8) |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
218 (nonascii-translation . latin-iso8859-14) |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
219 (unibyte-syntax . "latin-8") |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
220 (unibyte-display . iso-latin-8) |
31155
3362938ebbd7
("Latin-8", "Latin-9"): Add input methods,
Dave Love <fx@gnu.org>
parents:
30261
diff
changeset
|
221 (input-method . "latin-8-prefix") |
3362938ebbd7
("Latin-8", "Latin-9"): Add input methods,
Dave Love <fx@gnu.org>
parents:
30261
diff
changeset
|
222 ;; Fixme: Welsh/Ga{e}lic greetings |
3362938ebbd7
("Latin-8", "Latin-9"): Add input methods,
Dave Love <fx@gnu.org>
parents:
30261
diff
changeset
|
223 (sample-text . ",_"(B ,_p(B ,_^(B") |
26014
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
224 (documentation . "\ |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
225 This language environment is a generic one for the Latin-8 (ISO-8859-14) |
31155
3362938ebbd7
("Latin-8", "Latin-9"): Add input methods,
Dave Love <fx@gnu.org>
parents:
30261
diff
changeset
|
226 character set which supports the Celtic languages, including those not |
42152 | 227 covered by other ISO-8859 character sets: |
228 Welsh, Manx Gaelic and Irish Gaelic (old orthography).")) | |
26014
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
229 '("European")) |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
230 |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
231 ;; Latin-9 (ISO-8859-15) |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
232 |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
233 (make-coding-system |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
234 'iso-latin-9 2 ?0 ; `0' for `Latin-0' |
42152 | 235 "ISO 2022 based 8-bit encoding for Latin-9 (MIME:ISO-8859-15)." |
26014
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
236 '(ascii latin-iso8859-15 nil nil |
48389
77f983482547
(iso-latin-1): Make it safe.
Kenichi Handa <handa@m17n.org>
parents:
48041
diff
changeset
|
237 nil nil nil nil nil nil nil nil nil nil nil t t) |
26014
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
238 '((safe-charsets ascii latin-iso8859-15) |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
239 (mime-charset . iso-8859-15))) |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
240 |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
241 (define-coding-system-alias 'iso-8859-15 'iso-latin-9) |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
242 (define-coding-system-alias 'latin-9 'iso-latin-9) |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
243 (define-coding-system-alias 'latin-0 'iso-latin-9) |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
244 |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
245 (set-language-info-alist |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
246 "Latin-9" '((charset ascii latin-iso8859-15) |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
247 (coding-system iso-latin-9) |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
248 (coding-priority iso-latin-9) |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
249 (nonascii-translation . latin-iso8859-15) |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
250 (unibyte-syntax . "latin-9") |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
251 (unibyte-display . iso-latin-9) |
31155
3362938ebbd7
("Latin-8", "Latin-9"): Add input methods,
Dave Love <fx@gnu.org>
parents:
30261
diff
changeset
|
252 (input-method . "latin-9-prefix") |
26014
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
253 (sample-text |
31155
3362938ebbd7
("Latin-8", "Latin-9"): Add input methods,
Dave Love <fx@gnu.org>
parents:
30261
diff
changeset
|
254 . "AVE. ,b&(48<=>(B ,b$(B") |
26014
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
255 (documentation . "\ |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
256 This language environment is a generic one for the Latin-9 (ISO-8859-15) |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
257 character set which supports the same languages as Latin-1 with the |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
258 addition of the Euro sign and some additional French and Finnish letters. |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
259 Latin-9 is sometimes nicknamed `Latin-0'.")) |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
260 '("European")) |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
261 |
20743 | 262 (set-language-info-alist |
49633
b7ecf0c51886
Add Slovenian to the deoc string fro language-info-alist.
Francesco Potortì <pot@gnu.org>
parents:
49631
diff
changeset
|
263 "Dutch" '((tutorial . "TUTORIAL.nl") |
b7ecf0c51886
Add Slovenian to the deoc string fro language-info-alist.
Francesco Potortì <pot@gnu.org>
parents:
49631
diff
changeset
|
264 (charset ascii latin-iso8859-1) |
b7ecf0c51886
Add Slovenian to the deoc string fro language-info-alist.
Francesco Potortì <pot@gnu.org>
parents:
49631
diff
changeset
|
265 (coding-system iso-latin-1 iso-latin-9) |
b7ecf0c51886
Add Slovenian to the deoc string fro language-info-alist.
Francesco Potortì <pot@gnu.org>
parents:
49631
diff
changeset
|
266 (coding-priority iso-latin-1) |
b7ecf0c51886
Add Slovenian to the deoc string fro language-info-alist.
Francesco Potortì <pot@gnu.org>
parents:
49631
diff
changeset
|
267 (nonascii-translation . latin-iso8859-1) |
b7ecf0c51886
Add Slovenian to the deoc string fro language-info-alist.
Francesco Potortì <pot@gnu.org>
parents:
49631
diff
changeset
|
268 (unibyte-syntax . "latin-1") |
b7ecf0c51886
Add Slovenian to the deoc string fro language-info-alist.
Francesco Potortì <pot@gnu.org>
parents:
49631
diff
changeset
|
269 (unibyte-display . iso-latin-1) |
b7ecf0c51886
Add Slovenian to the deoc string fro language-info-alist.
Francesco Potortì <pot@gnu.org>
parents:
49631
diff
changeset
|
270 (input-method . "dutch") |
b7ecf0c51886
Add Slovenian to the deoc string fro language-info-alist.
Francesco Potortì <pot@gnu.org>
parents:
49631
diff
changeset
|
271 (sample-text . "Er is een aantal manieren waarop je dit kan doen") |
b7ecf0c51886
Add Slovenian to the deoc string fro language-info-alist.
Francesco Potortì <pot@gnu.org>
parents:
49631
diff
changeset
|
272 (documentation . "\ |
b7ecf0c51886
Add Slovenian to the deoc string fro language-info-alist.
Francesco Potortì <pot@gnu.org>
parents:
49631
diff
changeset
|
273 This language environment is almost the same as Latin-1, |
b7ecf0c51886
Add Slovenian to the deoc string fro language-info-alist.
Francesco Potortì <pot@gnu.org>
parents:
49631
diff
changeset
|
274 but it selects the Dutch tutorial and input method.")) |
b7ecf0c51886
Add Slovenian to the deoc string fro language-info-alist.
Francesco Potortì <pot@gnu.org>
parents:
49631
diff
changeset
|
275 '("European")) |
b7ecf0c51886
Add Slovenian to the deoc string fro language-info-alist.
Francesco Potortì <pot@gnu.org>
parents:
49631
diff
changeset
|
276 |
b7ecf0c51886
Add Slovenian to the deoc string fro language-info-alist.
Francesco Potortì <pot@gnu.org>
parents:
49631
diff
changeset
|
277 (set-language-info-alist |
22980
5681e7798ce9
(setup-8-bit-environment): Function deleted.
Kenichi Handa <handa@m17n.org>
parents:
22726
diff
changeset
|
278 "German" '((tutorial . "TUTORIAL.de") |
20743 | 279 (charset ascii latin-iso8859-1) |
46672
cbba2fbd2b85
("German", "French", "Spanish", "Turkish"):
Dave Love <fx@gnu.org>
parents:
43734
diff
changeset
|
280 (coding-system iso-latin-1 iso-latin-9) |
20743 | 281 (coding-priority iso-latin-1) |
23050 | 282 (input-method . "german-postfix") |
49043 | 283 (nonascii-translation . latin-iso8859-1) |
22726
e44440f1a80e
Define unibyte-syntax in each of these language environments.
Richard M. Stallman <rms@gnu.org>
parents:
22075
diff
changeset
|
284 (unibyte-syntax . "latin-1") |
22980
5681e7798ce9
(setup-8-bit-environment): Function deleted.
Kenichi Handa <handa@m17n.org>
parents:
22726
diff
changeset
|
285 (unibyte-display . iso-latin-1) |
20743 | 286 (sample-text . "\ |
287 German (Deutsch Nord) Guten Tag | |
288 German (Deutsch S,A|(Bd) Gr,A|_(B Gott") | |
289 (documentation . "\ | |
290 This language environment is almost the same as Latin-1, | |
42194 | 291 but sets the default input method to \"german-postfix\". |
292 Additionally, it selects the German tutorial.")) | |
20743 | 293 '("European")) |
17302
1012d679efd4
English related codes are moved to
Kenichi Handa <handa@m17n.org>
parents:
17098
diff
changeset
|
294 |
24269
a29550b1d150
(setup-slovenian-environment): New function.
Richard M. Stallman <rms@gnu.org>
parents:
23158
diff
changeset
|
295 (set-language-info-alist |
41196
f8661b5a0670
("French"): New language environment.
Eli Zaretskii <eliz@gnu.org>
parents:
41115
diff
changeset
|
296 "French" '((tutorial . "TUTORIAL.fr") |
f8661b5a0670
("French"): New language environment.
Eli Zaretskii <eliz@gnu.org>
parents:
41115
diff
changeset
|
297 (charset ascii latin-iso8859-1) |
46672
cbba2fbd2b85
("German", "French", "Spanish", "Turkish"):
Dave Love <fx@gnu.org>
parents:
43734
diff
changeset
|
298 (coding-system iso-latin-1 iso-latin-9) |
41196
f8661b5a0670
("French"): New language environment.
Eli Zaretskii <eliz@gnu.org>
parents:
41115
diff
changeset
|
299 (coding-priority iso-latin-1) |
f8661b5a0670
("French"): New language environment.
Eli Zaretskii <eliz@gnu.org>
parents:
41115
diff
changeset
|
300 (nonascii-translation . latin-iso8859-1) |
f8661b5a0670
("French"): New language environment.
Eli Zaretskii <eliz@gnu.org>
parents:
41115
diff
changeset
|
301 (unibyte-syntax . "latin-1") |
f8661b5a0670
("French"): New language environment.
Eli Zaretskii <eliz@gnu.org>
parents:
41115
diff
changeset
|
302 (unibyte-display . iso-latin-1) |
f8661b5a0670
("French"): New language environment.
Eli Zaretskii <eliz@gnu.org>
parents:
41115
diff
changeset
|
303 (input-method . "latin-1-prefix") |
f8661b5a0670
("French"): New language environment.
Eli Zaretskii <eliz@gnu.org>
parents:
41115
diff
changeset
|
304 (sample-text . "French (Fran,Ag(Bais) Bonjour, Salut") |
f8661b5a0670
("French"): New language environment.
Eli Zaretskii <eliz@gnu.org>
parents:
41115
diff
changeset
|
305 (documentation . "\ |
f8661b5a0670
("French"): New language environment.
Eli Zaretskii <eliz@gnu.org>
parents:
41115
diff
changeset
|
306 This language environment is almost the same as Latin-1, |
49641
fe28719083ea
("French", "Slovenian"): Fix doc strings.
Francesco Potortì <pot@gnu.org>
parents:
49633
diff
changeset
|
307 but it selects the French tutorial and input method.")) |
41196
f8661b5a0670
("French"): New language environment.
Eli Zaretskii <eliz@gnu.org>
parents:
41115
diff
changeset
|
308 '("European")) |
f8661b5a0670
("French"): New language environment.
Eli Zaretskii <eliz@gnu.org>
parents:
41115
diff
changeset
|
309 |
f8661b5a0670
("French"): New language environment.
Eli Zaretskii <eliz@gnu.org>
parents:
41115
diff
changeset
|
310 (set-language-info-alist |
49631
7b1e2c5a193b
Italian greeting changed.
Francesco Potortì <pot@gnu.org>
parents:
49598
diff
changeset
|
311 "Italian" '((tutorial . "TUTORIAL.it") |
7b1e2c5a193b
Italian greeting changed.
Francesco Potortì <pot@gnu.org>
parents:
49598
diff
changeset
|
312 (charset ascii latin-iso8859-1) |
7b1e2c5a193b
Italian greeting changed.
Francesco Potortì <pot@gnu.org>
parents:
49598
diff
changeset
|
313 (coding-system iso-latin-1 iso-latin-9) |
7b1e2c5a193b
Italian greeting changed.
Francesco Potortì <pot@gnu.org>
parents:
49598
diff
changeset
|
314 (coding-priority iso-latin-1) |
7b1e2c5a193b
Italian greeting changed.
Francesco Potortì <pot@gnu.org>
parents:
49598
diff
changeset
|
315 (nonascii-translation . latin-iso8859-1) |
7b1e2c5a193b
Italian greeting changed.
Francesco Potortì <pot@gnu.org>
parents:
49598
diff
changeset
|
316 (unibyte-syntax . "latin-1") |
7b1e2c5a193b
Italian greeting changed.
Francesco Potortì <pot@gnu.org>
parents:
49598
diff
changeset
|
317 (unibyte-display . iso-latin-1) |
7b1e2c5a193b
Italian greeting changed.
Francesco Potortì <pot@gnu.org>
parents:
49598
diff
changeset
|
318 (input-method . "italian-postfix") |
7b1e2c5a193b
Italian greeting changed.
Francesco Potortì <pot@gnu.org>
parents:
49598
diff
changeset
|
319 (sample-text . "Salve, ciao!") |
7b1e2c5a193b
Italian greeting changed.
Francesco Potortì <pot@gnu.org>
parents:
49598
diff
changeset
|
320 (documentation . "\ |
7b1e2c5a193b
Italian greeting changed.
Francesco Potortì <pot@gnu.org>
parents:
49598
diff
changeset
|
321 This language environment is almost the same as Latin-1, |
7b1e2c5a193b
Italian greeting changed.
Francesco Potortì <pot@gnu.org>
parents:
49598
diff
changeset
|
322 but sets the default input method to \"italian-postfix\". |
7b1e2c5a193b
Italian greeting changed.
Francesco Potortì <pot@gnu.org>
parents:
49598
diff
changeset
|
323 Additionally, it selects the Italian tutorial.")) |
7b1e2c5a193b
Italian greeting changed.
Francesco Potortì <pot@gnu.org>
parents:
49598
diff
changeset
|
324 '("European")) |
7b1e2c5a193b
Italian greeting changed.
Francesco Potortì <pot@gnu.org>
parents:
49598
diff
changeset
|
325 |
7b1e2c5a193b
Italian greeting changed.
Francesco Potortì <pot@gnu.org>
parents:
49598
diff
changeset
|
326 (set-language-info-alist |
24269
a29550b1d150
(setup-slovenian-environment): New function.
Richard M. Stallman <rms@gnu.org>
parents:
23158
diff
changeset
|
327 "Slovenian" '((charset . (ascii latin-iso8859-2)) |
a29550b1d150
(setup-slovenian-environment): New function.
Richard M. Stallman <rms@gnu.org>
parents:
23158
diff
changeset
|
328 (coding-system . (iso-8859-2)) |
a29550b1d150
(setup-slovenian-environment): New function.
Richard M. Stallman <rms@gnu.org>
parents:
23158
diff
changeset
|
329 (coding-priority . (iso-8859-2)) |
a29550b1d150
(setup-slovenian-environment): New function.
Richard M. Stallman <rms@gnu.org>
parents:
23158
diff
changeset
|
330 (nonascii-translation . latin-iso8859-2) |
47910
729eccda4769
("Slovenian"): Use slovenian input-method.
Dave Love <fx@gnu.org>
parents:
47237
diff
changeset
|
331 (input-method . "slovenian") |
24269
a29550b1d150
(setup-slovenian-environment): New function.
Richard M. Stallman <rms@gnu.org>
parents:
23158
diff
changeset
|
332 (unibyte-syntax . "latin-2") |
a29550b1d150
(setup-slovenian-environment): New function.
Richard M. Stallman <rms@gnu.org>
parents:
23158
diff
changeset
|
333 (unibyte-display . iso-8859-2) |
a29550b1d150
(setup-slovenian-environment): New function.
Richard M. Stallman <rms@gnu.org>
parents:
23158
diff
changeset
|
334 (tutorial . "TUTORIAL.sl") |
a29550b1d150
(setup-slovenian-environment): New function.
Richard M. Stallman <rms@gnu.org>
parents:
23158
diff
changeset
|
335 (sample-text . ",B.(Belimo vam uspe,B9(Ben dan!") |
49641
fe28719083ea
("French", "Slovenian"): Fix doc strings.
Francesco Potortì <pot@gnu.org>
parents:
49633
diff
changeset
|
336 (documentation . "\ |
fe28719083ea
("French", "Slovenian"): Fix doc strings.
Francesco Potortì <pot@gnu.org>
parents:
49633
diff
changeset
|
337 This language environment is almost the same as Latin-2, |
fe28719083ea
("French", "Slovenian"): Fix doc strings.
Francesco Potortì <pot@gnu.org>
parents:
49633
diff
changeset
|
338 but it selects the Slovenian tutorial and input method.")) |
24269
a29550b1d150
(setup-slovenian-environment): New function.
Richard M. Stallman <rms@gnu.org>
parents:
23158
diff
changeset
|
339 '("European")) |
a29550b1d150
(setup-slovenian-environment): New function.
Richard M. Stallman <rms@gnu.org>
parents:
23158
diff
changeset
|
340 |
35161
0495de5487ae
Add Dutch and Spanish language info
Gerd Moellmann <gerd@gnu.org>
parents:
33513
diff
changeset
|
341 (set-language-info-alist |
0495de5487ae
Add Dutch and Spanish language info
Gerd Moellmann <gerd@gnu.org>
parents:
33513
diff
changeset
|
342 "Spanish" '((tutorial . "TUTORIAL.es") |
0495de5487ae
Add Dutch and Spanish language info
Gerd Moellmann <gerd@gnu.org>
parents:
33513
diff
changeset
|
343 (charset ascii latin-iso8859-1) |
46672
cbba2fbd2b85
("German", "French", "Spanish", "Turkish"):
Dave Love <fx@gnu.org>
parents:
43734
diff
changeset
|
344 (coding-system iso-latin-1 iso-latin-9) |
35161
0495de5487ae
Add Dutch and Spanish language info
Gerd Moellmann <gerd@gnu.org>
parents:
33513
diff
changeset
|
345 (coding-priority iso-latin-1) |
0495de5487ae
Add Dutch and Spanish language info
Gerd Moellmann <gerd@gnu.org>
parents:
33513
diff
changeset
|
346 (input-method . "spanish-postfix") |
49043 | 347 (nonascii-translation . latin-iso8859-1) |
35161
0495de5487ae
Add Dutch and Spanish language info
Gerd Moellmann <gerd@gnu.org>
parents:
33513
diff
changeset
|
348 (unibyte-syntax . "latin-1") |
0495de5487ae
Add Dutch and Spanish language info
Gerd Moellmann <gerd@gnu.org>
parents:
33513
diff
changeset
|
349 (unibyte-display . iso-latin-1) |
0495de5487ae
Add Dutch and Spanish language info
Gerd Moellmann <gerd@gnu.org>
parents:
33513
diff
changeset
|
350 (sample-text . "Spanish (Espa,Aq(Bol) ,A!(BHola!") |
0495de5487ae
Add Dutch and Spanish language info
Gerd Moellmann <gerd@gnu.org>
parents:
33513
diff
changeset
|
351 (documentation . "\ |
0495de5487ae
Add Dutch and Spanish language info
Gerd Moellmann <gerd@gnu.org>
parents:
33513
diff
changeset
|
352 This language environment is almost the same as Latin-1, |
42194 | 353 but it sets the default input method to \"spanish-postfix\", |
41115
20eb3e2945d7
(mac-roman): Add mime-charset property.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38436
diff
changeset
|
354 and it selects the Spanish tutorial.")) |
35161
0495de5487ae
Add Dutch and Spanish language info
Gerd Moellmann <gerd@gnu.org>
parents:
33513
diff
changeset
|
355 '("European")) |
0495de5487ae
Add Dutch and Spanish language info
Gerd Moellmann <gerd@gnu.org>
parents:
33513
diff
changeset
|
356 |
25773
20234157d093
("Turkish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
25228
diff
changeset
|
357 ;; For Turkish, the character set ISO-8859-9 (Latin-5) is used. But, |
20234157d093
("Turkish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
25228
diff
changeset
|
358 ;; before the introduction of ISO-8859-9 in 1988, ISO-8859-3 (Latin-3) |
20234157d093
("Turkish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
25228
diff
changeset
|
359 ;; was used for Turkish. Those who use Latin-3 for Turkish should use |
20234157d093
("Turkish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
25228
diff
changeset
|
360 ;; "Latin-3" language environment. |
20234157d093
("Turkish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
25228
diff
changeset
|
361 |
20234157d093
("Turkish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
25228
diff
changeset
|
362 (set-language-info-alist |
20234157d093
("Turkish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
25228
diff
changeset
|
363 "Turkish" '((charset ascii latin-iso8859-9) |
46672
cbba2fbd2b85
("German", "French", "Spanish", "Turkish"):
Dave Love <fx@gnu.org>
parents:
43734
diff
changeset
|
364 (coding-system iso-latin-5 iso-latin-3) |
25773
20234157d093
("Turkish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
25228
diff
changeset
|
365 (coding-priority iso-latin-5) |
20234157d093
("Turkish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
25228
diff
changeset
|
366 (nonascii-translation . latin-iso8859-9) |
20234157d093
("Turkish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
25228
diff
changeset
|
367 (unibyte-syntax . "latin-5") |
20234157d093
("Turkish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
25228
diff
changeset
|
368 (unibyte-display . iso-latin-5) |
20234157d093
("Turkish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
25228
diff
changeset
|
369 (input-method . "turkish-postfix") |
20234157d093
("Turkish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
25228
diff
changeset
|
370 (sample-text . "Turkish (T,M|(Brk,Mg(Be) Merhaba") |
20234157d093
("Turkish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
25228
diff
changeset
|
371 (documentation . t))) |
20234157d093
("Turkish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
25228
diff
changeset
|
372 |
28436
2dbedede8507
("Polish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
26134
diff
changeset
|
373 ;; Polish ISO 8859-2 environment. |
2dbedede8507
("Polish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
26134
diff
changeset
|
374 ;; Maintainer: Wlodek Bzyl <matwb@univ.gda.pl> |
2dbedede8507
("Polish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
26134
diff
changeset
|
375 ;; Keywords: multilingual, Polish |
2dbedede8507
("Polish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
26134
diff
changeset
|
376 |
2dbedede8507
("Polish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
26134
diff
changeset
|
377 (set-language-info-alist |
2dbedede8507
("Polish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
26134
diff
changeset
|
378 "Polish" '((charset . (ascii latin-iso8859-2)) |
2dbedede8507
("Polish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
26134
diff
changeset
|
379 (coding-system . (iso-8859-2)) |
2dbedede8507
("Polish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
26134
diff
changeset
|
380 (coding-priority . (iso-8859-2)) |
2dbedede8507
("Polish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
26134
diff
changeset
|
381 (input-method . "polish-slash") |
2dbedede8507
("Polish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
26134
diff
changeset
|
382 (nonascii-translation . latin-iso8859-2) |
2dbedede8507
("Polish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
26134
diff
changeset
|
383 (unibyte-syntax . "latin-2") |
2dbedede8507
("Polish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
26134
diff
changeset
|
384 (unibyte-display . iso-8859-2) |
2dbedede8507
("Polish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
26134
diff
changeset
|
385 (tutorial . "TUTORIAL.pl") |
37298
d377298f0844
("Polish"): Change sample text.
Gerd Moellmann <gerd@gnu.org>
parents:
36870
diff
changeset
|
386 (sample-text . "P,Bs(Bjd,B<(B, ki,Bq(B-,B?(Be t,Bj(B chmurno,B6f(B w g,B31(Bb flaszy") |
28436
2dbedede8507
("Polish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
26134
diff
changeset
|
387 (documentation . t)) |
2dbedede8507
("Polish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
26134
diff
changeset
|
388 '("European")) |
2dbedede8507
("Polish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
26134
diff
changeset
|
389 |
42051
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
390 (set-language-info-alist |
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
391 "Welsh" `((coding-system utf-8 latin-8) ; the input method is Unicode-based |
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
392 (coding-priority utf-8 latin-8) |
49043 | 393 (nonascii-translation . latin-iso8859-14) |
42051
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
394 (input-method . "welsh") |
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
395 (documentation . "Support for Welsh, using Unicode.")) |
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
396 '("European")) |
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
397 |
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
398 (set-language-info-alist |
49043 | 399 "Latin-6" `((coding-system latin-6) |
400 (coding-priority latin-6) | |
401 (nonascii-translation . ,(get 'decode-iso-latin-6 'translation-table)) | |
50194
dc8403640b05
("Latin-6"): Fix input-method.
Kenichi Handa <handa@m17n.org>
parents:
50117
diff
changeset
|
402 (input-method . "latin-prefix") |
49043 | 403 (features code-pages) |
404 (documentation . "Support for Latin-6.")) | |
405 '("European")) | |
406 | |
407 (set-language-info-alist | |
42051
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
408 "Latin-7" `((coding-system latin-7) |
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
409 (coding-priority latin-7) |
49043 | 410 (nonascii-translation . ,(get 'decode-iso-latin-7 |
411 'translation-table)) | |
50194
dc8403640b05
("Latin-6"): Fix input-method.
Kenichi Handa <handa@m17n.org>
parents:
50117
diff
changeset
|
412 (input-method . "latin-prefix") |
42051
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
413 (features code-pages) |
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
414 (documentation . "Support for Latin-7, e.g. Latvian, Lithuanian.")) |
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
415 '("European")) |
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
416 |
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
417 (set-language-info-alist |
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
418 "Lithuanian" `((coding-system latin-7) |
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
419 (coding-priority latin-7) |
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
420 (input-method . "lithuanian-keyboard") |
49043 | 421 (nonascii-translation . ,(get 'decode-iso-latin-7 |
422 'translation-table)) | |
42051
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
423 (features code-pages) |
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
424 (documentation . "Support for Lithuanian.")) |
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
425 '("European")) |
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
426 |
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
427 (set-language-info-alist |
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
428 "Latvian" `((coding-system latin-7) |
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
429 (coding-priority latin-7) |
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
430 (input-method . "latvian-keyboard") |
49043 | 431 (nonascii-translation . ,(get 'decode-iso-latin-7 |
432 'translation-table)) | |
42051
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
433 (features code-pages) |
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
434 (documentation . "Support for Latvian.")) |
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
435 '("European")) |
47237
fd8d01195320
("Swedish"): New set-language-info-alist call.
Richard M. Stallman <rms@gnu.org>
parents:
46672
diff
changeset
|
436 |
fd8d01195320
("Swedish"): New set-language-info-alist call.
Richard M. Stallman <rms@gnu.org>
parents:
46672
diff
changeset
|
437 (set-language-info-alist |
48779
c75e2941ff7e
("Swedish"): Change tutorial file name to
Kenichi Handa <handa@m17n.org>
parents:
48546
diff
changeset
|
438 "Swedish" '((tutorial . "TUTORIAL.sv") |
47237
fd8d01195320
("Swedish"): New set-language-info-alist call.
Richard M. Stallman <rms@gnu.org>
parents:
46672
diff
changeset
|
439 (charset ascii latin-iso8859-1) |
fd8d01195320
("Swedish"): New set-language-info-alist call.
Richard M. Stallman <rms@gnu.org>
parents:
46672
diff
changeset
|
440 (coding-system iso-latin-1) |
fd8d01195320
("Swedish"): New set-language-info-alist call.
Richard M. Stallman <rms@gnu.org>
parents:
46672
diff
changeset
|
441 (coding-priority iso-latin-1) |
49043 | 442 (nonascii-translation . latin-iso8859-1) |
47237
fd8d01195320
("Swedish"): New set-language-info-alist call.
Richard M. Stallman <rms@gnu.org>
parents:
46672
diff
changeset
|
443 (unibyte-syntax . "latin-1") |
fd8d01195320
("Swedish"): New set-language-info-alist call.
Richard M. Stallman <rms@gnu.org>
parents:
46672
diff
changeset
|
444 (unibyte-display . iso-latin-1) |
fd8d01195320
("Swedish"): New set-language-info-alist call.
Richard M. Stallman <rms@gnu.org>
parents:
46672
diff
changeset
|
445 (sample-text . "Goddag Hej") |
fd8d01195320
("Swedish"): New set-language-info-alist call.
Richard M. Stallman <rms@gnu.org>
parents:
46672
diff
changeset
|
446 (documentation . "Support for Swedish")) |
fd8d01195320
("Swedish"): New set-language-info-alist call.
Richard M. Stallman <rms@gnu.org>
parents:
46672
diff
changeset
|
447 '("European")) |
49043 | 448 |
449 (set-language-info-alist | |
450 "Croatian" '((charset . (ascii latin-iso8859-2)) | |
451 (coding-system . (iso-8859-2)) | |
452 (coding-priority . (iso-8859-2)) | |
453 (input-method . "croatian") | |
454 (nonascii-translation . latin-iso8859-2) | |
455 (unibyte-syntax . "latin-2") | |
456 (unibyte-display . iso-8859-2) | |
457 (documentation . "Support for Croatian with Latin-2 encoding.")) | |
458 '("European")) | |
55586
37214f38ace4
2004-05-13 Marcelo Toledo <marcelo@marcelotoledo.org>
David Kastrup <dak@gnu.org>
parents:
53009
diff
changeset
|
459 |
37214f38ace4
2004-05-13 Marcelo Toledo <marcelo@marcelotoledo.org>
David Kastrup <dak@gnu.org>
parents:
53009
diff
changeset
|
460 (set-language-info-alist |
37214f38ace4
2004-05-13 Marcelo Toledo <marcelo@marcelotoledo.org>
David Kastrup <dak@gnu.org>
parents:
53009
diff
changeset
|
461 "Brazilian Portuguese" '((tutorial . "TUTORIAL.pt_BR") |
37214f38ace4
2004-05-13 Marcelo Toledo <marcelo@marcelotoledo.org>
David Kastrup <dak@gnu.org>
parents:
53009
diff
changeset
|
462 (charset ascii latin-iso8859-1) |
37214f38ace4
2004-05-13 Marcelo Toledo <marcelo@marcelotoledo.org>
David Kastrup <dak@gnu.org>
parents:
53009
diff
changeset
|
463 (coding-system iso-latin-1 iso-latin-9) |
37214f38ace4
2004-05-13 Marcelo Toledo <marcelo@marcelotoledo.org>
David Kastrup <dak@gnu.org>
parents:
53009
diff
changeset
|
464 (coding-priority iso-latin-1) |
37214f38ace4
2004-05-13 Marcelo Toledo <marcelo@marcelotoledo.org>
David Kastrup <dak@gnu.org>
parents:
53009
diff
changeset
|
465 (nonascii-translation . latin-iso8859-1) |
37214f38ace4
2004-05-13 Marcelo Toledo <marcelo@marcelotoledo.org>
David Kastrup <dak@gnu.org>
parents:
53009
diff
changeset
|
466 (unibyte-syntax . "latin-1") |
37214f38ace4
2004-05-13 Marcelo Toledo <marcelo@marcelotoledo.org>
David Kastrup <dak@gnu.org>
parents:
53009
diff
changeset
|
467 (unibyte-display . iso-latin-1) |
37214f38ace4
2004-05-13 Marcelo Toledo <marcelo@marcelotoledo.org>
David Kastrup <dak@gnu.org>
parents:
53009
diff
changeset
|
468 (input-method . "latin-1-prefix") |
37214f38ace4
2004-05-13 Marcelo Toledo <marcelo@marcelotoledo.org>
David Kastrup <dak@gnu.org>
parents:
53009
diff
changeset
|
469 (sample-text . "Oi") |
37214f38ace4
2004-05-13 Marcelo Toledo <marcelo@marcelotoledo.org>
David Kastrup <dak@gnu.org>
parents:
53009
diff
changeset
|
470 (documentation . "Support for Brazilian Portuguese.")) |
37214f38ace4
2004-05-13 Marcelo Toledo <marcelo@marcelotoledo.org>
David Kastrup <dak@gnu.org>
parents:
53009
diff
changeset
|
471 '("European")) |
33049
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
472 |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
473 ;; Definitions for the Mac Roman character sets and coding system. |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
474 ;; The Mac Roman encoding uses all 128 code points in the range 128 to |
33513 | 475 ;; 255 for actual characters. Emacs decodes them to one of the |
33049
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
476 ;; following character sets. |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
477 ;; ascii, latin-iso8859-1, mule-unicode-0100-24ff, |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
478 ;; mule-unicode-2500-33ff, mule-unicode-e000-ffff |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
479 |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
480 (let |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
481 ((encoding-vector (make-vector 256 nil)) |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
482 (i 0) |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
483 (vec ;; mac-roman (128..255) -> UCS mapping |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
484 [ #x00C4 ;; 128:LATIN CAPITAL LETTER A WITH DIAERESIS |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
485 #x00C5 ;; 129:LATIN CAPITAL LETTER A WITH RING ABOVE |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
486 #x00C7 ;; 130:LATIN CAPITAL LETTER C WITH CEDILLA |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
487 #x00C9 ;; 131:LATIN CAPITAL LETTER E WITH ACUTE |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
488 #x00D1 ;; 132:LATIN CAPITAL LETTER N WITH TILDE |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
489 #x00D6 ;; 133:LATIN CAPITAL LETTER O WITH DIAERESIS |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
490 #x00DC ;; 134:LATIN CAPITAL LETTER U WITH DIAERESIS |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
491 #x00E1 ;; 135:LATIN SMALL LETTER A WITH ACUTE |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
492 #x00E0 ;; 136:LATIN SMALL LETTER A WITH GRAVE |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
493 #x00E2 ;; 137:LATIN SMALL LETTER A WITH CIRCUMFLEX |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
494 #x00E4 ;; 138:LATIN SMALL LETTER A WITH DIAERESIS |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
495 #x00E3 ;; 139:LATIN SMALL LETTER A WITH TILDE |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
496 #x00E5 ;; 140:LATIN SMALL LETTER A WITH RING ABOVE |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
497 #x00E7 ;; 141:LATIN SMALL LETTER C WITH CEDILLA |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
498 #x00E9 ;; 142:LATIN SMALL LETTER E WITH ACUTE |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
499 #x00E8 ;; 143:LATIN SMALL LETTER E WITH GRAVE |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
500 #x00EA ;; 144:LATIN SMALL LETTER E WITH CIRCUMFLEX |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
501 #x00EB ;; 145:LATIN SMALL LETTER E WITH DIAERESIS |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
502 #x00ED ;; 146:LATIN SMALL LETTER I WITH ACUTE |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
503 #x00EC ;; 147:LATIN SMALL LETTER I WITH GRAVE |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
504 #x00EE ;; 148:LATIN SMALL LETTER I WITH CIRCUMFLEX |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
505 #x00EF ;; 149:LATIN SMALL LETTER I WITH DIAERESIS |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
506 #x00F1 ;; 150:LATIN SMALL LETTER N WITH TILDE |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
507 #x00F3 ;; 151:LATIN SMALL LETTER O WITH ACUTE |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
508 #x00F2 ;; 152:LATIN SMALL LETTER O WITH GRAVE |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
509 #x00F4 ;; 153:LATIN SMALL LETTER O WITH CIRCUMFLEX |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
510 #x00F6 ;; 154:LATIN SMALL LETTER O WITH DIAERESIS |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
511 #x00F5 ;; 155:LATIN SMALL LETTER O WITH TILDE |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
512 #x00FA ;; 156:LATIN SMALL LETTER U WITH ACUTE |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
513 #x00F9 ;; 157:LATIN SMALL LETTER U WITH GRAVE |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
514 #x00FB ;; 158:LATIN SMALL LETTER U WITH CIRCUMFLEX |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
515 #x00FC ;; 159:LATIN SMALL LETTER U WITH DIAERESIS |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
516 #x2020 ;; 160:DAGGER |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
517 #x00B0 ;; 161:DEGREE SIGN |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
518 #x00A2 ;; 162:CENT SIGN |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
519 #x00A3 ;; 163:POUND SIGN |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
520 #x00A7 ;; 164:SECTION SIGN |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
521 #x2022 ;; 165:BULLET |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
522 #x00B6 ;; 166:PILCROW SIGN |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
523 #x00DF ;; 167:LATIN SMALL LETTER SHARP S |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
524 #x00AE ;; 168:REGISTERED SIGN |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
525 #x00A9 ;; 169:COPYRIGHT SIGN |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
526 #x2122 ;; 170:TRADE MARK SIGN |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
527 #x00B4 ;; 171:ACUTE ACCENT |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
528 #x00A8 ;; 172:DIAERESIS |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
529 #x2260 ;; 173:NOT EQUAL TO |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
530 #x00C6 ;; 174:LATIN CAPITAL LETTER AE |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
531 #x00D8 ;; 175:LATIN CAPITAL LETTER O WITH STROKE |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
532 #x221E ;; 176:INFINITY |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
533 #x00B1 ;; 177:PLUS-MINUS SIGN |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
534 #x2264 ;; 178:LESS-THAN OR EQUAL TO |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
535 #x2265 ;; 179:GREATER-THAN OR EQUAL TO |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
536 #x00A5 ;; 180:YEN SIGN |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
537 #x00B5 ;; 181:MICRO SIGN |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
538 #x2202 ;; 182:PARTIAL DIFFERENTIAL |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
539 #x2211 ;; 183:N-ARY SUMMATION |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
540 #x220F ;; 184:N-ARY PRODUCT |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
541 #x03C0 ;; 185:GREEK SMALL LETTER PI |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
542 #x222B ;; 186:INTEGRAL |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
543 #x00AA ;; 187:FEMININE ORDINAL INDICATOR |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
544 #x00BA ;; 188:MASCULINE ORDINAL INDICATOR |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
545 #x03A9 ;; 189:GREEK CAPITAL LETTER OMEGA |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
546 #x00E6 ;; 190:LATIN SMALL LETTER AE |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
547 #x00F8 ;; 191:LATIN SMALL LETTER O WITH STROKE |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
548 #x00BF ;; 192:INVERTED QUESTION MARK |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
549 #x00A1 ;; 193:INVERTED EXCLAMATION MARK |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
550 #x00AC ;; 194:NOT SIGN |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
551 #x221A ;; 195:SQUARE ROOT |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
552 #x0192 ;; 196:LATIN SMALL LETTER F WITH HOOK |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
553 #x2248 ;; 197:ALMOST EQUAL TO |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
554 #x2206 ;; 198:INCREMENT |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
555 #x00AB ;; 199:LEFT-POINTING DOUBLE ANGLE QUOTATION MARK |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
556 #x00BB ;; 200:RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
557 #x2026 ;; 201:HORIZONTAL ELLIPSIS |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
558 #x00A0 ;; 202:NO-BREAK SPACE |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
559 #x00C0 ;; 203:LATIN CAPITAL LETTER A WITH GRAVE |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
560 #x00C3 ;; 204:LATIN CAPITAL LETTER A WITH TILDE |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
561 #x00D5 ;; 205:LATIN CAPITAL LETTER O WITH TILDE |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
562 #x0152 ;; 206:LATIN CAPITAL LIGATURE OE |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
563 #x0153 ;; 207:LATIN SMALL LIGATURE OE |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
564 #x2013 ;; 208:EN DASH |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
565 #x2014 ;; 209:EM DASH |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
566 #x201C ;; 210:LEFT DOUBLE QUOTATION MARK |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
567 #x201D ;; 211:RIGHT DOUBLE QUOTATION MARK |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
568 #x2018 ;; 212:LEFT SINGLE QUOTATION MARK |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
569 #x2019 ;; 213:RIGHT SINGLE QUOTATION MARK |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
570 #x00F7 ;; 214:DIVISION SIGN |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
571 #x25CA ;; 215:LOZENGE |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
572 #x00FF ;; 216:LATIN SMALL LETTER Y WITH DIAERESIS |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
573 #x0178 ;; 217:LATIN CAPITAL LETTER Y WITH DIAERESIS |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
574 #x2044 ;; 218:FRACTION SLASH |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
575 #x20AC ;; 219:EURO SIGN |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
576 #x2039 ;; 220:SINGLE LEFT-POINTING ANGLE QUOTATION MARK |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
577 #x203A ;; 221:SINGLE RIGHT-POINTING ANGLE QUOTATION MARK |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
578 #xFB01 ;; 222:LATIN SMALL LIGATURE FI |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
579 #xFB02 ;; 223:LATIN SMALL LIGATURE FL |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
580 #x2021 ;; 224:DOUBLE DAGGER |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
581 #x00B7 ;; 225:MIDDLE DOT |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
582 #x201A ;; 226:SINGLE LOW-9 QUOTATION MARK |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
583 #x201E ;; 227:DOUBLE LOW-9 QUOTATION MARK |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
584 #x2030 ;; 228:PER MILLE SIGN |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
585 #x00C2 ;; 229:LATIN CAPITAL LETTER A WITH CIRCUMFLEX |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
586 #x00CA ;; 230:LATIN CAPITAL LETTER E WITH CIRCUMFLEX |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
587 #x00C1 ;; 231:LATIN CAPITAL LETTER A WITH ACUTE |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
588 #x00CB ;; 232:LATIN CAPITAL LETTER E WITH DIAERESIS |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
589 #x00C8 ;; 233:LATIN CAPITAL LETTER E WITH GRAVE |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
590 #x00CD ;; 234:LATIN CAPITAL LETTER I WITH ACUTE |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
591 #x00CE ;; 235:LATIN CAPITAL LETTER I WITH CIRCUMFLEX |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
592 #x00CF ;; 236:LATIN CAPITAL LETTER I WITH DIAERESIS |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
593 #x00CC ;; 237:LATIN CAPITAL LETTER I WITH GRAVE |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
594 #x00D3 ;; 238:LATIN CAPITAL LETTER O WITH ACUTE |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
595 #x00D4 ;; 239:LATIN CAPITAL LETTER O WITH CIRCUMFLEX |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
596 #xF8FF ;; 240:Apple logo |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
597 #x00D2 ;; 241:LATIN CAPITAL LETTER O WITH GRAVE |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
598 #x00DA ;; 242:LATIN CAPITAL LETTER U WITH ACUTE |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
599 #x00DB ;; 243:LATIN CAPITAL LETTER U WITH CIRCUMFLEX |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
600 #x00D9 ;; 244:LATIN CAPITAL LETTER U WITH GRAVE |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
601 #x0131 ;; 245:LATIN SMALL LETTER DOTLESS I |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
602 #x02C6 ;; 246:MODIFIER LETTER CIRCUMFLEX ACCENT |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
603 #x02DC ;; 247:SMALL TILDE |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
604 #x00AF ;; 248:MACRON |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
605 #x02D8 ;; 249:BREVE |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
606 #x02D9 ;; 250:DOT ABOVE |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
607 #x02DA ;; 251:RING ABOVE |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
608 #x00B8 ;; 252:CEDILLA |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
609 #x02DD ;; 253:DOUBLE ACUTE ACCENT |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
610 #x02DB ;; 254:OGONEK |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
611 #x02C7 ;; 255:CARON |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
612 ]) |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
613 translation-table) |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
614 (while (< i 128) |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
615 (aset encoding-vector i i) |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
616 (setq i (1+ i))) |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
617 (while (< i 256) |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
618 (aset encoding-vector i |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
619 (decode-char 'ucs (aref vec (- i 128)))) |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
620 (setq i (1+ i))) |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
621 (setq translation-table |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
622 (make-translation-table-from-vector encoding-vector)) |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
623 (define-translation-table 'mac-roman-decoder translation-table) |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49043
diff
changeset
|
624 (define-translation-table 'mac-roman-encoder |
33049
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
625 (char-table-extra-slot translation-table 0))) |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
626 |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
627 (define-ccl-program decode-mac-roman |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
628 `(4 |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
629 ((loop |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
630 (read r1) |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
631 (if (r1 < 128) ;; ASCII |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
632 (r0 = ,(charset-id 'ascii)) |
33203
e91d2b7a0908
(decode-mac-roman): Test against r1 not r0.
Jason Rumney <jasonr@gnu.org>
parents:
33049
diff
changeset
|
633 (if (r1 < 160) |
33049
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
634 (r0 = ,(charset-id 'eight-bit-control)) |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
635 (r0 = ,(charset-id 'eight-bit-graphic)))) |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
636 (translate-character mac-roman-decoder r0 r1) |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
637 (write-multibyte-character r0 r1) |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
638 (repeat)))) |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
639 "CCL program to decode Mac Roman") |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
640 |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
641 (define-ccl-program encode-mac-roman |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
642 `(1 |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
643 ((loop |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
644 (read-multibyte-character r0 r1) |
47910
729eccda4769
("Slovenian"): Use slovenian input-method.
Dave Love <fx@gnu.org>
parents:
47237
diff
changeset
|
645 (translate-character ucs-mule-to-mule-unicode r0 r1) |
33049
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
646 (translate-character mac-roman-encoder r0 r1) |
48830
47d70e67763f
(encode-mac-roman): Fix last change.
Kenichi Handa <handa@m17n.org>
parents:
48779
diff
changeset
|
647 (if (r0 != ,(charset-id 'ascii)) |
47d70e67763f
(encode-mac-roman): Fix last change.
Kenichi Handa <handa@m17n.org>
parents:
48779
diff
changeset
|
648 (if (r0 != ,(charset-id 'eight-bit-graphic)) |
47d70e67763f
(encode-mac-roman): Fix last change.
Kenichi Handa <handa@m17n.org>
parents:
48779
diff
changeset
|
649 (if (r0 != ,(charset-id 'eight-bit-control)) |
47d70e67763f
(encode-mac-roman): Fix last change.
Kenichi Handa <handa@m17n.org>
parents:
48779
diff
changeset
|
650 (r1 = ??)))) |
33049
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
651 (write-repeat r1)))) |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
652 "CCL program to encode Mac Roman") |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
653 |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
654 (make-coding-system |
42152 | 655 'mac-roman 4 ?M |
656 "Mac Roman Encoding (MIME:MACINTOSH)." | |
33049
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
657 '(decode-mac-roman . encode-mac-roman) |
43734
ff1f9768901a
(mac-roman): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents:
43730
diff
changeset
|
658 (list (cons 'safe-chars (get 'mac-roman-encoder 'translation-table)) |
ff1f9768901a
(mac-roman): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents:
43730
diff
changeset
|
659 '(valid-codes (0 . 255)) |
ff1f9768901a
(mac-roman): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents:
43730
diff
changeset
|
660 '(mime-charset . macintosh))) ; per IANA, rfc1345 |
33049
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
661 |
41875
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
662 (defconst diacritic-composition-pattern "\\C^\\c^+") |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
663 |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
664 (defun diacritic-compose-region (beg end) |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
665 "Compose diacritic characters in the region. |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
666 When called from a program, expects two arguments, |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
667 positions (integers or markers) specifying the region." |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
668 (interactive "r") |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
669 (save-restriction |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
670 (narrow-to-region beg end) |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
671 (goto-char (point-min)) |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
672 (while (re-search-forward diacritic-composition-pattern nil t) |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
673 (compose-region (match-beginning 0) (match-end 0))))) |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
674 |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
675 (defun diacritic-compose-string (string) |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
676 "Compose diacritic characters in STRING and return the resulting string." |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
677 (let ((idx 0)) |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
678 (while (setq idx (string-match diacritic-composition-pattern string idx)) |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
679 (compose-string string idx (match-end 0)) |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
680 (setq idx (match-end 0)))) |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
681 string) |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49043
diff
changeset
|
682 |
41875
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
683 (defun diacritic-compose-buffer () |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
684 "Compose diacritic characters in the current buffer." |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
685 (interactive) |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
686 (diacritic-compose-region (point-min) (point-max))) |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
687 |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
688 (defun diacritic-post-read-conversion (len) |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
689 (diacritic-compose-region (point) (+ (point) len)) |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
690 len) |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
691 |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
692 (defun diacritic-composition-function (from to pattern &optional string) |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
693 "Compose diacritic text in the region FROM and TO. |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
694 The text matches the regular expression PATTERN. |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
695 Optional 4th argument STRING, if non-nil, is a string containing text |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
696 to compose. |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
697 |
48041
af717e120019
(diacritic-composition-function): Modify
Dave Love <fx@gnu.org>
parents:
47910
diff
changeset
|
698 The return value is the number of composed characters." |
af717e120019
(diacritic-composition-function): Modify
Dave Love <fx@gnu.org>
parents:
47910
diff
changeset
|
699 (when (< (1+ from) to) |
af717e120019
(diacritic-composition-function): Modify
Dave Love <fx@gnu.org>
parents:
47910
diff
changeset
|
700 (if string |
af717e120019
(diacritic-composition-function): Modify
Dave Love <fx@gnu.org>
parents:
47910
diff
changeset
|
701 (compose-string string from to) |
af717e120019
(diacritic-composition-function): Modify
Dave Love <fx@gnu.org>
parents:
47910
diff
changeset
|
702 (compose-region from to)) |
af717e120019
(diacritic-composition-function): Modify
Dave Love <fx@gnu.org>
parents:
47910
diff
changeset
|
703 (- to from))) |
41875
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
704 |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
705 ;; Register a function to compose Unicode diacrtics and marks. |
41978
8fb314e3c7fd
Remove autoload cookies. Fix registration
Dave Love <fx@gnu.org>
parents:
41875
diff
changeset
|
706 (let ((patterns '(("\\C^\\c^+" . diacritic-composition-function)))) |
41875
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
707 (let ((c #x300)) |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
708 (while (<= c #x362) |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
709 (aset composition-function-table (decode-char 'ucs c) patterns) |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
710 (setq c (1+ c))) |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
711 (setq c #x20d0) |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
712 (while (<= c #x20e3) |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
713 (aset composition-function-table (decode-char 'ucs c) patterns) |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
714 (setq c (1+ c))))) |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
715 |
31155
3362938ebbd7
("Latin-8", "Latin-9"): Add input methods,
Dave Love <fx@gnu.org>
parents:
30261
diff
changeset
|
716 (provide 'european) |
3362938ebbd7
("Latin-8", "Latin-9"): Add input methods,
Dave Love <fx@gnu.org>
parents:
30261
diff
changeset
|
717 |
52401 | 718 ;;; arch-tag: 9e018b12-fb02-4120-907b-9adeaf84b5c2 |
17052 | 719 ;;; european.el ends here |