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