Mercurial > emacs
annotate lisp/language/european.el @ 84339:2397532a703a
*** empty log message ***
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Thu, 06 Sep 2007 06:53:59 +0000 |
parents | 0938de05f510 |
children | b5d3fc1c4afe f55f9811f5d7 |
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 |
75347 | 3 ;; Copyright (C) 1997, 1998, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007 |
62396 | 4 ;; Free Software Foundation, Inc. |
74605
6ee41fdd69ff
Update AIST copyright years.
Kenichi Handa <handa@m17n.org>
parents:
74544
diff
changeset
|
5 ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
75347 | 6 ;; 2005, 2006, 2007 |
62396 | 7 ;; National Institute of Advanced Industrial Science and Technology (AIST) |
8 ;; Registration Number H14PRO021 | |
17052 | 9 |
10 ;; Keywords: multilingual, European | |
11 | |
12 ;; This file is part of GNU Emacs. | |
13 | |
14 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
15 ;; it under the terms of the GNU General Public License as published by | |
78309
0938de05f510
Restore comma mistakenly removed in last change.
Glenn Morris <rgm@gnu.org>
parents:
78300
diff
changeset
|
16 ;; the Free Software Foundation; either version 3, or (at your option) |
17052 | 17 ;; any later version. |
18 | |
19 ;; GNU Emacs is distributed in the hope that it will be useful, | |
20 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
21 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
22 ;; GNU General Public License for more details. | |
23 | |
24 ;; You should have received a copy of the GNU General Public License | |
17071 | 25 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
64085 | 26 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
27 ;; Boston, MA 02110-1301, USA. | |
17052 | 28 |
29 ;;; Commentary: | |
30 | |
52436
d095f4512252
(windows-1252): Moved from code-pages.
Dave Love <fx@gnu.org>
parents:
52401
diff
changeset
|
31 ;; 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
|
32 ;; supported, along with various others. |
17052 | 33 |
34 ;;; Code: | |
35 | |
18069
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
36 ;; Latin-1 (ISO-8859-1) |
17993
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
37 |
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
38 (set-language-info-alist |
22980
5681e7798ce9
(setup-8-bit-environment): Function deleted.
Kenichi Handa <handa@m17n.org>
parents:
22726
diff
changeset
|
39 "Latin-1" '((charset ascii latin-iso8859-1) |
20743 | 40 (coding-system iso-latin-1) |
73035
5dce73a87d89
("Latin-1"): Add windows-1252 to
Kenichi Handa <handa@m17n.org>
parents:
68330
diff
changeset
|
41 (coding-priority iso-latin-1 windows-1252) |
22980
5681e7798ce9
(setup-8-bit-environment): Function deleted.
Kenichi Handa <handa@m17n.org>
parents:
22726
diff
changeset
|
42 (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
|
43 (unibyte-syntax . "latin-1") |
22980
5681e7798ce9
(setup-8-bit-environment): Function deleted.
Kenichi Handa <handa@m17n.org>
parents:
22726
diff
changeset
|
44 (unibyte-display . iso-latin-1) |
23050 | 45 (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
|
46 (sample-text |
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
47 . "Hello, Hej, Tere, Hei, Bonjour, Gr,A|_(B Gott, Ciao, ,A!(BHola!") |
20743 | 48 (documentation . "\ |
26014
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
49 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
|
50 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
|
51 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
|
52 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
|
53 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
|
54 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
|
55 Scottish Gaelic, Spanish, and Swedish. |
35350
c26260dd320b
("Latin-1"): Make the format of description
Kenichi Handa <handa@m17n.org>
parents:
35330
diff
changeset
|
56 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
|
57 For Dutch, \"Dutch\". |
c26260dd320b
("Latin-1"): Make the format of description
Kenichi Handa <handa@m17n.org>
parents:
35330
diff
changeset
|
58 For German, \"German\". |
49633
b7ecf0c51886
Add Slovenian to the deoc string fro language-info-alist.
Francesco Potortì <pot@gnu.org>
parents:
49631
diff
changeset
|
59 For French, \"French\". |
b7ecf0c51886
Add Slovenian to the deoc string fro language-info-alist.
Francesco Potortì <pot@gnu.org>
parents:
49631
diff
changeset
|
60 For Italian, \"Italian\". |
b7ecf0c51886
Add Slovenian to the deoc string fro language-info-alist.
Francesco Potortì <pot@gnu.org>
parents:
49631
diff
changeset
|
61 For Slovenian, \"Slovenian\". |
35350
c26260dd320b
("Latin-1"): Make the format of description
Kenichi Handa <handa@m17n.org>
parents:
35330
diff
changeset
|
62 For Spanish, \"Spanish\". |
26014
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
63 |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
64 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
|
65 Indonesian/Malay, Tagalog (Philippines), Swahili and Afrikaans.")) |
20743 | 66 '("European")) |
67 | |
52436
d095f4512252
(windows-1252): Moved from code-pages.
Dave Love <fx@gnu.org>
parents:
52401
diff
changeset
|
68 (eval-and-compile |
d095f4512252
(windows-1252): Moved from code-pages.
Dave Love <fx@gnu.org>
parents:
52401
diff
changeset
|
69 (setq |
d095f4512252
(windows-1252): Moved from code-pages.
Dave Love <fx@gnu.org>
parents:
52401
diff
changeset
|
70 non-iso-charset-alist |
d095f4512252
(windows-1252): Moved from code-pages.
Dave Love <fx@gnu.org>
parents:
52401
diff
changeset
|
71 (cp-make-coding-system |
d095f4512252
(windows-1252): Moved from code-pages.
Dave Love <fx@gnu.org>
parents:
52401
diff
changeset
|
72 windows-1252 |
53009
cf5058e384f8
(windows-1252): Fix table (0x8F and 0x9E).
Kenichi Handa <handa@m17n.org>
parents:
52436
diff
changeset
|
73 [?\$,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
|
74 ?\$,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
|
75 ?\,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
|
76 ?\,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
|
77 ?\,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
|
78 ?\,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
|
79 ?\,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
|
80 ?\,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
|
81 |
837772085003
New alias for windows-1252.
Kenichi Handa <handa@m17n.org>
parents:
64085
diff
changeset
|
82 (define-coding-system-alias 'cp1252 'windows-1252) |
837772085003
New alias for windows-1252.
Kenichi Handa <handa@m17n.org>
parents:
64085
diff
changeset
|
83 |
17993
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
84 |
18069
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
85 ;; Latin-2 (ISO-8859-2) |
17993
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
86 |
17052 | 87 (make-coding-system |
18203
0745f30aec66
Adjusted for coding system name change.
Kenichi Handa <handa@m17n.org>
parents:
18159
diff
changeset
|
88 'iso-latin-2 2 ?2 |
42152 | 89 "ISO 2022 based 8-bit encoding for Latin-2 (MIME:ISO-8859-2)." |
20743 | 90 '(ascii latin-iso8859-2 nil nil |
48389
77f983482547
(iso-latin-1): Make it safe.
Kenichi Handa <handa@m17n.org>
parents:
48041
diff
changeset
|
91 nil nil nil nil nil nil nil nil nil nil nil t) |
20743 | 92 '((safe-charsets ascii latin-iso8859-2) |
93 (mime-charset . iso-8859-2))) | |
17052 | 94 |
18520
383d11185239
Swap args to define-coding-system-alias.
Richard M. Stallman <rms@gnu.org>
parents:
18377
diff
changeset
|
95 (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
|
96 (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
|
97 |
17993
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
98 (set-language-info-alist |
22980
5681e7798ce9
(setup-8-bit-environment): Function deleted.
Kenichi Handa <handa@m17n.org>
parents:
22726
diff
changeset
|
99 "Latin-2" '((charset ascii latin-iso8859-2) |
20743 | 100 (coding-system iso-latin-2) |
101 (coding-priority iso-latin-2) | |
22980
5681e7798ce9
(setup-8-bit-environment): Function deleted.
Kenichi Handa <handa@m17n.org>
parents:
22726
diff
changeset
|
102 (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
|
103 (unibyte-syntax . "latin-2") |
22980
5681e7798ce9
(setup-8-bit-environment): Function deleted.
Kenichi Handa <handa@m17n.org>
parents:
22726
diff
changeset
|
104 (unibyte-display . iso-latin-2) |
23050 | 105 (input-method . "latin-2-prefix") |
20743 | 106 (documentation . "\ |
26014
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
107 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
|
108 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
|
109 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
|
110 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
|
111 and Swedish. |
13247082e0ed
("Latin-1"): Modify `documentation' key value.
Kenichi Handa <handa@m17n.org>
parents:
23111
diff
changeset
|
112 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
|
113 For Czech, \"Czech\". |
49043 | 114 For Croatian, \"Croatian\". |
23117
13247082e0ed
("Latin-1"): Modify `documentation' key value.
Kenichi Handa <handa@m17n.org>
parents:
23111
diff
changeset
|
115 For Romanian, \"Romanian\". |
13247082e0ed
("Latin-1"): Modify `documentation' key value.
Kenichi Handa <handa@m17n.org>
parents:
23111
diff
changeset
|
116 For Slovak, \"Slovak\".")) |
20743 | 117 '("European")) |
118 | |
17993
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
119 |
18069
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
120 ;; Latin-3 (ISO-8859-3) |
17993
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
121 |
17052 | 122 (make-coding-system |
18203
0745f30aec66
Adjusted for coding system name change.
Kenichi Handa <handa@m17n.org>
parents:
18159
diff
changeset
|
123 'iso-latin-3 2 ?3 |
42152 | 124 "ISO 2022 based 8-bit encoding for Latin-3 (MIME:ISO-8859-3)." |
20743 | 125 '(ascii latin-iso8859-3 nil nil |
48389
77f983482547
(iso-latin-1): Make it safe.
Kenichi Handa <handa@m17n.org>
parents:
48041
diff
changeset
|
126 nil nil nil nil nil nil nil nil nil nil nil t) |
20743 | 127 '((safe-charsets ascii latin-iso8859-3) |
128 (mime-charset . iso-8859-3))) | |
17052 | 129 |
18520
383d11185239
Swap args to define-coding-system-alias.
Richard M. Stallman <rms@gnu.org>
parents:
18377
diff
changeset
|
130 (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
|
131 (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
|
132 |
17993
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
133 (set-language-info-alist |
22980
5681e7798ce9
(setup-8-bit-environment): Function deleted.
Kenichi Handa <handa@m17n.org>
parents:
22726
diff
changeset
|
134 "Latin-3" '((charset ascii latin-iso8859-3) |
20743 | 135 (coding-system iso-latin-3) |
136 (coding-priority iso-latin-3) | |
22980
5681e7798ce9
(setup-8-bit-environment): Function deleted.
Kenichi Handa <handa@m17n.org>
parents:
22726
diff
changeset
|
137 (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
|
138 (unibyte-syntax . "latin-3") |
22980
5681e7798ce9
(setup-8-bit-environment): Function deleted.
Kenichi Handa <handa@m17n.org>
parents:
22726
diff
changeset
|
139 (unibyte-display . iso-latin-3) |
23050 | 140 (input-method . "latin-3-prefix") |
20743 | 141 (documentation . "\ |
18117
5db3b24f2c5c
(iso-8859-1): Use `1' for mode line.
Richard M. Stallman <rms@gnu.org>
parents:
18069
diff
changeset
|
142 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
|
143 Afrikaans, Catalan, Dutch, English, Esperanto, French, Galician, |
20743 | 144 German, Italian, Maltese, Spanish, and Turkish.")) |
145 '("European")) | |
146 | |
17993
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
147 |
18069
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
148 ;; Latin-4 (ISO-8859-4) |
17993
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
149 |
17052 | 150 (make-coding-system |
18203
0745f30aec66
Adjusted for coding system name change.
Kenichi Handa <handa@m17n.org>
parents:
18159
diff
changeset
|
151 'iso-latin-4 2 ?4 |
42152 | 152 "ISO 2022 based 8-bit encoding for Latin-4 (MIME:ISO-8859-4)." |
20743 | 153 '(ascii latin-iso8859-4 nil nil |
48389
77f983482547
(iso-latin-1): Make it safe.
Kenichi Handa <handa@m17n.org>
parents:
48041
diff
changeset
|
154 nil nil nil nil nil nil nil nil nil nil nil t) |
20743 | 155 '((safe-charsets ascii latin-iso8859-4) |
28702 | 156 (mime-charset . iso-8859-4))) |
17052 | 157 |
18520
383d11185239
Swap args to define-coding-system-alias.
Richard M. Stallman <rms@gnu.org>
parents:
18377
diff
changeset
|
158 (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
|
159 (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
|
160 |
17993
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
161 (set-language-info-alist |
22980
5681e7798ce9
(setup-8-bit-environment): Function deleted.
Kenichi Handa <handa@m17n.org>
parents:
22726
diff
changeset
|
162 "Latin-4" '((charset ascii latin-iso8859-4) |
20743 | 163 (coding-system iso-8859-4) |
164 (coding-priority iso-8859-4) | |
22980
5681e7798ce9
(setup-8-bit-environment): Function deleted.
Kenichi Handa <handa@m17n.org>
parents:
22726
diff
changeset
|
165 (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
|
166 (unibyte-syntax . "latin-4") |
22980
5681e7798ce9
(setup-8-bit-environment): Function deleted.
Kenichi Handa <handa@m17n.org>
parents:
22726
diff
changeset
|
167 (unibyte-display . iso-8859-4) |
36870
afe2778e4c9d
("Latin-5", "Latin-4"): Use postfix input
Gerd Moellmann <gerd@gnu.org>
parents:
35350
diff
changeset
|
168 (input-method . "latin-4-postfix") |
20743 | 169 (documentation . "\ |
18117
5db3b24f2c5c
(iso-8859-1): Use `1' for mode line.
Richard M. Stallman <rms@gnu.org>
parents:
18069
diff
changeset
|
170 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
|
171 Danish, English, Estonian, Finnish, German, Greenlandic, Lappish, |
20743 | 172 Latvian, Lithuanian, and Norwegian.")) |
173 '("European")) | |
174 | |
17993
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
175 |
18069
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
176 ;; Latin-5 (ISO-8859-9) |
17993
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
177 |
17052 | 178 (make-coding-system |
18203
0745f30aec66
Adjusted for coding system name change.
Kenichi Handa <handa@m17n.org>
parents:
18159
diff
changeset
|
179 'iso-latin-5 2 ?9 |
42152 | 180 "ISO 2022 based 8-bit encoding for Latin-5 (MIME:ISO-8859-9)." |
20743 | 181 '(ascii latin-iso8859-9 nil nil |
48389
77f983482547
(iso-latin-1): Make it safe.
Kenichi Handa <handa@m17n.org>
parents:
48041
diff
changeset
|
182 nil nil nil nil nil nil nil nil nil nil nil t) |
20743 | 183 '((safe-charsets ascii latin-iso8859-9) |
184 (mime-charset . iso-8859-9))) | |
17052 | 185 |
18520
383d11185239
Swap args to define-coding-system-alias.
Richard M. Stallman <rms@gnu.org>
parents:
18377
diff
changeset
|
186 (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
|
187 (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
|
188 |
17052 | 189 (set-language-info-alist |
22980
5681e7798ce9
(setup-8-bit-environment): Function deleted.
Kenichi Handa <handa@m17n.org>
parents:
22726
diff
changeset
|
190 "Latin-5" '((charset ascii latin-iso8859-9) |
20743 | 191 (coding-system iso-latin-5) |
192 (coding-priority iso-latin-5) | |
22980
5681e7798ce9
(setup-8-bit-environment): Function deleted.
Kenichi Handa <handa@m17n.org>
parents:
22726
diff
changeset
|
193 (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
|
194 (unibyte-syntax . "latin-5") |
22980
5681e7798ce9
(setup-8-bit-environment): Function deleted.
Kenichi Handa <handa@m17n.org>
parents:
22726
diff
changeset
|
195 (unibyte-display . iso-latin-5) |
36870
afe2778e4c9d
("Latin-5", "Latin-4"): Use postfix input
Gerd Moellmann <gerd@gnu.org>
parents:
35350
diff
changeset
|
196 (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
|
197 (documentation . "Support for Turkish language.")) |
20743 | 198 '("European")) |
199 | |
200 | |
26014
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
201 ;; Latin-8 (ISO-8859-14) |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
202 |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
203 (make-coding-system |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
204 '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
|
205 ; for `Celtic' is taken. |
42152 | 206 "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
|
207 '(ascii latin-iso8859-14 nil nil |
48389
77f983482547
(iso-latin-1): Make it safe.
Kenichi Handa <handa@m17n.org>
parents:
48041
diff
changeset
|
208 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
|
209 '((safe-charsets ascii latin-iso8859-14) |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
210 (mime-charset . iso-8859-14))) |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
211 |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
212 (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
|
213 (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
|
214 |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
215 (set-language-info-alist |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
216 "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
|
217 (coding-system iso-latin-8) |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
218 (coding-priority iso-latin-8) |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
219 (nonascii-translation . latin-iso8859-14) |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
220 (unibyte-syntax . "latin-8") |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
221 (unibyte-display . iso-latin-8) |
31155
3362938ebbd7
("Latin-8", "Latin-9"): Add input methods,
Dave Love <fx@gnu.org>
parents:
30261
diff
changeset
|
222 (input-method . "latin-8-prefix") |
3362938ebbd7
("Latin-8", "Latin-9"): Add input methods,
Dave Love <fx@gnu.org>
parents:
30261
diff
changeset
|
223 ;; Fixme: Welsh/Ga{e}lic greetings |
3362938ebbd7
("Latin-8", "Latin-9"): Add input methods,
Dave Love <fx@gnu.org>
parents:
30261
diff
changeset
|
224 (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
|
225 (documentation . "\ |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
226 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
|
227 character set which supports the Celtic languages, including those not |
42152 | 228 covered by other ISO-8859 character sets: |
229 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
|
230 '("European")) |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
231 |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
232 ;; Latin-9 (ISO-8859-15) |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
233 |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
234 (make-coding-system |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
235 'iso-latin-9 2 ?0 ; `0' for `Latin-0' |
42152 | 236 "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
|
237 '(ascii latin-iso8859-15 nil nil |
48389
77f983482547
(iso-latin-1): Make it safe.
Kenichi Handa <handa@m17n.org>
parents:
48041
diff
changeset
|
238 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
|
239 '((safe-charsets ascii latin-iso8859-15) |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
240 (mime-charset . iso-8859-15))) |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
241 |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
242 (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
|
243 (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
|
244 (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
|
245 |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
246 (set-language-info-alist |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
247 "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
|
248 (coding-system iso-latin-9) |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
249 (coding-priority iso-latin-9) |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
250 (nonascii-translation . latin-iso8859-15) |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
251 (unibyte-syntax . "latin-9") |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
252 (unibyte-display . iso-latin-9) |
31155
3362938ebbd7
("Latin-8", "Latin-9"): Add input methods,
Dave Love <fx@gnu.org>
parents:
30261
diff
changeset
|
253 (input-method . "latin-9-prefix") |
26014
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
254 (sample-text |
31155
3362938ebbd7
("Latin-8", "Latin-9"): Add input methods,
Dave Love <fx@gnu.org>
parents:
30261
diff
changeset
|
255 . "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
|
256 (documentation . "\ |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
257 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
|
258 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
|
259 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
|
260 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
|
261 '("European")) |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
262 |
20743 | 263 (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
|
264 "Dutch" '((tutorial . "TUTORIAL.nl") |
b7ecf0c51886
Add Slovenian to the deoc string fro language-info-alist.
Francesco Potortì <pot@gnu.org>
parents:
49631
diff
changeset
|
265 (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
|
266 (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
|
267 (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
|
268 (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
|
269 (unibyte-syntax . "latin-1") |
b7ecf0c51886
Add Slovenian to the deoc string fro language-info-alist.
Francesco Potortì <pot@gnu.org>
parents:
49631
diff
changeset
|
270 (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
|
271 (input-method . "dutch") |
b7ecf0c51886
Add Slovenian to the deoc string fro language-info-alist.
Francesco Potortì <pot@gnu.org>
parents:
49631
diff
changeset
|
272 (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
|
273 (documentation . "\ |
b7ecf0c51886
Add Slovenian to the deoc string fro language-info-alist.
Francesco Potortì <pot@gnu.org>
parents:
49631
diff
changeset
|
274 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
|
275 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
|
276 '("European")) |
b7ecf0c51886
Add Slovenian to the deoc string fro language-info-alist.
Francesco Potortì <pot@gnu.org>
parents:
49631
diff
changeset
|
277 |
b7ecf0c51886
Add Slovenian to the deoc string fro language-info-alist.
Francesco Potortì <pot@gnu.org>
parents:
49631
diff
changeset
|
278 (set-language-info-alist |
22980
5681e7798ce9
(setup-8-bit-environment): Function deleted.
Kenichi Handa <handa@m17n.org>
parents:
22726
diff
changeset
|
279 "German" '((tutorial . "TUTORIAL.de") |
20743 | 280 (charset ascii latin-iso8859-1) |
46672
cbba2fbd2b85
("German", "French", "Spanish", "Turkish"):
Dave Love <fx@gnu.org>
parents:
43734
diff
changeset
|
281 (coding-system iso-latin-1 iso-latin-9) |
73035
5dce73a87d89
("Latin-1"): Add windows-1252 to
Kenichi Handa <handa@m17n.org>
parents:
68330
diff
changeset
|
282 (coding-priority iso-latin-1 windows-1252) |
23050 | 283 (input-method . "german-postfix") |
49043 | 284 (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
|
285 (unibyte-syntax . "latin-1") |
22980
5681e7798ce9
(setup-8-bit-environment): Function deleted.
Kenichi Handa <handa@m17n.org>
parents:
22726
diff
changeset
|
286 (unibyte-display . iso-latin-1) |
20743 | 287 (sample-text . "\ |
288 German (Deutsch Nord) Guten Tag | |
289 German (Deutsch S,A|(Bd) Gr,A|_(B Gott") | |
290 (documentation . "\ | |
291 This language environment is almost the same as Latin-1, | |
42194 | 292 but sets the default input method to \"german-postfix\". |
293 Additionally, it selects the German tutorial.")) | |
20743 | 294 '("European")) |
17302
1012d679efd4
English related codes are moved to
Kenichi Handa <handa@m17n.org>
parents:
17098
diff
changeset
|
295 |
24269
a29550b1d150
(setup-slovenian-environment): New function.
Richard M. Stallman <rms@gnu.org>
parents:
23158
diff
changeset
|
296 (set-language-info-alist |
41196
f8661b5a0670
("French"): New language environment.
Eli Zaretskii <eliz@gnu.org>
parents:
41115
diff
changeset
|
297 "French" '((tutorial . "TUTORIAL.fr") |
f8661b5a0670
("French"): New language environment.
Eli Zaretskii <eliz@gnu.org>
parents:
41115
diff
changeset
|
298 (charset ascii latin-iso8859-1) |
46672
cbba2fbd2b85
("German", "French", "Spanish", "Turkish"):
Dave Love <fx@gnu.org>
parents:
43734
diff
changeset
|
299 (coding-system iso-latin-1 iso-latin-9) |
41196
f8661b5a0670
("French"): New language environment.
Eli Zaretskii <eliz@gnu.org>
parents:
41115
diff
changeset
|
300 (coding-priority iso-latin-1) |
f8661b5a0670
("French"): New language environment.
Eli Zaretskii <eliz@gnu.org>
parents:
41115
diff
changeset
|
301 (nonascii-translation . latin-iso8859-1) |
f8661b5a0670
("French"): New language environment.
Eli Zaretskii <eliz@gnu.org>
parents:
41115
diff
changeset
|
302 (unibyte-syntax . "latin-1") |
f8661b5a0670
("French"): New language environment.
Eli Zaretskii <eliz@gnu.org>
parents:
41115
diff
changeset
|
303 (unibyte-display . iso-latin-1) |
f8661b5a0670
("French"): New language environment.
Eli Zaretskii <eliz@gnu.org>
parents:
41115
diff
changeset
|
304 (input-method . "latin-1-prefix") |
f8661b5a0670
("French"): New language environment.
Eli Zaretskii <eliz@gnu.org>
parents:
41115
diff
changeset
|
305 (sample-text . "French (Fran,Ag(Bais) Bonjour, Salut") |
f8661b5a0670
("French"): New language environment.
Eli Zaretskii <eliz@gnu.org>
parents:
41115
diff
changeset
|
306 (documentation . "\ |
f8661b5a0670
("French"): New language environment.
Eli Zaretskii <eliz@gnu.org>
parents:
41115
diff
changeset
|
307 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
|
308 but it selects the French tutorial and input method.")) |
41196
f8661b5a0670
("French"): New language environment.
Eli Zaretskii <eliz@gnu.org>
parents:
41115
diff
changeset
|
309 '("European")) |
f8661b5a0670
("French"): New language environment.
Eli Zaretskii <eliz@gnu.org>
parents:
41115
diff
changeset
|
310 |
f8661b5a0670
("French"): New language environment.
Eli Zaretskii <eliz@gnu.org>
parents:
41115
diff
changeset
|
311 (set-language-info-alist |
49631
7b1e2c5a193b
Italian greeting changed.
Francesco Potortì <pot@gnu.org>
parents:
49598
diff
changeset
|
312 "Italian" '((tutorial . "TUTORIAL.it") |
7b1e2c5a193b
Italian greeting changed.
Francesco Potortì <pot@gnu.org>
parents:
49598
diff
changeset
|
313 (charset ascii latin-iso8859-1) |
7b1e2c5a193b
Italian greeting changed.
Francesco Potortì <pot@gnu.org>
parents:
49598
diff
changeset
|
314 (coding-system iso-latin-1 iso-latin-9) |
7b1e2c5a193b
Italian greeting changed.
Francesco Potortì <pot@gnu.org>
parents:
49598
diff
changeset
|
315 (coding-priority iso-latin-1) |
7b1e2c5a193b
Italian greeting changed.
Francesco Potortì <pot@gnu.org>
parents:
49598
diff
changeset
|
316 (nonascii-translation . latin-iso8859-1) |
7b1e2c5a193b
Italian greeting changed.
Francesco Potortì <pot@gnu.org>
parents:
49598
diff
changeset
|
317 (unibyte-syntax . "latin-1") |
7b1e2c5a193b
Italian greeting changed.
Francesco Potortì <pot@gnu.org>
parents:
49598
diff
changeset
|
318 (unibyte-display . iso-latin-1) |
7b1e2c5a193b
Italian greeting changed.
Francesco Potortì <pot@gnu.org>
parents:
49598
diff
changeset
|
319 (input-method . "italian-postfix") |
7b1e2c5a193b
Italian greeting changed.
Francesco Potortì <pot@gnu.org>
parents:
49598
diff
changeset
|
320 (sample-text . "Salve, ciao!") |
7b1e2c5a193b
Italian greeting changed.
Francesco Potortì <pot@gnu.org>
parents:
49598
diff
changeset
|
321 (documentation . "\ |
7b1e2c5a193b
Italian greeting changed.
Francesco Potortì <pot@gnu.org>
parents:
49598
diff
changeset
|
322 This language environment is almost the same as Latin-1, |
7b1e2c5a193b
Italian greeting changed.
Francesco Potortì <pot@gnu.org>
parents:
49598
diff
changeset
|
323 but sets the default input method to \"italian-postfix\". |
7b1e2c5a193b
Italian greeting changed.
Francesco Potortì <pot@gnu.org>
parents:
49598
diff
changeset
|
324 Additionally, it selects the Italian tutorial.")) |
7b1e2c5a193b
Italian greeting changed.
Francesco Potortì <pot@gnu.org>
parents:
49598
diff
changeset
|
325 '("European")) |
7b1e2c5a193b
Italian greeting changed.
Francesco Potortì <pot@gnu.org>
parents:
49598
diff
changeset
|
326 |
7b1e2c5a193b
Italian greeting changed.
Francesco Potortì <pot@gnu.org>
parents:
49598
diff
changeset
|
327 (set-language-info-alist |
24269
a29550b1d150
(setup-slovenian-environment): New function.
Richard M. Stallman <rms@gnu.org>
parents:
23158
diff
changeset
|
328 "Slovenian" '((charset . (ascii latin-iso8859-2)) |
a29550b1d150
(setup-slovenian-environment): New function.
Richard M. Stallman <rms@gnu.org>
parents:
23158
diff
changeset
|
329 (coding-system . (iso-8859-2)) |
a29550b1d150
(setup-slovenian-environment): New function.
Richard M. Stallman <rms@gnu.org>
parents:
23158
diff
changeset
|
330 (coding-priority . (iso-8859-2)) |
a29550b1d150
(setup-slovenian-environment): New function.
Richard M. Stallman <rms@gnu.org>
parents:
23158
diff
changeset
|
331 (nonascii-translation . latin-iso8859-2) |
47910
729eccda4769
("Slovenian"): Use slovenian input-method.
Dave Love <fx@gnu.org>
parents:
47237
diff
changeset
|
332 (input-method . "slovenian") |
24269
a29550b1d150
(setup-slovenian-environment): New function.
Richard M. Stallman <rms@gnu.org>
parents:
23158
diff
changeset
|
333 (unibyte-syntax . "latin-2") |
a29550b1d150
(setup-slovenian-environment): New function.
Richard M. Stallman <rms@gnu.org>
parents:
23158
diff
changeset
|
334 (unibyte-display . iso-8859-2) |
a29550b1d150
(setup-slovenian-environment): New function.
Richard M. Stallman <rms@gnu.org>
parents:
23158
diff
changeset
|
335 (tutorial . "TUTORIAL.sl") |
a29550b1d150
(setup-slovenian-environment): New function.
Richard M. Stallman <rms@gnu.org>
parents:
23158
diff
changeset
|
336 (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
|
337 (documentation . "\ |
fe28719083ea
("French", "Slovenian"): Fix doc strings.
Francesco Potortì <pot@gnu.org>
parents:
49633
diff
changeset
|
338 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
|
339 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
|
340 '("European")) |
a29550b1d150
(setup-slovenian-environment): New function.
Richard M. Stallman <rms@gnu.org>
parents:
23158
diff
changeset
|
341 |
35161
0495de5487ae
Add Dutch and Spanish language info
Gerd Moellmann <gerd@gnu.org>
parents:
33513
diff
changeset
|
342 (set-language-info-alist |
0495de5487ae
Add Dutch and Spanish language info
Gerd Moellmann <gerd@gnu.org>
parents:
33513
diff
changeset
|
343 "Spanish" '((tutorial . "TUTORIAL.es") |
0495de5487ae
Add Dutch and Spanish language info
Gerd Moellmann <gerd@gnu.org>
parents:
33513
diff
changeset
|
344 (charset ascii latin-iso8859-1) |
46672
cbba2fbd2b85
("German", "French", "Spanish", "Turkish"):
Dave Love <fx@gnu.org>
parents:
43734
diff
changeset
|
345 (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
|
346 (coding-priority iso-latin-1) |
0495de5487ae
Add Dutch and Spanish language info
Gerd Moellmann <gerd@gnu.org>
parents:
33513
diff
changeset
|
347 (input-method . "spanish-postfix") |
49043 | 348 (nonascii-translation . latin-iso8859-1) |
35161
0495de5487ae
Add Dutch and Spanish language info
Gerd Moellmann <gerd@gnu.org>
parents:
33513
diff
changeset
|
349 (unibyte-syntax . "latin-1") |
0495de5487ae
Add Dutch and Spanish language info
Gerd Moellmann <gerd@gnu.org>
parents:
33513
diff
changeset
|
350 (unibyte-display . iso-latin-1) |
0495de5487ae
Add Dutch and Spanish language info
Gerd Moellmann <gerd@gnu.org>
parents:
33513
diff
changeset
|
351 (sample-text . "Spanish (Espa,Aq(Bol) ,A!(BHola!") |
0495de5487ae
Add Dutch and Spanish language info
Gerd Moellmann <gerd@gnu.org>
parents:
33513
diff
changeset
|
352 (documentation . "\ |
0495de5487ae
Add Dutch and Spanish language info
Gerd Moellmann <gerd@gnu.org>
parents:
33513
diff
changeset
|
353 This language environment is almost the same as Latin-1, |
42194 | 354 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
|
355 and it selects the Spanish tutorial.")) |
35161
0495de5487ae
Add Dutch and Spanish language info
Gerd Moellmann <gerd@gnu.org>
parents:
33513
diff
changeset
|
356 '("European")) |
0495de5487ae
Add Dutch and Spanish language info
Gerd Moellmann <gerd@gnu.org>
parents:
33513
diff
changeset
|
357 |
25773
20234157d093
("Turkish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
25228
diff
changeset
|
358 ;; 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
|
359 ;; 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
|
360 ;; 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
|
361 ;; "Latin-3" language environment. |
20234157d093
("Turkish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
25228
diff
changeset
|
362 |
20234157d093
("Turkish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
25228
diff
changeset
|
363 (set-language-info-alist |
20234157d093
("Turkish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
25228
diff
changeset
|
364 "Turkish" '((charset ascii latin-iso8859-9) |
46672
cbba2fbd2b85
("German", "French", "Spanish", "Turkish"):
Dave Love <fx@gnu.org>
parents:
43734
diff
changeset
|
365 (coding-system iso-latin-5 iso-latin-3) |
25773
20234157d093
("Turkish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
25228
diff
changeset
|
366 (coding-priority iso-latin-5) |
20234157d093
("Turkish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
25228
diff
changeset
|
367 (nonascii-translation . latin-iso8859-9) |
20234157d093
("Turkish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
25228
diff
changeset
|
368 (unibyte-syntax . "latin-5") |
20234157d093
("Turkish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
25228
diff
changeset
|
369 (unibyte-display . iso-latin-5) |
20234157d093
("Turkish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
25228
diff
changeset
|
370 (input-method . "turkish-postfix") |
20234157d093
("Turkish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
25228
diff
changeset
|
371 (sample-text . "Turkish (T,M|(Brk,Mg(Be) Merhaba") |
73945
014379fe3697
(turkish-case-conversion-enable)
Richard M. Stallman <rms@gnu.org>
parents:
73035
diff
changeset
|
372 (documentation . t) |
014379fe3697
(turkish-case-conversion-enable)
Richard M. Stallman <rms@gnu.org>
parents:
73035
diff
changeset
|
373 (setup-function . turkish-case-conversion-enable) |
014379fe3697
(turkish-case-conversion-enable)
Richard M. Stallman <rms@gnu.org>
parents:
73035
diff
changeset
|
374 (exit-function . turkish-case-conversion-disable))) |
014379fe3697
(turkish-case-conversion-enable)
Richard M. Stallman <rms@gnu.org>
parents:
73035
diff
changeset
|
375 |
014379fe3697
(turkish-case-conversion-enable)
Richard M. Stallman <rms@gnu.org>
parents:
73035
diff
changeset
|
376 (defun turkish-case-conversion-enable () |
014379fe3697
(turkish-case-conversion-enable)
Richard M. Stallman <rms@gnu.org>
parents:
73035
diff
changeset
|
377 "Set up Turkish case conversion of `i' and `I' into `$,1 P(B' and `$,1 Q(B'." |
014379fe3697
(turkish-case-conversion-enable)
Richard M. Stallman <rms@gnu.org>
parents:
73035
diff
changeset
|
378 (let ((table (standard-case-table))) |
014379fe3697
(turkish-case-conversion-enable)
Richard M. Stallman <rms@gnu.org>
parents:
73035
diff
changeset
|
379 (set-case-syntax-pair ?$,1 P(B ?i table) |
014379fe3697
(turkish-case-conversion-enable)
Richard M. Stallman <rms@gnu.org>
parents:
73035
diff
changeset
|
380 (set-case-syntax-pair ?I ?$,1 Q(B table))) |
014379fe3697
(turkish-case-conversion-enable)
Richard M. Stallman <rms@gnu.org>
parents:
73035
diff
changeset
|
381 |
014379fe3697
(turkish-case-conversion-enable)
Richard M. Stallman <rms@gnu.org>
parents:
73035
diff
changeset
|
382 (defun turkish-case-conversion-disable () |
014379fe3697
(turkish-case-conversion-enable)
Richard M. Stallman <rms@gnu.org>
parents:
73035
diff
changeset
|
383 "Set up normal (non-Turkish) case conversion of `i' into `I'." |
014379fe3697
(turkish-case-conversion-enable)
Richard M. Stallman <rms@gnu.org>
parents:
73035
diff
changeset
|
384 (let ((table (standard-case-table))) |
014379fe3697
(turkish-case-conversion-enable)
Richard M. Stallman <rms@gnu.org>
parents:
73035
diff
changeset
|
385 (set-case-syntax-pair ?I ?i table) |
014379fe3697
(turkish-case-conversion-enable)
Richard M. Stallman <rms@gnu.org>
parents:
73035
diff
changeset
|
386 (set-case-syntax ?$,1 P(B "w" table) |
014379fe3697
(turkish-case-conversion-enable)
Richard M. Stallman <rms@gnu.org>
parents:
73035
diff
changeset
|
387 (set-case-syntax ?$,1 Q(B "w" table))) |
25773
20234157d093
("Turkish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
25228
diff
changeset
|
388 |
28436
2dbedede8507
("Polish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
26134
diff
changeset
|
389 ;; Polish ISO 8859-2 environment. |
2dbedede8507
("Polish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
26134
diff
changeset
|
390 ;; Maintainer: Wlodek Bzyl <matwb@univ.gda.pl> |
2dbedede8507
("Polish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
26134
diff
changeset
|
391 ;; Keywords: multilingual, Polish |
2dbedede8507
("Polish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
26134
diff
changeset
|
392 |
2dbedede8507
("Polish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
26134
diff
changeset
|
393 (set-language-info-alist |
2dbedede8507
("Polish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
26134
diff
changeset
|
394 "Polish" '((charset . (ascii latin-iso8859-2)) |
2dbedede8507
("Polish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
26134
diff
changeset
|
395 (coding-system . (iso-8859-2)) |
2dbedede8507
("Polish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
26134
diff
changeset
|
396 (coding-priority . (iso-8859-2)) |
2dbedede8507
("Polish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
26134
diff
changeset
|
397 (input-method . "polish-slash") |
2dbedede8507
("Polish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
26134
diff
changeset
|
398 (nonascii-translation . latin-iso8859-2) |
2dbedede8507
("Polish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
26134
diff
changeset
|
399 (unibyte-syntax . "latin-2") |
2dbedede8507
("Polish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
26134
diff
changeset
|
400 (unibyte-display . iso-8859-2) |
2dbedede8507
("Polish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
26134
diff
changeset
|
401 (tutorial . "TUTORIAL.pl") |
37298
d377298f0844
("Polish"): Change sample text.
Gerd Moellmann <gerd@gnu.org>
parents:
36870
diff
changeset
|
402 (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
|
403 (documentation . t)) |
2dbedede8507
("Polish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
26134
diff
changeset
|
404 '("European")) |
2dbedede8507
("Polish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
26134
diff
changeset
|
405 |
42051
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
406 (set-language-info-alist |
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
407 "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
|
408 (coding-priority utf-8 latin-8) |
49043 | 409 (nonascii-translation . latin-iso8859-14) |
42051
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
410 (input-method . "welsh") |
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
411 (documentation . "Support for Welsh, using Unicode.")) |
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
412 '("European")) |
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
413 |
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
414 (set-language-info-alist |
49043 | 415 "Latin-6" `((coding-system latin-6) |
416 (coding-priority latin-6) | |
417 (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
|
418 (input-method . "latin-prefix") |
49043 | 419 (features code-pages) |
420 (documentation . "Support for Latin-6.")) | |
421 '("European")) | |
422 | |
423 (set-language-info-alist | |
42051
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
424 "Latin-7" `((coding-system latin-7) |
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
425 (coding-priority latin-7) |
49043 | 426 (nonascii-translation . ,(get 'decode-iso-latin-7 |
427 'translation-table)) | |
50194
dc8403640b05
("Latin-6"): Fix input-method.
Kenichi Handa <handa@m17n.org>
parents:
50117
diff
changeset
|
428 (input-method . "latin-prefix") |
42051
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
429 (features code-pages) |
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
430 (documentation . "Support for Latin-7, e.g. Latvian, Lithuanian.")) |
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
431 '("European")) |
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
432 |
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
433 (set-language-info-alist |
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
434 "Lithuanian" `((coding-system latin-7) |
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
435 (coding-priority latin-7) |
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
436 (input-method . "lithuanian-keyboard") |
49043 | 437 (nonascii-translation . ,(get 'decode-iso-latin-7 |
438 'translation-table)) | |
42051
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
439 (features code-pages) |
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
440 (documentation . "Support for Lithuanian.")) |
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
441 '("European")) |
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
442 |
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
443 (set-language-info-alist |
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
444 "Latvian" `((coding-system latin-7) |
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
445 (coding-priority latin-7) |
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
446 (input-method . "latvian-keyboard") |
49043 | 447 (nonascii-translation . ,(get 'decode-iso-latin-7 |
448 'translation-table)) | |
42051
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
449 (features code-pages) |
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
450 (documentation . "Support for Latvian.")) |
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
451 '("European")) |
47237
fd8d01195320
("Swedish"): New set-language-info-alist call.
Richard M. Stallman <rms@gnu.org>
parents:
46672
diff
changeset
|
452 |
fd8d01195320
("Swedish"): New set-language-info-alist call.
Richard M. Stallman <rms@gnu.org>
parents:
46672
diff
changeset
|
453 (set-language-info-alist |
48779
c75e2941ff7e
("Swedish"): Change tutorial file name to
Kenichi Handa <handa@m17n.org>
parents:
48546
diff
changeset
|
454 "Swedish" '((tutorial . "TUTORIAL.sv") |
47237
fd8d01195320
("Swedish"): New set-language-info-alist call.
Richard M. Stallman <rms@gnu.org>
parents:
46672
diff
changeset
|
455 (charset ascii latin-iso8859-1) |
fd8d01195320
("Swedish"): New set-language-info-alist call.
Richard M. Stallman <rms@gnu.org>
parents:
46672
diff
changeset
|
456 (coding-system iso-latin-1) |
fd8d01195320
("Swedish"): New set-language-info-alist call.
Richard M. Stallman <rms@gnu.org>
parents:
46672
diff
changeset
|
457 (coding-priority iso-latin-1) |
49043 | 458 (nonascii-translation . latin-iso8859-1) |
47237
fd8d01195320
("Swedish"): New set-language-info-alist call.
Richard M. Stallman <rms@gnu.org>
parents:
46672
diff
changeset
|
459 (unibyte-syntax . "latin-1") |
fd8d01195320
("Swedish"): New set-language-info-alist call.
Richard M. Stallman <rms@gnu.org>
parents:
46672
diff
changeset
|
460 (unibyte-display . iso-latin-1) |
fd8d01195320
("Swedish"): New set-language-info-alist call.
Richard M. Stallman <rms@gnu.org>
parents:
46672
diff
changeset
|
461 (sample-text . "Goddag Hej") |
fd8d01195320
("Swedish"): New set-language-info-alist call.
Richard M. Stallman <rms@gnu.org>
parents:
46672
diff
changeset
|
462 (documentation . "Support for Swedish")) |
fd8d01195320
("Swedish"): New set-language-info-alist call.
Richard M. Stallman <rms@gnu.org>
parents:
46672
diff
changeset
|
463 '("European")) |
49043 | 464 |
465 (set-language-info-alist | |
466 "Croatian" '((charset . (ascii latin-iso8859-2)) | |
467 (coding-system . (iso-8859-2)) | |
468 (coding-priority . (iso-8859-2)) | |
469 (input-method . "croatian") | |
470 (nonascii-translation . latin-iso8859-2) | |
471 (unibyte-syntax . "latin-2") | |
472 (unibyte-display . iso-8859-2) | |
473 (documentation . "Support for Croatian with Latin-2 encoding.")) | |
474 '("European")) | |
55586
37214f38ace4
2004-05-13 Marcelo Toledo <marcelo@marcelotoledo.org>
David Kastrup <dak@gnu.org>
parents:
53009
diff
changeset
|
475 |
37214f38ace4
2004-05-13 Marcelo Toledo <marcelo@marcelotoledo.org>
David Kastrup <dak@gnu.org>
parents:
53009
diff
changeset
|
476 (set-language-info-alist |
37214f38ace4
2004-05-13 Marcelo Toledo <marcelo@marcelotoledo.org>
David Kastrup <dak@gnu.org>
parents:
53009
diff
changeset
|
477 "Brazilian Portuguese" '((tutorial . "TUTORIAL.pt_BR") |
37214f38ace4
2004-05-13 Marcelo Toledo <marcelo@marcelotoledo.org>
David Kastrup <dak@gnu.org>
parents:
53009
diff
changeset
|
478 (charset ascii latin-iso8859-1) |
37214f38ace4
2004-05-13 Marcelo Toledo <marcelo@marcelotoledo.org>
David Kastrup <dak@gnu.org>
parents:
53009
diff
changeset
|
479 (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
|
480 (coding-priority iso-latin-1) |
37214f38ace4
2004-05-13 Marcelo Toledo <marcelo@marcelotoledo.org>
David Kastrup <dak@gnu.org>
parents:
53009
diff
changeset
|
481 (nonascii-translation . latin-iso8859-1) |
37214f38ace4
2004-05-13 Marcelo Toledo <marcelo@marcelotoledo.org>
David Kastrup <dak@gnu.org>
parents:
53009
diff
changeset
|
482 (unibyte-syntax . "latin-1") |
37214f38ace4
2004-05-13 Marcelo Toledo <marcelo@marcelotoledo.org>
David Kastrup <dak@gnu.org>
parents:
53009
diff
changeset
|
483 (unibyte-display . iso-latin-1) |
37214f38ace4
2004-05-13 Marcelo Toledo <marcelo@marcelotoledo.org>
David Kastrup <dak@gnu.org>
parents:
53009
diff
changeset
|
484 (input-method . "latin-1-prefix") |
37214f38ace4
2004-05-13 Marcelo Toledo <marcelo@marcelotoledo.org>
David Kastrup <dak@gnu.org>
parents:
53009
diff
changeset
|
485 (sample-text . "Oi") |
37214f38ace4
2004-05-13 Marcelo Toledo <marcelo@marcelotoledo.org>
David Kastrup <dak@gnu.org>
parents:
53009
diff
changeset
|
486 (documentation . "Support for Brazilian Portuguese.")) |
37214f38ace4
2004-05-13 Marcelo Toledo <marcelo@marcelotoledo.org>
David Kastrup <dak@gnu.org>
parents:
53009
diff
changeset
|
487 '("European")) |
76002
8c6a6255b5e1
("Esperanto"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
75347
diff
changeset
|
488 |
8c6a6255b5e1
("Esperanto"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
75347
diff
changeset
|
489 (set-language-info-alist |
8c6a6255b5e1
("Esperanto"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
75347
diff
changeset
|
490 "Esperanto" '((tutorial . "TUTORIAL.eo") |
8c6a6255b5e1
("Esperanto"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
75347
diff
changeset
|
491 (charset ascii latin-iso8859-3) |
8c6a6255b5e1
("Esperanto"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
75347
diff
changeset
|
492 (coding-system iso-latin-3) |
8c6a6255b5e1
("Esperanto"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
75347
diff
changeset
|
493 (coding-priority iso-latin-3) |
8c6a6255b5e1
("Esperanto"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
75347
diff
changeset
|
494 (nonascii-translation . latin-iso8859-3) |
8c6a6255b5e1
("Esperanto"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
75347
diff
changeset
|
495 (unibyte-syntax . "latin-3") |
8c6a6255b5e1
("Esperanto"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
75347
diff
changeset
|
496 (unibyte-display . iso-latin-3) |
8c6a6255b5e1
("Esperanto"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
75347
diff
changeset
|
497 (input-method . "latin-3-prefix") |
8c6a6255b5e1
("Esperanto"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
75347
diff
changeset
|
498 (documentation . "Support for Esperanto with ISO-8859-3 character set.")) |
8c6a6255b5e1
("Esperanto"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
75347
diff
changeset
|
499 '("European")) |
8c6a6255b5e1
("Esperanto"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
75347
diff
changeset
|
500 |
33049
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
501 |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
502 ;; 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
|
503 ;; The Mac Roman encoding uses all 128 code points in the range 128 to |
33513 | 504 ;; 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
|
505 ;; following character sets. |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
506 ;; 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
|
507 ;; 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
|
508 |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
509 (let |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
510 ((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
|
511 (i 0) |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
512 (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
|
513 [ #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
|
514 #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
|
515 #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
|
516 #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
|
517 #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
|
518 #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
|
519 #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
|
520 #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
|
521 #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
|
522 #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
|
523 #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
|
524 #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
|
525 #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
|
526 #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
|
527 #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
|
528 #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
|
529 #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
|
530 #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
|
531 #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
|
532 #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
|
533 #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
|
534 #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
|
535 #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
|
536 #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
|
537 #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
|
538 #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
|
539 #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
|
540 #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
|
541 #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
|
542 #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
|
543 #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
|
544 #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
|
545 #x2020 ;; 160:DAGGER |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
546 #x00B0 ;; 161:DEGREE SIGN |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
547 #x00A2 ;; 162:CENT SIGN |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
548 #x00A3 ;; 163:POUND SIGN |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
549 #x00A7 ;; 164:SECTION SIGN |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
550 #x2022 ;; 165:BULLET |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
551 #x00B6 ;; 166:PILCROW SIGN |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
552 #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
|
553 #x00AE ;; 168:REGISTERED SIGN |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
554 #x00A9 ;; 169:COPYRIGHT SIGN |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
555 #x2122 ;; 170:TRADE MARK SIGN |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
556 #x00B4 ;; 171:ACUTE ACCENT |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
557 #x00A8 ;; 172:DIAERESIS |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
558 #x2260 ;; 173:NOT EQUAL TO |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
559 #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
|
560 #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
|
561 #x221E ;; 176:INFINITY |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
562 #x00B1 ;; 177:PLUS-MINUS SIGN |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
563 #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
|
564 #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
|
565 #x00A5 ;; 180:YEN SIGN |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
566 #x00B5 ;; 181:MICRO SIGN |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
567 #x2202 ;; 182:PARTIAL DIFFERENTIAL |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
568 #x2211 ;; 183:N-ARY SUMMATION |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
569 #x220F ;; 184:N-ARY PRODUCT |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
570 #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
|
571 #x222B ;; 186:INTEGRAL |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
572 #x00AA ;; 187:FEMININE ORDINAL INDICATOR |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
573 #x00BA ;; 188:MASCULINE ORDINAL INDICATOR |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
574 #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
|
575 #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
|
576 #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
|
577 #x00BF ;; 192:INVERTED QUESTION MARK |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
578 #x00A1 ;; 193:INVERTED EXCLAMATION MARK |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
579 #x00AC ;; 194:NOT SIGN |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
580 #x221A ;; 195:SQUARE ROOT |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
581 #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
|
582 #x2248 ;; 197:ALMOST EQUAL TO |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
583 #x2206 ;; 198:INCREMENT |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
584 #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
|
585 #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
|
586 #x2026 ;; 201:HORIZONTAL ELLIPSIS |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
587 #x00A0 ;; 202:NO-BREAK SPACE |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
588 #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
|
589 #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
|
590 #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
|
591 #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
|
592 #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
|
593 #x2013 ;; 208:EN DASH |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
594 #x2014 ;; 209:EM DASH |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
595 #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
|
596 #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
|
597 #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
|
598 #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
|
599 #x00F7 ;; 214:DIVISION SIGN |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
600 #x25CA ;; 215:LOZENGE |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
601 #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
|
602 #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
|
603 #x2044 ;; 218:FRACTION SLASH |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
604 #x20AC ;; 219:EURO SIGN |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
605 #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
|
606 #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
|
607 #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
|
608 #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
|
609 #x2021 ;; 224:DOUBLE DAGGER |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
610 #x00B7 ;; 225:MIDDLE DOT |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
611 #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
|
612 #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
|
613 #x2030 ;; 228:PER MILLE SIGN |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
614 #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
|
615 #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
|
616 #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
|
617 #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
|
618 #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
|
619 #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
|
620 #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
|
621 #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
|
622 #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
|
623 #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
|
624 #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
|
625 #xF8FF ;; 240:Apple logo |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
626 #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
|
627 #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
|
628 #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
|
629 #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
|
630 #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
|
631 #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
|
632 #x02DC ;; 247:SMALL TILDE |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
633 #x00AF ;; 248:MACRON |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
634 #x02D8 ;; 249:BREVE |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
635 #x02D9 ;; 250:DOT ABOVE |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
636 #x02DA ;; 251:RING ABOVE |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
637 #x00B8 ;; 252:CEDILLA |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
638 #x02DD ;; 253:DOUBLE ACUTE ACCENT |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
639 #x02DB ;; 254:OGONEK |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
640 #x02C7 ;; 255:CARON |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
641 ]) |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
642 translation-table) |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
643 (while (< i 128) |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
644 (aset encoding-vector i i) |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
645 (setq i (1+ i))) |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
646 (while (< i 256) |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
647 (aset encoding-vector i |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
648 (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
|
649 (setq i (1+ i))) |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
650 (setq translation-table |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
651 (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
|
652 (define-translation-table 'mac-roman-decoder translation-table) |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49043
diff
changeset
|
653 (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
|
654 (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
|
655 |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
656 (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
|
657 `(4 |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
658 ((loop |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
659 (read r1) |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
660 (if (r1 < 128) ;; ASCII |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
661 (r0 = ,(charset-id 'ascii)) |
33203
e91d2b7a0908
(decode-mac-roman): Test against r1 not r0.
Jason Rumney <jasonr@gnu.org>
parents:
33049
diff
changeset
|
662 (if (r1 < 160) |
33049
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
663 (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
|
664 (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
|
665 (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
|
666 (write-multibyte-character r0 r1) |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
667 (repeat)))) |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
668 "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
|
669 |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
670 (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
|
671 `(1 |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
672 ((loop |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
673 (read-multibyte-character r0 r1) |
47910
729eccda4769
("Slovenian"): Use slovenian input-method.
Dave Love <fx@gnu.org>
parents:
47237
diff
changeset
|
674 (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
|
675 (translate-character mac-roman-encoder r0 r1) |
48830
47d70e67763f
(encode-mac-roman): Fix last change.
Kenichi Handa <handa@m17n.org>
parents:
48779
diff
changeset
|
676 (if (r0 != ,(charset-id 'ascii)) |
47d70e67763f
(encode-mac-roman): Fix last change.
Kenichi Handa <handa@m17n.org>
parents:
48779
diff
changeset
|
677 (if (r0 != ,(charset-id 'eight-bit-graphic)) |
47d70e67763f
(encode-mac-roman): Fix last change.
Kenichi Handa <handa@m17n.org>
parents:
48779
diff
changeset
|
678 (if (r0 != ,(charset-id 'eight-bit-control)) |
47d70e67763f
(encode-mac-roman): Fix last change.
Kenichi Handa <handa@m17n.org>
parents:
48779
diff
changeset
|
679 (r1 = ??)))) |
33049
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
680 (write-repeat r1)))) |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
681 "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
|
682 |
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
683 (make-coding-system |
42152 | 684 'mac-roman 4 ?M |
685 "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
|
686 '(decode-mac-roman . encode-mac-roman) |
43734
ff1f9768901a
(mac-roman): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents:
43730
diff
changeset
|
687 (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
|
688 '(valid-codes (0 . 255)) |
ff1f9768901a
(mac-roman): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents:
43730
diff
changeset
|
689 '(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
|
690 |
41875
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
691 (defconst diacritic-composition-pattern "\\C^\\c^+") |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
692 |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
693 (defun diacritic-compose-region (beg end) |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
694 "Compose diacritic characters in the region. |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
695 When called from a program, expects two arguments, |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
696 positions (integers or markers) specifying the region." |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
697 (interactive "r") |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
698 (save-restriction |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
699 (narrow-to-region beg end) |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
700 (goto-char (point-min)) |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
701 (while (re-search-forward diacritic-composition-pattern nil t) |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
702 (compose-region (match-beginning 0) (match-end 0))))) |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
703 |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
704 (defun diacritic-compose-string (string) |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
705 "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
|
706 (let ((idx 0)) |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
707 (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
|
708 (compose-string string idx (match-end 0)) |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
709 (setq idx (match-end 0)))) |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
710 string) |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49043
diff
changeset
|
711 |
41875
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
712 (defun diacritic-compose-buffer () |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
713 "Compose diacritic characters in the current buffer." |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
714 (interactive) |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
715 (diacritic-compose-region (point-min) (point-max))) |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
716 |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
717 (defun diacritic-post-read-conversion (len) |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
718 (diacritic-compose-region (point) (+ (point) len)) |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
719 len) |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
720 |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
721 (defun diacritic-composition-function (from to pattern &optional string) |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
722 "Compose diacritic text in the region FROM and TO. |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
723 The text matches the regular expression PATTERN. |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
724 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
|
725 to compose. |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
726 |
48041
af717e120019
(diacritic-composition-function): Modify
Dave Love <fx@gnu.org>
parents:
47910
diff
changeset
|
727 The return value is the number of composed characters." |
af717e120019
(diacritic-composition-function): Modify
Dave Love <fx@gnu.org>
parents:
47910
diff
changeset
|
728 (when (< (1+ from) to) |
af717e120019
(diacritic-composition-function): Modify
Dave Love <fx@gnu.org>
parents:
47910
diff
changeset
|
729 (if string |
af717e120019
(diacritic-composition-function): Modify
Dave Love <fx@gnu.org>
parents:
47910
diff
changeset
|
730 (compose-string string from to) |
af717e120019
(diacritic-composition-function): Modify
Dave Love <fx@gnu.org>
parents:
47910
diff
changeset
|
731 (compose-region from to)) |
af717e120019
(diacritic-composition-function): Modify
Dave Love <fx@gnu.org>
parents:
47910
diff
changeset
|
732 (- to from))) |
41875
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
733 |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
734 ;; 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
|
735 (let ((patterns '(("\\C^\\c^+" . diacritic-composition-function)))) |
41875
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
736 (let ((c #x300)) |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
737 (while (<= c #x362) |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
738 (aset composition-function-table (decode-char 'ucs c) patterns) |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
739 (setq c (1+ c))) |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
740 (setq c #x20d0) |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
741 (while (<= c #x20e3) |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
742 (aset composition-function-table (decode-char 'ucs c) patterns) |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
743 (setq c (1+ c))))) |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
744 |
31155
3362938ebbd7
("Latin-8", "Latin-9"): Add input methods,
Dave Love <fx@gnu.org>
parents:
30261
diff
changeset
|
745 (provide 'european) |
3362938ebbd7
("Latin-8", "Latin-9"): Add input methods,
Dave Love <fx@gnu.org>
parents:
30261
diff
changeset
|
746 |
52401 | 747 ;;; arch-tag: 9e018b12-fb02-4120-907b-9adeaf84b5c2 |
17052 | 748 ;;; european.el ends here |