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