Mercurial > emacs
annotate lisp/language/european.el @ 92068:dd458038bf78
New file.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Fri, 22 Feb 2008 01:51:04 +0000 |
parents | 606f2d163a64 |
children | 1e3a407766b9 |
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 |
79711 | 3 ;; Copyright (C) 1997, 1998, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, |
4 ;; 2008 Free Software Foundation, Inc. | |
74605
6ee41fdd69ff
Update AIST copyright years.
Kenichi Handa <handa@m17n.org>
parents:
74544
diff
changeset
|
5 ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
79711 | 6 ;; 2005, 2006, 2007, 2008 |
62396 | 7 ;; National Institute of Advanced Industrial Science and Technology (AIST) |
8 ;; Registration Number H14PRO021 | |
89483 | 9 ;; Copyright (C) 2003 |
10 ;; National Institute of Advanced Industrial Science and Technology (AIST) | |
11 ;; Registration Number H13PRO009 | |
17052 | 12 |
13 ;; Keywords: multilingual, European | |
14 | |
15 ;; This file is part of GNU Emacs. | |
16 | |
17 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
18 ;; it under the terms of the GNU General Public License as published by | |
78309
0938de05f510
Restore comma mistakenly removed in last change.
Glenn Morris <rgm@gnu.org>
parents:
78300
diff
changeset
|
19 ;; the Free Software Foundation; either version 3, or (at your option) |
17052 | 20 ;; any later version. |
21 | |
22 ;; GNU Emacs is distributed in the hope that it will be useful, | |
23 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
24 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
25 ;; GNU General Public License for more details. | |
26 | |
27 ;; You should have received a copy of the GNU General Public License | |
17071 | 28 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
64085 | 29 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
30 ;; Boston, MA 02110-1301, USA. | |
17052 | 31 |
32 ;;; Commentary: | |
33 | |
52436
d095f4512252
(windows-1252): Moved from code-pages.
Dave Love <fx@gnu.org>
parents:
52401
diff
changeset
|
34 ;; For European scripts, all the ISO Latin character sets are |
d095f4512252
(windows-1252): Moved from code-pages.
Dave Love <fx@gnu.org>
parents:
52401
diff
changeset
|
35 ;; supported, along with various others. |
17052 | 36 |
37 ;;; Code: | |
38 | |
18069
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
39 ;; Latin-1 (ISO-8859-1) |
17993
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
40 |
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
41 (set-language-info-alist |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42353
diff
changeset
|
42 "Latin-1" '((charset iso-8859-1) |
89152 | 43 (coding-system iso-latin-1 iso-latin-9 windows-1252) |
20743 | 44 (coding-priority iso-latin-1) |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42353
diff
changeset
|
45 (nonascii-translation . iso-8859-1) |
22980
5681e7798ce9
(setup-8-bit-environment): Function deleted.
Kenichi Handa <handa@m17n.org>
parents:
22726
diff
changeset
|
46 (unibyte-display . iso-latin-1) |
23050 | 47 (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
|
48 (sample-text |
89943
4c90ffeb71c5
Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-15
Miles Bader <miles@gnu.org>
diff
changeset
|
49 . "Hello, Hej, Tere, Hei, Bonjour, Gr$(D+d)N(B Gott, Ciao, $(D"B(BHola!") |
20743 | 50 (documentation . "\ |
26014
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
51 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
|
52 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
|
53 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
|
54 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
|
55 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
|
56 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
|
57 Scottish Gaelic, Spanish, and Swedish. |
35350
c26260dd320b
("Latin-1"): Make the format of description
Kenichi Handa <handa@m17n.org>
parents:
35330
diff
changeset
|
58 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
|
59 For Dutch, \"Dutch\". |
c26260dd320b
("Latin-1"): Make the format of description
Kenichi Handa <handa@m17n.org>
parents:
35330
diff
changeset
|
60 For German, \"German\". |
49633
b7ecf0c51886
Add Slovenian to the deoc string fro language-info-alist.
Francesco Potortì <pot@gnu.org>
parents:
49631
diff
changeset
|
61 For French, \"French\". |
b7ecf0c51886
Add Slovenian to the deoc string fro language-info-alist.
Francesco Potortì <pot@gnu.org>
parents:
49631
diff
changeset
|
62 For Italian, \"Italian\". |
b7ecf0c51886
Add Slovenian to the deoc string fro language-info-alist.
Francesco Potortì <pot@gnu.org>
parents:
49631
diff
changeset
|
63 For Slovenian, \"Slovenian\". |
35350
c26260dd320b
("Latin-1"): Make the format of description
Kenichi Handa <handa@m17n.org>
parents:
35330
diff
changeset
|
64 For Spanish, \"Spanish\". |
26014
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
65 |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
66 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
|
67 Indonesian/Malay, Tagalog (Philippines), Swahili and Afrikaans.")) |
20743 | 68 '("European")) |
69 | |
17993
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
70 |
18069
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
71 ;; Latin-2 (ISO-8859-2) |
17993
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
72 |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42353
diff
changeset
|
73 (define-coding-system 'iso-latin-2 |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42353
diff
changeset
|
74 "ISO 2022 based 8-bit encoding for Latin-2 (MIME:ISO-8859-2)." |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42353
diff
changeset
|
75 :coding-type 'charset |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42353
diff
changeset
|
76 :mnemonic ?2 |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42353
diff
changeset
|
77 :charset-list '(iso-8859-2) |
88504 | 78 :mime-charset 'iso-8859-2) |
17052 | 79 |
18520
383d11185239
Swap args to define-coding-system-alias.
Richard M. Stallman <rms@gnu.org>
parents:
18377
diff
changeset
|
80 (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
|
81 (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
|
82 |
17993
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
83 (set-language-info-alist |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42353
diff
changeset
|
84 "Latin-2" '((charset iso-8859-2) |
89152 | 85 (coding-system iso-latin-2 windows-1250) |
20743 | 86 (coding-priority iso-latin-2) |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42353
diff
changeset
|
87 (nonascii-translation . iso-8859-2) |
22980
5681e7798ce9
(setup-8-bit-environment): Function deleted.
Kenichi Handa <handa@m17n.org>
parents:
22726
diff
changeset
|
88 (unibyte-display . iso-latin-2) |
23050 | 89 (input-method . "latin-2-prefix") |
20743 | 90 (documentation . "\ |
26014
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
91 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
|
92 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
|
93 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
|
94 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
|
95 and Swedish. |
13247082e0ed
("Latin-1"): Modify `documentation' key value.
Kenichi Handa <handa@m17n.org>
parents:
23111
diff
changeset
|
96 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
|
97 For Czech, \"Czech\". |
49043 | 98 For Croatian, \"Croatian\". |
89185 | 99 For Polish, \"Polish\". |
23117
13247082e0ed
("Latin-1"): Modify `documentation' key value.
Kenichi Handa <handa@m17n.org>
parents:
23111
diff
changeset
|
100 For Romanian, \"Romanian\". |
13247082e0ed
("Latin-1"): Modify `documentation' key value.
Kenichi Handa <handa@m17n.org>
parents:
23111
diff
changeset
|
101 For Slovak, \"Slovak\".")) |
20743 | 102 '("European")) |
103 | |
17993
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
104 |
18069
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
105 ;; Latin-3 (ISO-8859-3) |
17993
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
106 |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42353
diff
changeset
|
107 (define-coding-system 'iso-latin-3 |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42353
diff
changeset
|
108 "ISO 2022 based 8-bit encoding for Latin-3 (MIME:ISO-8859-3)." |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42353
diff
changeset
|
109 :coding-type 'charset |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42353
diff
changeset
|
110 :mnemonic ?3 |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42353
diff
changeset
|
111 :charset-list '(iso-8859-3) |
88504 | 112 :mime-charset 'iso-8859-3) |
17052 | 113 |
18520
383d11185239
Swap args to define-coding-system-alias.
Richard M. Stallman <rms@gnu.org>
parents:
18377
diff
changeset
|
114 (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
|
115 (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
|
116 |
17993
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
117 (set-language-info-alist |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42353
diff
changeset
|
118 "Latin-3" '((charset iso-8859-3) |
20743 | 119 (coding-system iso-latin-3) |
120 (coding-priority iso-latin-3) | |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42353
diff
changeset
|
121 (nonascii-translation . iso-8859-3) |
22980
5681e7798ce9
(setup-8-bit-environment): Function deleted.
Kenichi Handa <handa@m17n.org>
parents:
22726
diff
changeset
|
122 (unibyte-display . iso-latin-3) |
23050 | 123 (input-method . "latin-3-prefix") |
20743 | 124 (documentation . "\ |
18117
5db3b24f2c5c
(iso-8859-1): Use `1' for mode line.
Richard M. Stallman <rms@gnu.org>
parents:
18069
diff
changeset
|
125 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
|
126 Afrikaans, Catalan, Dutch, English, Esperanto, French, Galician, |
20743 | 127 German, Italian, Maltese, Spanish, and Turkish.")) |
128 '("European")) | |
129 | |
17993
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
130 |
18069
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
131 ;; Latin-4 (ISO-8859-4) |
17993
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
132 |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42353
diff
changeset
|
133 (define-coding-system 'iso-latin-4 |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42353
diff
changeset
|
134 "ISO 2022 based 8-bit encoding for Latin-4 (MIME:ISO-8859-4)." |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42353
diff
changeset
|
135 :coding-type 'charset |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42353
diff
changeset
|
136 :mnemonic ?4 |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42353
diff
changeset
|
137 :charset-list '(iso-8859-4) |
88504 | 138 :mime-charset 'iso-8859-4) |
17052 | 139 |
18520
383d11185239
Swap args to define-coding-system-alias.
Richard M. Stallman <rms@gnu.org>
parents:
18377
diff
changeset
|
140 (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
|
141 (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
|
142 |
17993
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
143 (set-language-info-alist |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42353
diff
changeset
|
144 "Latin-4" '((charset iso-8859-4) |
20743 | 145 (coding-system iso-8859-4) |
146 (coding-priority iso-8859-4) | |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42353
diff
changeset
|
147 (nonascii-translation . iso-8859-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 |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42353
diff
changeset
|
159 (define-coding-system 'iso-latin-5 |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42353
diff
changeset
|
160 "ISO 2022 based 8-bit encoding for Latin-5 (MIME:ISO-8859-9)." |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42353
diff
changeset
|
161 :coding-type 'charset |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42353
diff
changeset
|
162 :mnemonic ?9 |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42353
diff
changeset
|
163 :charset-list '(iso-8859-9) |
88504 | 164 :mime-charset 'iso-8859-9) |
17052 | 165 |
18520
383d11185239
Swap args to define-coding-system-alias.
Richard M. Stallman <rms@gnu.org>
parents:
18377
diff
changeset
|
166 (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
|
167 (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
|
168 |
17052 | 169 (set-language-info-alist |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42353
diff
changeset
|
170 "Latin-5" '((charset iso-8859-9) |
20743 | 171 (coding-system iso-latin-5) |
172 (coding-priority iso-latin-5) | |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42353
diff
changeset
|
173 (nonascii-translation . iso-8859-9) |
22980
5681e7798ce9
(setup-8-bit-environment): Function deleted.
Kenichi Handa <handa@m17n.org>
parents:
22726
diff
changeset
|
174 (unibyte-display . iso-latin-5) |
36870
afe2778e4c9d
("Latin-5", "Latin-4"): Use postfix input
Gerd Moellmann <gerd@gnu.org>
parents:
35350
diff
changeset
|
175 (input-method . "latin-5-postfix") |
89185 | 176 (documentation . "Support for Latin-5.\ |
177 See also the Turkish environment.")) | |
20743 | 178 '("European")) |
179 | |
180 | |
88577
c982147b17d7
(iso-latin-6, iso-8859-10, latin-6)
Dave Love <fx@gnu.org>
parents:
88561
diff
changeset
|
181 ;; Latin-6 (ISO-8859-10) |
c982147b17d7
(iso-latin-6, iso-8859-10, latin-6)
Dave Love <fx@gnu.org>
parents:
88561
diff
changeset
|
182 |
c982147b17d7
(iso-latin-6, iso-8859-10, latin-6)
Dave Love <fx@gnu.org>
parents:
88561
diff
changeset
|
183 (define-coding-system 'iso-latin-6 |
c982147b17d7
(iso-latin-6, iso-8859-10, latin-6)
Dave Love <fx@gnu.org>
parents:
88561
diff
changeset
|
184 "ISO 2022 based 8-bit encoding for Latin-6 (MIME:ISO-8859-10)." |
c982147b17d7
(iso-latin-6, iso-8859-10, latin-6)
Dave Love <fx@gnu.org>
parents:
88561
diff
changeset
|
185 :coding-type 'charset |
c982147b17d7
(iso-latin-6, iso-8859-10, latin-6)
Dave Love <fx@gnu.org>
parents:
88561
diff
changeset
|
186 :mnemonic ?9 |
c982147b17d7
(iso-latin-6, iso-8859-10, latin-6)
Dave Love <fx@gnu.org>
parents:
88561
diff
changeset
|
187 :charset-list '(iso-8859-10) |
c982147b17d7
(iso-latin-6, iso-8859-10, latin-6)
Dave Love <fx@gnu.org>
parents:
88561
diff
changeset
|
188 :mime-charset 'iso-8859-10) |
c982147b17d7
(iso-latin-6, iso-8859-10, latin-6)
Dave Love <fx@gnu.org>
parents:
88561
diff
changeset
|
189 |
c982147b17d7
(iso-latin-6, iso-8859-10, latin-6)
Dave Love <fx@gnu.org>
parents:
88561
diff
changeset
|
190 (define-coding-system-alias 'iso-8859-10 'iso-latin-6) |
c982147b17d7
(iso-latin-6, iso-8859-10, latin-6)
Dave Love <fx@gnu.org>
parents:
88561
diff
changeset
|
191 (define-coding-system-alias 'latin-6 'iso-latin-6) |
c982147b17d7
(iso-latin-6, iso-8859-10, latin-6)
Dave Love <fx@gnu.org>
parents:
88561
diff
changeset
|
192 |
c982147b17d7
(iso-latin-6, iso-8859-10, latin-6)
Dave Love <fx@gnu.org>
parents:
88561
diff
changeset
|
193 (set-language-info-alist |
c982147b17d7
(iso-latin-6, iso-8859-10, latin-6)
Dave Love <fx@gnu.org>
parents:
88561
diff
changeset
|
194 "Latin-6" '((charset iso-8859-10) |
c982147b17d7
(iso-latin-6, iso-8859-10, latin-6)
Dave Love <fx@gnu.org>
parents:
88561
diff
changeset
|
195 (coding-system iso-latin-6) |
c982147b17d7
(iso-latin-6, iso-8859-10, latin-6)
Dave Love <fx@gnu.org>
parents:
88561
diff
changeset
|
196 (coding-priority iso-latin-6) |
c982147b17d7
(iso-latin-6, iso-8859-10, latin-6)
Dave Love <fx@gnu.org>
parents:
88561
diff
changeset
|
197 (nonascii-translation . iso-8859-10) |
c982147b17d7
(iso-latin-6, iso-8859-10, latin-6)
Dave Love <fx@gnu.org>
parents:
88561
diff
changeset
|
198 (unibyte-display . iso-latin-6) |
c982147b17d7
(iso-latin-6, iso-8859-10, latin-6)
Dave Love <fx@gnu.org>
parents:
88561
diff
changeset
|
199 ;; Fixme: input method. |
c982147b17d7
(iso-latin-6, iso-8859-10, latin-6)
Dave Love <fx@gnu.org>
parents:
88561
diff
changeset
|
200 (documentation . "Support for generic Latin-6 (Northern European).")) |
c982147b17d7
(iso-latin-6, iso-8859-10, latin-6)
Dave Love <fx@gnu.org>
parents:
88561
diff
changeset
|
201 '("European")) |
c982147b17d7
(iso-latin-6, iso-8859-10, latin-6)
Dave Love <fx@gnu.org>
parents:
88561
diff
changeset
|
202 |
c982147b17d7
(iso-latin-6, iso-8859-10, latin-6)
Dave Love <fx@gnu.org>
parents:
88561
diff
changeset
|
203 |
c982147b17d7
(iso-latin-6, iso-8859-10, latin-6)
Dave Love <fx@gnu.org>
parents:
88561
diff
changeset
|
204 ;; Latin-7 (ISO-8859-13) |
c982147b17d7
(iso-latin-6, iso-8859-10, latin-6)
Dave Love <fx@gnu.org>
parents:
88561
diff
changeset
|
205 |
c982147b17d7
(iso-latin-6, iso-8859-10, latin-6)
Dave Love <fx@gnu.org>
parents:
88561
diff
changeset
|
206 (define-coding-system 'iso-latin-7 |
c982147b17d7
(iso-latin-6, iso-8859-10, latin-6)
Dave Love <fx@gnu.org>
parents:
88561
diff
changeset
|
207 "ISO 2022 based 8-bit encoding for Latin-7 (MIME:ISO-8859-13)." |
c982147b17d7
(iso-latin-6, iso-8859-10, latin-6)
Dave Love <fx@gnu.org>
parents:
88561
diff
changeset
|
208 :coding-type 'charset |
c982147b17d7
(iso-latin-6, iso-8859-10, latin-6)
Dave Love <fx@gnu.org>
parents:
88561
diff
changeset
|
209 :mnemonic ?9 |
c982147b17d7
(iso-latin-6, iso-8859-10, latin-6)
Dave Love <fx@gnu.org>
parents:
88561
diff
changeset
|
210 :charset-list '(iso-8859-13) |
c982147b17d7
(iso-latin-6, iso-8859-10, latin-6)
Dave Love <fx@gnu.org>
parents:
88561
diff
changeset
|
211 :mime-charset 'iso-8859-13) |
c982147b17d7
(iso-latin-6, iso-8859-10, latin-6)
Dave Love <fx@gnu.org>
parents:
88561
diff
changeset
|
212 |
c982147b17d7
(iso-latin-6, iso-8859-10, latin-6)
Dave Love <fx@gnu.org>
parents:
88561
diff
changeset
|
213 (define-coding-system-alias 'iso-8859-13 'iso-latin-7) |
c982147b17d7
(iso-latin-6, iso-8859-10, latin-6)
Dave Love <fx@gnu.org>
parents:
88561
diff
changeset
|
214 (define-coding-system-alias 'latin-7 'iso-latin-7) |
c982147b17d7
(iso-latin-6, iso-8859-10, latin-6)
Dave Love <fx@gnu.org>
parents:
88561
diff
changeset
|
215 |
c982147b17d7
(iso-latin-6, iso-8859-10, latin-6)
Dave Love <fx@gnu.org>
parents:
88561
diff
changeset
|
216 (set-language-info-alist |
c982147b17d7
(iso-latin-6, iso-8859-10, latin-6)
Dave Love <fx@gnu.org>
parents:
88561
diff
changeset
|
217 "Latin-7" '((charset iso-8859-13) |
c982147b17d7
(iso-latin-6, iso-8859-10, latin-6)
Dave Love <fx@gnu.org>
parents:
88561
diff
changeset
|
218 (coding-system iso-latin-7) |
c982147b17d7
(iso-latin-6, iso-8859-10, latin-6)
Dave Love <fx@gnu.org>
parents:
88561
diff
changeset
|
219 (coding-priority iso-latin-7) |
c982147b17d7
(iso-latin-6, iso-8859-10, latin-6)
Dave Love <fx@gnu.org>
parents:
88561
diff
changeset
|
220 (nonascii-translation . iso-8859-13) |
c982147b17d7
(iso-latin-6, iso-8859-10, latin-6)
Dave Love <fx@gnu.org>
parents:
88561
diff
changeset
|
221 (unibyte-display . iso-latin-7) |
c982147b17d7
(iso-latin-6, iso-8859-10, latin-6)
Dave Love <fx@gnu.org>
parents:
88561
diff
changeset
|
222 ;; Fixme: input method. |
c982147b17d7
(iso-latin-6, iso-8859-10, latin-6)
Dave Love <fx@gnu.org>
parents:
88561
diff
changeset
|
223 (documentation . "Support for generic Latin-7 (Baltic Rim).")) |
c982147b17d7
(iso-latin-6, iso-8859-10, latin-6)
Dave Love <fx@gnu.org>
parents:
88561
diff
changeset
|
224 '("European")) |
c982147b17d7
(iso-latin-6, iso-8859-10, latin-6)
Dave Love <fx@gnu.org>
parents:
88561
diff
changeset
|
225 |
26014
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
226 ;; Latin-8 (ISO-8859-14) |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
227 |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42353
diff
changeset
|
228 (define-coding-system 'iso-latin-8 |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42353
diff
changeset
|
229 "ISO 2022 based 8-bit encoding for Latin-8 (MIME:ISO-8859-14)." |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42353
diff
changeset
|
230 :coding-type 'charset |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42353
diff
changeset
|
231 ;; `W' for `Welsh', since `C' for `Celtic' is taken. |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42353
diff
changeset
|
232 :mnemonic ?W |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42353
diff
changeset
|
233 :charset-list '(iso-8859-14) |
88504 | 234 :mime-charset 'iso-8859-14) |
26014
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
235 |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
236 (define-coding-system-alias 'iso-8859-14 'iso-latin-8) |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
237 (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
|
238 |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
239 (set-language-info-alist |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42353
diff
changeset
|
240 "Latin-8" '((charset iso-8859-14) |
26014
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
241 (coding-system iso-latin-8) |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
242 (coding-priority iso-latin-8) |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42353
diff
changeset
|
243 (nonascii-translation . iso-8859-14) |
26014
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
244 (unibyte-display . iso-latin-8) |
31155
3362938ebbd7
("Latin-8", "Latin-9"): Add input methods,
Dave Love <fx@gnu.org>
parents:
30261
diff
changeset
|
245 (input-method . "latin-8-prefix") |
3362938ebbd7
("Latin-8", "Latin-9"): Add input methods,
Dave Love <fx@gnu.org>
parents:
30261
diff
changeset
|
246 ;; Fixme: Welsh/Ga{e}lic greetings |
89943
4c90ffeb71c5
Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-15
Miles Bader <miles@gnu.org>
diff
changeset
|
247 (sample-text . ",_"(B $(D+q(B $(D*t(B") |
26014
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
248 (documentation . "\ |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
249 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
|
250 character set which supports the Celtic languages, including those not |
42152 | 251 covered by other ISO-8859 character sets: |
252 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
|
253 '("European")) |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
254 |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
255 ;; Latin-9 (ISO-8859-15) |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
256 |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42353
diff
changeset
|
257 (define-coding-system 'iso-latin-9 |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42353
diff
changeset
|
258 "ISO 2022 based 8-bit encoding for Latin-9 (MIME:ISO-8859-15)." |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42353
diff
changeset
|
259 :coding-type 'charset |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42353
diff
changeset
|
260 ;; `0' for `Latin-0' |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42353
diff
changeset
|
261 :mnemonic ?0 |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42353
diff
changeset
|
262 :charset-list '(iso-8859-15) |
88504 | 263 :mime-charset 'iso-8859-15) |
26014
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
264 |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
265 (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
|
266 (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
|
267 (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
|
268 |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
269 (set-language-info-alist |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42353
diff
changeset
|
270 "Latin-9" '((charset iso-8859-15) |
26014
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
271 (coding-system iso-latin-9) |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
272 (coding-priority iso-latin-9) |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42353
diff
changeset
|
273 (nonascii-translation . iso-8859-15) |
26014
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
274 (unibyte-display . iso-latin-9) |
31155
3362938ebbd7
("Latin-8", "Latin-9"): Add input methods,
Dave Love <fx@gnu.org>
parents:
30261
diff
changeset
|
275 (input-method . "latin-9-prefix") |
26014
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
276 (sample-text |
89943
4c90ffeb71c5
Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-15
Miles Bader <miles@gnu.org>
diff
changeset
|
277 . "AVE. $(D*^+^*v+v)-)M*s(B $(Q)!(B") |
26014
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
278 (documentation . "\ |
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
279 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
|
280 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
|
281 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
|
282 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
|
283 '("European")) |
90776 | 284 |
285 (set-language-info-alist | |
286 "Esperanto" '((tutorial . "TUTORIAL.eo") | |
287 (charset ascii latin-iso8859-3) | |
288 (coding-system iso-latin-3) | |
289 (coding-priority iso-latin-3) | |
290 (nonascii-translation . latin-iso8859-3) | |
291 (unibyte-syntax . "latin-3") | |
292 (unibyte-display . iso-latin-3) | |
293 (input-method . "latin-3-prefix") | |
294 (documentation . "Support for Esperanto with ISO-8859-3 character set.")) | |
295 '("European")) | |
296 | |
26014
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
297 |
88561
e63aa0be6e95
(windows-1254, cp1254, windows-1257)
Dave Love <fx@gnu.org>
parents:
88532
diff
changeset
|
298 (define-coding-system 'windows-1250 |
e63aa0be6e95
(windows-1254, cp1254, windows-1257)
Dave Love <fx@gnu.org>
parents:
88532
diff
changeset
|
299 "windows-1250 (Central European) encoding (MIME: WINDOWS-1250)" |
e63aa0be6e95
(windows-1254, cp1254, windows-1257)
Dave Love <fx@gnu.org>
parents:
88532
diff
changeset
|
300 :coding-type 'charset |
e63aa0be6e95
(windows-1254, cp1254, windows-1257)
Dave Love <fx@gnu.org>
parents:
88532
diff
changeset
|
301 :mnemonic ?* |
e63aa0be6e95
(windows-1254, cp1254, windows-1257)
Dave Love <fx@gnu.org>
parents:
88532
diff
changeset
|
302 :charset-list '(windows-1250) |
e63aa0be6e95
(windows-1254, cp1254, windows-1257)
Dave Love <fx@gnu.org>
parents:
88532
diff
changeset
|
303 :mime-charset 'windows-1250) |
e63aa0be6e95
(windows-1254, cp1254, windows-1257)
Dave Love <fx@gnu.org>
parents:
88532
diff
changeset
|
304 (define-coding-system-alias 'cp1250 'windows-1250) |
e63aa0be6e95
(windows-1254, cp1254, windows-1257)
Dave Love <fx@gnu.org>
parents:
88532
diff
changeset
|
305 |
88532
6411031426af
(windows-1252): New coding system.
Dave Love <fx@gnu.org>
parents:
88504
diff
changeset
|
306 (define-coding-system 'windows-1252 |
88561
e63aa0be6e95
(windows-1254, cp1254, windows-1257)
Dave Love <fx@gnu.org>
parents:
88532
diff
changeset
|
307 "windows-1252 (Western European) encoding (MIME: WINDOWS-1252)" |
88532
6411031426af
(windows-1252): New coding system.
Dave Love <fx@gnu.org>
parents:
88504
diff
changeset
|
308 :coding-type 'charset |
6411031426af
(windows-1252): New coding system.
Dave Love <fx@gnu.org>
parents:
88504
diff
changeset
|
309 :mnemonic ?* |
6411031426af
(windows-1252): New coding system.
Dave Love <fx@gnu.org>
parents:
88504
diff
changeset
|
310 :charset-list '(windows-1252) |
6411031426af
(windows-1252): New coding system.
Dave Love <fx@gnu.org>
parents:
88504
diff
changeset
|
311 :mime-charset 'windows-1252) |
6411031426af
(windows-1252): New coding system.
Dave Love <fx@gnu.org>
parents:
88504
diff
changeset
|
312 (define-coding-system-alias 'cp1252 'windows-1252) |
88561
e63aa0be6e95
(windows-1254, cp1254, windows-1257)
Dave Love <fx@gnu.org>
parents:
88532
diff
changeset
|
313 |
e63aa0be6e95
(windows-1254, cp1254, windows-1257)
Dave Love <fx@gnu.org>
parents:
88532
diff
changeset
|
314 (define-coding-system 'windows-1254 |
e63aa0be6e95
(windows-1254, cp1254, windows-1257)
Dave Love <fx@gnu.org>
parents:
88532
diff
changeset
|
315 "windows-1254 (Turkish) encoding (MIME: WINDOWS-1254)" |
e63aa0be6e95
(windows-1254, cp1254, windows-1257)
Dave Love <fx@gnu.org>
parents:
88532
diff
changeset
|
316 :coding-type 'charset |
e63aa0be6e95
(windows-1254, cp1254, windows-1257)
Dave Love <fx@gnu.org>
parents:
88532
diff
changeset
|
317 :mnemonic ?* |
e63aa0be6e95
(windows-1254, cp1254, windows-1257)
Dave Love <fx@gnu.org>
parents:
88532
diff
changeset
|
318 :charset-list '(windows-1254) |
e63aa0be6e95
(windows-1254, cp1254, windows-1257)
Dave Love <fx@gnu.org>
parents:
88532
diff
changeset
|
319 :mime-charset 'windows-1254) |
e63aa0be6e95
(windows-1254, cp1254, windows-1257)
Dave Love <fx@gnu.org>
parents:
88532
diff
changeset
|
320 (define-coding-system-alias 'cp1254 'windows-1254) |
e63aa0be6e95
(windows-1254, cp1254, windows-1257)
Dave Love <fx@gnu.org>
parents:
88532
diff
changeset
|
321 |
e63aa0be6e95
(windows-1254, cp1254, windows-1257)
Dave Love <fx@gnu.org>
parents:
88532
diff
changeset
|
322 (define-coding-system 'windows-1257 |
e63aa0be6e95
(windows-1254, cp1254, windows-1257)
Dave Love <fx@gnu.org>
parents:
88532
diff
changeset
|
323 "windows-1257 (Baltic) encoding (MIME: WINDOWS-1257)" |
e63aa0be6e95
(windows-1254, cp1254, windows-1257)
Dave Love <fx@gnu.org>
parents:
88532
diff
changeset
|
324 :coding-type 'charset |
e63aa0be6e95
(windows-1254, cp1254, windows-1257)
Dave Love <fx@gnu.org>
parents:
88532
diff
changeset
|
325 :mnemonic ?* |
e63aa0be6e95
(windows-1254, cp1254, windows-1257)
Dave Love <fx@gnu.org>
parents:
88532
diff
changeset
|
326 :charset-list '(windows-1257) |
e63aa0be6e95
(windows-1254, cp1254, windows-1257)
Dave Love <fx@gnu.org>
parents:
88532
diff
changeset
|
327 :mime-charset 'windows-1257) |
e63aa0be6e95
(windows-1254, cp1254, windows-1257)
Dave Love <fx@gnu.org>
parents:
88532
diff
changeset
|
328 (define-coding-system-alias 'cp1257 'windows-1257) |
88577
c982147b17d7
(iso-latin-6, iso-8859-10, latin-6)
Dave Love <fx@gnu.org>
parents:
88561
diff
changeset
|
329 |
c982147b17d7
(iso-latin-6, iso-8859-10, latin-6)
Dave Love <fx@gnu.org>
parents:
88561
diff
changeset
|
330 (define-coding-system 'cp850 |
c982147b17d7
(iso-latin-6, iso-8859-10, latin-6)
Dave Love <fx@gnu.org>
parents:
88561
diff
changeset
|
331 "DOS codepage 850 (Western European)" |
c982147b17d7
(iso-latin-6, iso-8859-10, latin-6)
Dave Love <fx@gnu.org>
parents:
88561
diff
changeset
|
332 :coding-type 'charset |
c982147b17d7
(iso-latin-6, iso-8859-10, latin-6)
Dave Love <fx@gnu.org>
parents:
88561
diff
changeset
|
333 :mnemonic ?D |
c982147b17d7
(iso-latin-6, iso-8859-10, latin-6)
Dave Love <fx@gnu.org>
parents:
88561
diff
changeset
|
334 :charset-list '(cp850) |
c982147b17d7
(iso-latin-6, iso-8859-10, latin-6)
Dave Love <fx@gnu.org>
parents:
88561
diff
changeset
|
335 :mime-charset 'cp850) |
c982147b17d7
(iso-latin-6, iso-8859-10, latin-6)
Dave Love <fx@gnu.org>
parents:
88561
diff
changeset
|
336 (define-coding-system-alias 'ibm850 'cp850) |
88617
93cfa81ccf00
(cp852, ibm852, cp857, ibm857, cp860)
Dave Love <fx@gnu.org>
parents:
88582
diff
changeset
|
337 |
93cfa81ccf00
(cp852, ibm852, cp857, ibm857, cp860)
Dave Love <fx@gnu.org>
parents:
88582
diff
changeset
|
338 (define-coding-system 'cp852 |
93cfa81ccf00
(cp852, ibm852, cp857, ibm857, cp860)
Dave Love <fx@gnu.org>
parents:
88582
diff
changeset
|
339 "DOS codepage 852 (Slavic)" |
93cfa81ccf00
(cp852, ibm852, cp857, ibm857, cp860)
Dave Love <fx@gnu.org>
parents:
88582
diff
changeset
|
340 :coding-type 'charset |
93cfa81ccf00
(cp852, ibm852, cp857, ibm857, cp860)
Dave Love <fx@gnu.org>
parents:
88582
diff
changeset
|
341 :mnemonic ?D |
93cfa81ccf00
(cp852, ibm852, cp857, ibm857, cp860)
Dave Love <fx@gnu.org>
parents:
88582
diff
changeset
|
342 :charset-list '(cp852) |
93cfa81ccf00
(cp852, ibm852, cp857, ibm857, cp860)
Dave Love <fx@gnu.org>
parents:
88582
diff
changeset
|
343 :mime-charset 'cp852) |
93cfa81ccf00
(cp852, ibm852, cp857, ibm857, cp860)
Dave Love <fx@gnu.org>
parents:
88582
diff
changeset
|
344 (define-coding-system-alias 'ibm852 'cp852) |
93cfa81ccf00
(cp852, ibm852, cp857, ibm857, cp860)
Dave Love <fx@gnu.org>
parents:
88582
diff
changeset
|
345 |
93cfa81ccf00
(cp852, ibm852, cp857, ibm857, cp860)
Dave Love <fx@gnu.org>
parents:
88582
diff
changeset
|
346 (define-coding-system 'cp857 |
93cfa81ccf00
(cp852, ibm852, cp857, ibm857, cp860)
Dave Love <fx@gnu.org>
parents:
88582
diff
changeset
|
347 "DOS codepage 857 (Turkish)" |
93cfa81ccf00
(cp852, ibm852, cp857, ibm857, cp860)
Dave Love <fx@gnu.org>
parents:
88582
diff
changeset
|
348 :coding-type 'charset |
93cfa81ccf00
(cp852, ibm852, cp857, ibm857, cp860)
Dave Love <fx@gnu.org>
parents:
88582
diff
changeset
|
349 :mnemonic ?D |
93cfa81ccf00
(cp852, ibm852, cp857, ibm857, cp860)
Dave Love <fx@gnu.org>
parents:
88582
diff
changeset
|
350 :charset-list '(cp857) |
93cfa81ccf00
(cp852, ibm852, cp857, ibm857, cp860)
Dave Love <fx@gnu.org>
parents:
88582
diff
changeset
|
351 :mime-charset 'cp857) |
93cfa81ccf00
(cp852, ibm852, cp857, ibm857, cp860)
Dave Love <fx@gnu.org>
parents:
88582
diff
changeset
|
352 (define-coding-system-alias 'ibm857 'cp857) |
93cfa81ccf00
(cp852, ibm852, cp857, ibm857, cp860)
Dave Love <fx@gnu.org>
parents:
88582
diff
changeset
|
353 |
89088 | 354 (define-coding-system 'cp858 |
355 "Codepage 858 (Multilingual Latin I + Euro)" | |
356 :coding-type 'charset | |
357 :mnemonic ?D | |
358 :charset-list '(cp858) | |
359 :mime-charset 'cp858) | |
360 | |
88617
93cfa81ccf00
(cp852, ibm852, cp857, ibm857, cp860)
Dave Love <fx@gnu.org>
parents:
88582
diff
changeset
|
361 (define-coding-system 'cp860 |
93cfa81ccf00
(cp852, ibm852, cp857, ibm857, cp860)
Dave Love <fx@gnu.org>
parents:
88582
diff
changeset
|
362 "DOS codepage 860 (Portuguese)" |
93cfa81ccf00
(cp852, ibm852, cp857, ibm857, cp860)
Dave Love <fx@gnu.org>
parents:
88582
diff
changeset
|
363 :coding-type 'charset |
93cfa81ccf00
(cp852, ibm852, cp857, ibm857, cp860)
Dave Love <fx@gnu.org>
parents:
88582
diff
changeset
|
364 :mnemonic ?D |
93cfa81ccf00
(cp852, ibm852, cp857, ibm857, cp860)
Dave Love <fx@gnu.org>
parents:
88582
diff
changeset
|
365 :charset-list '(cp860) |
93cfa81ccf00
(cp852, ibm852, cp857, ibm857, cp860)
Dave Love <fx@gnu.org>
parents:
88582
diff
changeset
|
366 :mime-charset 'cp860) |
93cfa81ccf00
(cp852, ibm852, cp857, ibm857, cp860)
Dave Love <fx@gnu.org>
parents:
88582
diff
changeset
|
367 (define-coding-system-alias 'ibm860 'cp860) |
93cfa81ccf00
(cp852, ibm852, cp857, ibm857, cp860)
Dave Love <fx@gnu.org>
parents:
88582
diff
changeset
|
368 |
93cfa81ccf00
(cp852, ibm852, cp857, ibm857, cp860)
Dave Love <fx@gnu.org>
parents:
88582
diff
changeset
|
369 (define-coding-system 'cp861 |
93cfa81ccf00
(cp852, ibm852, cp857, ibm857, cp860)
Dave Love <fx@gnu.org>
parents:
88582
diff
changeset
|
370 "DOS codepage 861 (Icelandic)" |
93cfa81ccf00
(cp852, ibm852, cp857, ibm857, cp860)
Dave Love <fx@gnu.org>
parents:
88582
diff
changeset
|
371 :coding-type 'charset |
93cfa81ccf00
(cp852, ibm852, cp857, ibm857, cp860)
Dave Love <fx@gnu.org>
parents:
88582
diff
changeset
|
372 :mnemonic ?D |
93cfa81ccf00
(cp852, ibm852, cp857, ibm857, cp860)
Dave Love <fx@gnu.org>
parents:
88582
diff
changeset
|
373 :charset-list '(cp861) |
93cfa81ccf00
(cp852, ibm852, cp857, ibm857, cp860)
Dave Love <fx@gnu.org>
parents:
88582
diff
changeset
|
374 :mime-charset 'cp861) |
93cfa81ccf00
(cp852, ibm852, cp857, ibm857, cp860)
Dave Love <fx@gnu.org>
parents:
88582
diff
changeset
|
375 (define-coding-system-alias 'ibm861 'cp861) |
93cfa81ccf00
(cp852, ibm852, cp857, ibm857, cp860)
Dave Love <fx@gnu.org>
parents:
88582
diff
changeset
|
376 |
93cfa81ccf00
(cp852, ibm852, cp857, ibm857, cp860)
Dave Love <fx@gnu.org>
parents:
88582
diff
changeset
|
377 (define-coding-system 'cp863 |
93cfa81ccf00
(cp852, ibm852, cp857, ibm857, cp860)
Dave Love <fx@gnu.org>
parents:
88582
diff
changeset
|
378 "DOS codepage 863 (French Canadian)" |
93cfa81ccf00
(cp852, ibm852, cp857, ibm857, cp860)
Dave Love <fx@gnu.org>
parents:
88582
diff
changeset
|
379 :coding-type 'charset |
93cfa81ccf00
(cp852, ibm852, cp857, ibm857, cp860)
Dave Love <fx@gnu.org>
parents:
88582
diff
changeset
|
380 :mnemonic ?D |
93cfa81ccf00
(cp852, ibm852, cp857, ibm857, cp860)
Dave Love <fx@gnu.org>
parents:
88582
diff
changeset
|
381 :charset-list '(cp863) |
93cfa81ccf00
(cp852, ibm852, cp857, ibm857, cp860)
Dave Love <fx@gnu.org>
parents:
88582
diff
changeset
|
382 :mime-charset 'cp863) |
93cfa81ccf00
(cp852, ibm852, cp857, ibm857, cp860)
Dave Love <fx@gnu.org>
parents:
88582
diff
changeset
|
383 (define-coding-system-alias 'ibm863 'cp863) |
93cfa81ccf00
(cp852, ibm852, cp857, ibm857, cp860)
Dave Love <fx@gnu.org>
parents:
88582
diff
changeset
|
384 |
93cfa81ccf00
(cp852, ibm852, cp857, ibm857, cp860)
Dave Love <fx@gnu.org>
parents:
88582
diff
changeset
|
385 (define-coding-system 'cp865 |
93cfa81ccf00
(cp852, ibm852, cp857, ibm857, cp860)
Dave Love <fx@gnu.org>
parents:
88582
diff
changeset
|
386 "DOS codepage 865 (Norwegian/Danish)" |
93cfa81ccf00
(cp852, ibm852, cp857, ibm857, cp860)
Dave Love <fx@gnu.org>
parents:
88582
diff
changeset
|
387 :coding-type 'charset |
93cfa81ccf00
(cp852, ibm852, cp857, ibm857, cp860)
Dave Love <fx@gnu.org>
parents:
88582
diff
changeset
|
388 :mnemonic ?D |
93cfa81ccf00
(cp852, ibm852, cp857, ibm857, cp860)
Dave Love <fx@gnu.org>
parents:
88582
diff
changeset
|
389 :charset-list '(cp865) |
93cfa81ccf00
(cp852, ibm852, cp857, ibm857, cp860)
Dave Love <fx@gnu.org>
parents:
88582
diff
changeset
|
390 :mime-charset 'cp865) |
93cfa81ccf00
(cp852, ibm852, cp857, ibm857, cp860)
Dave Love <fx@gnu.org>
parents:
88582
diff
changeset
|
391 (define-coding-system-alias 'ibm865 'cp865) |
93cfa81ccf00
(cp852, ibm852, cp857, ibm857, cp860)
Dave Love <fx@gnu.org>
parents:
88582
diff
changeset
|
392 |
93cfa81ccf00
(cp852, ibm852, cp857, ibm857, cp860)
Dave Love <fx@gnu.org>
parents:
88582
diff
changeset
|
393 (define-coding-system 'cp437 |
93cfa81ccf00
(cp852, ibm852, cp857, ibm857, cp860)
Dave Love <fx@gnu.org>
parents:
88582
diff
changeset
|
394 "DOS codepage 437" |
93cfa81ccf00
(cp852, ibm852, cp857, ibm857, cp860)
Dave Love <fx@gnu.org>
parents:
88582
diff
changeset
|
395 :coding-type 'charset |
93cfa81ccf00
(cp852, ibm852, cp857, ibm857, cp860)
Dave Love <fx@gnu.org>
parents:
88582
diff
changeset
|
396 :mnemonic ?D |
93cfa81ccf00
(cp852, ibm852, cp857, ibm857, cp860)
Dave Love <fx@gnu.org>
parents:
88582
diff
changeset
|
397 :charset-list '(cp437) |
93cfa81ccf00
(cp852, ibm852, cp857, ibm857, cp860)
Dave Love <fx@gnu.org>
parents:
88582
diff
changeset
|
398 :mime-charset 'cp437) |
93cfa81ccf00
(cp852, ibm852, cp857, ibm857, cp860)
Dave Love <fx@gnu.org>
parents:
88582
diff
changeset
|
399 (define-coding-system-alias 'ibm437 'cp437) |
26014
e84e2bf4f9fb
Add Latin-8, Latin-9. Modify some doc
Dave Love <fx@gnu.org>
parents:
25773
diff
changeset
|
400 |
20743 | 401 (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
|
402 "Dutch" '((tutorial . "TUTORIAL.nl") |
89483 | 403 (charset iso-8859-1) |
49633
b7ecf0c51886
Add Slovenian to the deoc string fro language-info-alist.
Francesco Potortì <pot@gnu.org>
parents:
49631
diff
changeset
|
404 (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
|
405 (coding-priority iso-latin-1) |
89483 | 406 (nonascii-translation . iso-8859-1) |
49633
b7ecf0c51886
Add Slovenian to the deoc string fro language-info-alist.
Francesco Potortì <pot@gnu.org>
parents:
49631
diff
changeset
|
407 (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
|
408 (input-method . "dutch") |
b7ecf0c51886
Add Slovenian to the deoc string fro language-info-alist.
Francesco Potortì <pot@gnu.org>
parents:
49631
diff
changeset
|
409 (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
|
410 (documentation . "\ |
b7ecf0c51886
Add Slovenian to the deoc string fro language-info-alist.
Francesco Potortì <pot@gnu.org>
parents:
49631
diff
changeset
|
411 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
|
412 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
|
413 '("European")) |
b7ecf0c51886
Add Slovenian to the deoc string fro language-info-alist.
Francesco Potortì <pot@gnu.org>
parents:
49631
diff
changeset
|
414 |
b7ecf0c51886
Add Slovenian to the deoc string fro language-info-alist.
Francesco Potortì <pot@gnu.org>
parents:
49631
diff
changeset
|
415 (set-language-info-alist |
22980
5681e7798ce9
(setup-8-bit-environment): Function deleted.
Kenichi Handa <handa@m17n.org>
parents:
22726
diff
changeset
|
416 "German" '((tutorial . "TUTORIAL.de") |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42353
diff
changeset
|
417 (charset iso-8859-1) |
46672
cbba2fbd2b85
("German", "French", "Spanish", "Turkish"):
Dave Love <fx@gnu.org>
parents:
43734
diff
changeset
|
418 (coding-system iso-latin-1 iso-latin-9) |
20743 | 419 (coding-priority iso-latin-1) |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42353
diff
changeset
|
420 (nonascii-translation . iso-8859-1) |
23050 | 421 (input-method . "german-postfix") |
22980
5681e7798ce9
(setup-8-bit-environment): Function deleted.
Kenichi Handa <handa@m17n.org>
parents:
22726
diff
changeset
|
422 (unibyte-display . iso-latin-1) |
20743 | 423 (sample-text . "\ |
424 German (Deutsch Nord) Guten Tag | |
89943
4c90ffeb71c5
Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-15
Miles Bader <miles@gnu.org>
diff
changeset
|
425 German (Deutsch S$(D+d(Bd) Gr$(D+d)N(B Gott") |
20743 | 426 (documentation . "\ |
427 This language environment is almost the same as Latin-1, | |
42194 | 428 but sets the default input method to \"german-postfix\". |
429 Additionally, it selects the German tutorial.")) | |
20743 | 430 '("European")) |
17302
1012d679efd4
English related codes are moved to
Kenichi Handa <handa@m17n.org>
parents:
17098
diff
changeset
|
431 |
24269
a29550b1d150
(setup-slovenian-environment): New function.
Richard M. Stallman <rms@gnu.org>
parents:
23158
diff
changeset
|
432 (set-language-info-alist |
41196
f8661b5a0670
("French"): New language environment.
Eli Zaretskii <eliz@gnu.org>
parents:
41115
diff
changeset
|
433 "French" '((tutorial . "TUTORIAL.fr") |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42353
diff
changeset
|
434 (charset iso-8859-1) |
46672
cbba2fbd2b85
("German", "French", "Spanish", "Turkish"):
Dave Love <fx@gnu.org>
parents:
43734
diff
changeset
|
435 (coding-system iso-latin-1 iso-latin-9) |
41196
f8661b5a0670
("French"): New language environment.
Eli Zaretskii <eliz@gnu.org>
parents:
41115
diff
changeset
|
436 (coding-priority iso-latin-1) |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42353
diff
changeset
|
437 (nonascii-translation . iso-8859-1) |
41196
f8661b5a0670
("French"): New language environment.
Eli Zaretskii <eliz@gnu.org>
parents:
41115
diff
changeset
|
438 (unibyte-display . iso-latin-1) |
f8661b5a0670
("French"): New language environment.
Eli Zaretskii <eliz@gnu.org>
parents:
41115
diff
changeset
|
439 (input-method . "latin-1-prefix") |
89943
4c90ffeb71c5
Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-15
Miles Bader <miles@gnu.org>
diff
changeset
|
440 (sample-text . "French (Fran$(D+.(Bais) Bonjour, Salut") |
41196
f8661b5a0670
("French"): New language environment.
Eli Zaretskii <eliz@gnu.org>
parents:
41115
diff
changeset
|
441 (documentation . "\ |
f8661b5a0670
("French"): New language environment.
Eli Zaretskii <eliz@gnu.org>
parents:
41115
diff
changeset
|
442 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
|
443 but it selects the French tutorial and input method.")) |
41196
f8661b5a0670
("French"): New language environment.
Eli Zaretskii <eliz@gnu.org>
parents:
41115
diff
changeset
|
444 '("European")) |
f8661b5a0670
("French"): New language environment.
Eli Zaretskii <eliz@gnu.org>
parents:
41115
diff
changeset
|
445 |
f8661b5a0670
("French"): New language environment.
Eli Zaretskii <eliz@gnu.org>
parents:
41115
diff
changeset
|
446 (set-language-info-alist |
49631
7b1e2c5a193b
Italian greeting changed.
Francesco Potortì <pot@gnu.org>
parents:
49598
diff
changeset
|
447 "Italian" '((tutorial . "TUTORIAL.it") |
89483 | 448 (charset iso-8859-1) |
49631
7b1e2c5a193b
Italian greeting changed.
Francesco Potortì <pot@gnu.org>
parents:
49598
diff
changeset
|
449 (coding-system iso-latin-1 iso-latin-9) |
7b1e2c5a193b
Italian greeting changed.
Francesco Potortì <pot@gnu.org>
parents:
49598
diff
changeset
|
450 (coding-priority iso-latin-1) |
89483 | 451 (nonascii-translation . iso-8859-1) |
49631
7b1e2c5a193b
Italian greeting changed.
Francesco Potortì <pot@gnu.org>
parents:
49598
diff
changeset
|
452 (unibyte-display . iso-latin-1) |
7b1e2c5a193b
Italian greeting changed.
Francesco Potortì <pot@gnu.org>
parents:
49598
diff
changeset
|
453 (input-method . "italian-postfix") |
7b1e2c5a193b
Italian greeting changed.
Francesco Potortì <pot@gnu.org>
parents:
49598
diff
changeset
|
454 (sample-text . "Salve, ciao!") |
7b1e2c5a193b
Italian greeting changed.
Francesco Potortì <pot@gnu.org>
parents:
49598
diff
changeset
|
455 (documentation . "\ |
7b1e2c5a193b
Italian greeting changed.
Francesco Potortì <pot@gnu.org>
parents:
49598
diff
changeset
|
456 This language environment is almost the same as Latin-1, |
7b1e2c5a193b
Italian greeting changed.
Francesco Potortì <pot@gnu.org>
parents:
49598
diff
changeset
|
457 but sets the default input method to \"italian-postfix\". |
7b1e2c5a193b
Italian greeting changed.
Francesco Potortì <pot@gnu.org>
parents:
49598
diff
changeset
|
458 Additionally, it selects the Italian tutorial.")) |
7b1e2c5a193b
Italian greeting changed.
Francesco Potortì <pot@gnu.org>
parents:
49598
diff
changeset
|
459 '("European")) |
7b1e2c5a193b
Italian greeting changed.
Francesco Potortì <pot@gnu.org>
parents:
49598
diff
changeset
|
460 |
7b1e2c5a193b
Italian greeting changed.
Francesco Potortì <pot@gnu.org>
parents:
49598
diff
changeset
|
461 (set-language-info-alist |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42353
diff
changeset
|
462 "Slovenian" '((charset iso-8859-2) |
88806
7618cfcfaeea
("German", "French", "Spanish"): Add
Dave Love <fx@gnu.org>
parents:
88617
diff
changeset
|
463 (coding-system . (iso-8859-2 windows-1250)) |
24269
a29550b1d150
(setup-slovenian-environment): New function.
Richard M. Stallman <rms@gnu.org>
parents:
23158
diff
changeset
|
464 (coding-priority . (iso-8859-2)) |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42353
diff
changeset
|
465 (nonascii-translation . iso-8859-2) |
47910
729eccda4769
("Slovenian"): Use slovenian input-method.
Dave Love <fx@gnu.org>
parents:
47237
diff
changeset
|
466 (input-method . "slovenian") |
24269
a29550b1d150
(setup-slovenian-environment): New function.
Richard M. Stallman <rms@gnu.org>
parents:
23158
diff
changeset
|
467 (unibyte-display . iso-8859-2) |
a29550b1d150
(setup-slovenian-environment): New function.
Richard M. Stallman <rms@gnu.org>
parents:
23158
diff
changeset
|
468 (tutorial . "TUTORIAL.sl") |
89943
4c90ffeb71c5
Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-15
Miles Bader <miles@gnu.org>
diff
changeset
|
469 (sample-text . "$(D*v(Belimo vam uspe$(D+^(Ben dan!") |
49641
fe28719083ea
("French", "Slovenian"): Fix doc strings.
Francesco Potortì <pot@gnu.org>
parents:
49633
diff
changeset
|
470 (documentation . "\ |
fe28719083ea
("French", "Slovenian"): Fix doc strings.
Francesco Potortì <pot@gnu.org>
parents:
49633
diff
changeset
|
471 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
|
472 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
|
473 '("European")) |
a29550b1d150
(setup-slovenian-environment): New function.
Richard M. Stallman <rms@gnu.org>
parents:
23158
diff
changeset
|
474 |
35161
0495de5487ae
Add Dutch and Spanish language info
Gerd Moellmann <gerd@gnu.org>
parents:
33513
diff
changeset
|
475 (set-language-info-alist |
0495de5487ae
Add Dutch and Spanish language info
Gerd Moellmann <gerd@gnu.org>
parents:
33513
diff
changeset
|
476 "Spanish" '((tutorial . "TUTORIAL.es") |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42353
diff
changeset
|
477 (charset iso-8859-1) |
46672
cbba2fbd2b85
("German", "French", "Spanish", "Turkish"):
Dave Love <fx@gnu.org>
parents:
43734
diff
changeset
|
478 (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
|
479 (coding-priority iso-latin-1) |
0495de5487ae
Add Dutch and Spanish language info
Gerd Moellmann <gerd@gnu.org>
parents:
33513
diff
changeset
|
480 (input-method . "spanish-postfix") |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42353
diff
changeset
|
481 (nonascii-translation . iso-8859-1) |
35161
0495de5487ae
Add Dutch and Spanish language info
Gerd Moellmann <gerd@gnu.org>
parents:
33513
diff
changeset
|
482 (unibyte-display . iso-latin-1) |
89943
4c90ffeb71c5
Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-15
Miles Bader <miles@gnu.org>
diff
changeset
|
483 (sample-text . "Spanish (Espa$(D+P(Bol) $(D"B(BHola!") |
35161
0495de5487ae
Add Dutch and Spanish language info
Gerd Moellmann <gerd@gnu.org>
parents:
33513
diff
changeset
|
484 (documentation . "\ |
0495de5487ae
Add Dutch and Spanish language info
Gerd Moellmann <gerd@gnu.org>
parents:
33513
diff
changeset
|
485 This language environment is almost the same as Latin-1, |
42194 | 486 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
|
487 and it selects the Spanish tutorial.")) |
35161
0495de5487ae
Add Dutch and Spanish language info
Gerd Moellmann <gerd@gnu.org>
parents:
33513
diff
changeset
|
488 '("European")) |
0495de5487ae
Add Dutch and Spanish language info
Gerd Moellmann <gerd@gnu.org>
parents:
33513
diff
changeset
|
489 |
25773
20234157d093
("Turkish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
25228
diff
changeset
|
490 ;; 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
|
491 ;; 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
|
492 ;; 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
|
493 ;; "Latin-3" language environment. |
20234157d093
("Turkish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
25228
diff
changeset
|
494 |
20234157d093
("Turkish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
25228
diff
changeset
|
495 (set-language-info-alist |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42353
diff
changeset
|
496 "Turkish" '((charset iso-8859-9) |
88806
7618cfcfaeea
("German", "French", "Spanish"): Add
Dave Love <fx@gnu.org>
parents:
88617
diff
changeset
|
497 (coding-system iso-latin-5 windows-1254 iso-latin-3) |
25773
20234157d093
("Turkish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
25228
diff
changeset
|
498 (coding-priority iso-latin-5) |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42353
diff
changeset
|
499 (nonascii-translation . iso-8859-9) |
25773
20234157d093
("Turkish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
25228
diff
changeset
|
500 (unibyte-display . iso-latin-5) |
20234157d093
("Turkish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
25228
diff
changeset
|
501 (input-method . "turkish-postfix") |
89943
4c90ffeb71c5
Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-15
Miles Bader <miles@gnu.org>
diff
changeset
|
502 (sample-text . "Turkish (T$(D+d(Brk$(D+.(Be) Merhaba") |
73945
014379fe3697
(turkish-case-conversion-enable)
Richard M. Stallman <rms@gnu.org>
parents:
73035
diff
changeset
|
503 (setup-function . turkish-case-conversion-enable) |
90670
a48ba67a019c
("Turkish"): Sync with HEAD.
Kenichi Handa <handa@m17n.org>
parents:
90200
diff
changeset
|
504 (setup-function . turkish-case-conversion-disable) |
89088 | 505 (documentation . "Support for Turkish. |
506 Differs from the Latin-5 environment in using the `turkish-postfix' input | |
89943
4c90ffeb71c5
Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-15
Miles Bader <miles@gnu.org>
diff
changeset
|
507 method and applying Turkish case rules for the characters i, I, $(D)E(B, $(D*D(B."))) |
73945
014379fe3697
(turkish-case-conversion-enable)
Richard M. Stallman <rms@gnu.org>
parents:
73035
diff
changeset
|
508 |
014379fe3697
(turkish-case-conversion-enable)
Richard M. Stallman <rms@gnu.org>
parents:
73035
diff
changeset
|
509 (defun turkish-case-conversion-enable () |
90670
a48ba67a019c
("Turkish"): Sync with HEAD.
Kenichi Handa <handa@m17n.org>
parents:
90200
diff
changeset
|
510 "Set up Turkish case conversion of `i' and `I' into `$(D*D(B' and `$(D)E(B'." |
73945
014379fe3697
(turkish-case-conversion-enable)
Richard M. Stallman <rms@gnu.org>
parents:
73035
diff
changeset
|
511 (let ((table (standard-case-table))) |
90670
a48ba67a019c
("Turkish"): Sync with HEAD.
Kenichi Handa <handa@m17n.org>
parents:
90200
diff
changeset
|
512 (set-case-syntax-pair ?$(D*D(B ?i table) |
a48ba67a019c
("Turkish"): Sync with HEAD.
Kenichi Handa <handa@m17n.org>
parents:
90200
diff
changeset
|
513 (set-case-syntax-pair ?I ?$(D)E(B table))) |
73945
014379fe3697
(turkish-case-conversion-enable)
Richard M. Stallman <rms@gnu.org>
parents:
73035
diff
changeset
|
514 |
014379fe3697
(turkish-case-conversion-enable)
Richard M. Stallman <rms@gnu.org>
parents:
73035
diff
changeset
|
515 (defun turkish-case-conversion-disable () |
014379fe3697
(turkish-case-conversion-enable)
Richard M. Stallman <rms@gnu.org>
parents:
73035
diff
changeset
|
516 "Set up normal (non-Turkish) case conversion of `i' into `I'." |
014379fe3697
(turkish-case-conversion-enable)
Richard M. Stallman <rms@gnu.org>
parents:
73035
diff
changeset
|
517 (let ((table (standard-case-table))) |
014379fe3697
(turkish-case-conversion-enable)
Richard M. Stallman <rms@gnu.org>
parents:
73035
diff
changeset
|
518 (set-case-syntax-pair ?I ?i table) |
90670
a48ba67a019c
("Turkish"): Sync with HEAD.
Kenichi Handa <handa@m17n.org>
parents:
90200
diff
changeset
|
519 (set-case-syntax ?$(D*D(B "w" table) |
a48ba67a019c
("Turkish"): Sync with HEAD.
Kenichi Handa <handa@m17n.org>
parents:
90200
diff
changeset
|
520 (set-case-syntax ?$(D)E(B "w" table))) |
25773
20234157d093
("Turkish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
25228
diff
changeset
|
521 |
28436
2dbedede8507
("Polish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
26134
diff
changeset
|
522 ;; Polish ISO 8859-2 environment. |
2dbedede8507
("Polish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
26134
diff
changeset
|
523 ;; Maintainer: Wlodek Bzyl <matwb@univ.gda.pl> |
2dbedede8507
("Polish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
26134
diff
changeset
|
524 ;; Keywords: multilingual, Polish |
2dbedede8507
("Polish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
26134
diff
changeset
|
525 |
2dbedede8507
("Polish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
26134
diff
changeset
|
526 (set-language-info-alist |
89483 | 527 "Polish" '((charset iso-8859-2) |
528 (coding-system iso-8859-2 windows-1250) | |
529 (coding-priority iso-8859-2) | |
28436
2dbedede8507
("Polish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
26134
diff
changeset
|
530 (input-method . "polish-slash") |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42353
diff
changeset
|
531 (nonascii-translation . iso-8859-2) |
28436
2dbedede8507
("Polish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
26134
diff
changeset
|
532 (unibyte-display . iso-8859-2) |
2dbedede8507
("Polish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
26134
diff
changeset
|
533 (tutorial . "TUTORIAL.pl") |
89943
4c90ffeb71c5
Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-15
Miles Bader <miles@gnu.org>
diff
changeset
|
534 (sample-text . "P$(D+Q(Bjd$(D+u(B, ki$(D+M(B-$(D+w(Be t$(D+8(B chmurno$(D+\++(B w g$(D)H+((Bb flaszy") |
28436
2dbedede8507
("Polish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
26134
diff
changeset
|
535 (documentation . t)) |
2dbedede8507
("Polish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
26134
diff
changeset
|
536 '("European")) |
2dbedede8507
("Polish"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
26134
diff
changeset
|
537 |
42051
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
538 (set-language-info-alist |
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
539 "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
|
540 (coding-priority utf-8 latin-8) |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42353
diff
changeset
|
541 (nonascii-translation . iso-8859-14) |
42051
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
542 (input-method . "welsh") |
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
543 (documentation . "Support for Welsh, using Unicode.")) |
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
544 '("European")) |
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
545 |
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
546 (set-language-info-alist |
49043 | 547 "Latin-6" `((coding-system latin-6) |
548 (coding-priority latin-6) | |
549 (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
|
550 (input-method . "latin-prefix") |
49043 | 551 (features code-pages) |
552 (documentation . "Support for Latin-6.")) | |
553 '("European")) | |
554 | |
555 (set-language-info-alist | |
42051
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
556 "Latin-7" `((coding-system latin-7) |
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
557 (coding-priority latin-7) |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42353
diff
changeset
|
558 (nonascii-translation . iso-8859-13) |
50194
dc8403640b05
("Latin-6"): Fix input-method.
Kenichi Handa <handa@m17n.org>
parents:
50117
diff
changeset
|
559 (input-method . "latin-prefix") |
42051
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
560 (documentation . "Support for Latin-7, e.g. Latvian, Lithuanian.")) |
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
561 '("European")) |
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
562 |
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
563 (set-language-info-alist |
88806
7618cfcfaeea
("German", "French", "Spanish"): Add
Dave Love <fx@gnu.org>
parents:
88617
diff
changeset
|
564 "Lithuanian" `((coding-system latin-7 windows-1257) |
42051
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
565 (coding-priority latin-7) |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42353
diff
changeset
|
566 (nonascii-translation . iso-8859-13) |
42051
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
567 (input-method . "lithuanian-keyboard") |
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
568 (documentation . "Support for Lithuanian.")) |
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
569 '("European")) |
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
570 |
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
571 (set-language-info-alist |
88806
7618cfcfaeea
("German", "French", "Spanish"): Add
Dave Love <fx@gnu.org>
parents:
88617
diff
changeset
|
572 "Latvian" `((coding-system latin-7 windows-1257) |
42051
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
573 (coding-priority latin-7) |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42353
diff
changeset
|
574 (nonascii-translation . iso-8859-13) |
42051
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
575 (input-method . "latvian-keyboard") |
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
576 (documentation . "Support for Latvian.")) |
7b6dcc19e895
("Welsh", "Latin-7", "Lithuanian")
Dave Love <fx@gnu.org>
parents:
41978
diff
changeset
|
577 '("European")) |
47237
fd8d01195320
("Swedish"): New set-language-info-alist call.
Richard M. Stallman <rms@gnu.org>
parents:
46672
diff
changeset
|
578 |
fd8d01195320
("Swedish"): New set-language-info-alist call.
Richard M. Stallman <rms@gnu.org>
parents:
46672
diff
changeset
|
579 (set-language-info-alist |
48779
c75e2941ff7e
("Swedish"): Change tutorial file name to
Kenichi Handa <handa@m17n.org>
parents:
48546
diff
changeset
|
580 "Swedish" '((tutorial . "TUTORIAL.sv") |
89483 | 581 (charset iso-8859-1) |
47237
fd8d01195320
("Swedish"): New set-language-info-alist call.
Richard M. Stallman <rms@gnu.org>
parents:
46672
diff
changeset
|
582 (coding-system iso-latin-1) |
fd8d01195320
("Swedish"): New set-language-info-alist call.
Richard M. Stallman <rms@gnu.org>
parents:
46672
diff
changeset
|
583 (coding-priority iso-latin-1) |
89483 | 584 (nonascii-translation . iso-8859-1) |
47237
fd8d01195320
("Swedish"): New set-language-info-alist call.
Richard M. Stallman <rms@gnu.org>
parents:
46672
diff
changeset
|
585 (unibyte-display . iso-latin-1) |
fd8d01195320
("Swedish"): New set-language-info-alist call.
Richard M. Stallman <rms@gnu.org>
parents:
46672
diff
changeset
|
586 (sample-text . "Goddag Hej") |
fd8d01195320
("Swedish"): New set-language-info-alist call.
Richard M. Stallman <rms@gnu.org>
parents:
46672
diff
changeset
|
587 (documentation . "Support for Swedish")) |
fd8d01195320
("Swedish"): New set-language-info-alist call.
Richard M. Stallman <rms@gnu.org>
parents:
46672
diff
changeset
|
588 '("European")) |
49043 | 589 |
590 (set-language-info-alist | |
89483 | 591 "Croatian" '((charset iso-8859-2) |
592 (coding-system iso-8859-2) | |
593 (coding-priority iso-8859-2) | |
49043 | 594 (input-method . "croatian") |
89483 | 595 (nonascii-translation . iso-8859-2) |
49043 | 596 (unibyte-display . iso-8859-2) |
597 (documentation . "Support for Croatian with Latin-2 encoding.")) | |
598 '("European")) | |
55586
37214f38ace4
2004-05-13 Marcelo Toledo <marcelo@marcelotoledo.org>
David Kastrup <dak@gnu.org>
parents:
53009
diff
changeset
|
599 |
37214f38ace4
2004-05-13 Marcelo Toledo <marcelo@marcelotoledo.org>
David Kastrup <dak@gnu.org>
parents:
53009
diff
changeset
|
600 (set-language-info-alist |
37214f38ace4
2004-05-13 Marcelo Toledo <marcelo@marcelotoledo.org>
David Kastrup <dak@gnu.org>
parents:
53009
diff
changeset
|
601 "Brazilian Portuguese" '((tutorial . "TUTORIAL.pt_BR") |
89943
4c90ffeb71c5
Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-15
Miles Bader <miles@gnu.org>
diff
changeset
|
602 (charset iso-8859-1) |
55586
37214f38ace4
2004-05-13 Marcelo Toledo <marcelo@marcelotoledo.org>
David Kastrup <dak@gnu.org>
parents:
53009
diff
changeset
|
603 (coding-system iso-latin-1 iso-latin-9) |
37214f38ace4
2004-05-13 Marcelo Toledo <marcelo@marcelotoledo.org>
David Kastrup <dak@gnu.org>
parents:
53009
diff
changeset
|
604 (coding-priority iso-latin-1) |
89943
4c90ffeb71c5
Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-15
Miles Bader <miles@gnu.org>
diff
changeset
|
605 (nonascii-translation . iso-8859-1) |
4c90ffeb71c5
Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-15
Miles Bader <miles@gnu.org>
diff
changeset
|
606 (unibyte-display . iso-8859-1) |
55586
37214f38ace4
2004-05-13 Marcelo Toledo <marcelo@marcelotoledo.org>
David Kastrup <dak@gnu.org>
parents:
53009
diff
changeset
|
607 (input-method . "latin-1-prefix") |
37214f38ace4
2004-05-13 Marcelo Toledo <marcelo@marcelotoledo.org>
David Kastrup <dak@gnu.org>
parents:
53009
diff
changeset
|
608 (sample-text . "Oi") |
37214f38ace4
2004-05-13 Marcelo Toledo <marcelo@marcelotoledo.org>
David Kastrup <dak@gnu.org>
parents:
53009
diff
changeset
|
609 (documentation . "Support for Brazilian Portuguese.")) |
37214f38ace4
2004-05-13 Marcelo Toledo <marcelo@marcelotoledo.org>
David Kastrup <dak@gnu.org>
parents:
53009
diff
changeset
|
610 '("European")) |
76002
8c6a6255b5e1
("Esperanto"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
75347
diff
changeset
|
611 |
33049
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
612 |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42353
diff
changeset
|
613 (define-coding-system 'mac-roman |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42353
diff
changeset
|
614 "Mac Roman Encoding (MIME:MACINTOSH)." |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42353
diff
changeset
|
615 :coding-type 'charset |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42353
diff
changeset
|
616 :mnemonic ?M |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42353
diff
changeset
|
617 :charset-list '(mac-roman) |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42353
diff
changeset
|
618 :mime-charset 'macintosh) |
33049
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
619 |
88561
e63aa0be6e95
(windows-1254, cp1254, windows-1257)
Dave Love <fx@gnu.org>
parents:
88532
diff
changeset
|
620 (define-coding-system 'next |
e63aa0be6e95
(windows-1254, cp1254, windows-1257)
Dave Love <fx@gnu.org>
parents:
88532
diff
changeset
|
621 "NeXTstep encoding" |
e63aa0be6e95
(windows-1254, cp1254, windows-1257)
Dave Love <fx@gnu.org>
parents:
88532
diff
changeset
|
622 :coding-type 'charset |
e63aa0be6e95
(windows-1254, cp1254, windows-1257)
Dave Love <fx@gnu.org>
parents:
88532
diff
changeset
|
623 :mnemonic ?* |
e63aa0be6e95
(windows-1254, cp1254, windows-1257)
Dave Love <fx@gnu.org>
parents:
88532
diff
changeset
|
624 :charset-list '(next) |
e63aa0be6e95
(windows-1254, cp1254, windows-1257)
Dave Love <fx@gnu.org>
parents:
88532
diff
changeset
|
625 :mime-charset 'next) |
88577
c982147b17d7
(iso-latin-6, iso-8859-10, latin-6)
Dave Love <fx@gnu.org>
parents:
88561
diff
changeset
|
626 |
c982147b17d7
(iso-latin-6, iso-8859-10, latin-6)
Dave Love <fx@gnu.org>
parents:
88561
diff
changeset
|
627 (define-coding-system 'hp-roman8 |
c982147b17d7
(iso-latin-6, iso-8859-10, latin-6)
Dave Love <fx@gnu.org>
parents:
88561
diff
changeset
|
628 "Hewlet-Packard roman-8 encoding (MIME:ROMAN-8)" |
c982147b17d7
(iso-latin-6, iso-8859-10, latin-6)
Dave Love <fx@gnu.org>
parents:
88561
diff
changeset
|
629 :coding-type 'charset |
c982147b17d7
(iso-latin-6, iso-8859-10, latin-6)
Dave Love <fx@gnu.org>
parents:
88561
diff
changeset
|
630 :mnemonic ?* |
c982147b17d7
(iso-latin-6, iso-8859-10, latin-6)
Dave Love <fx@gnu.org>
parents:
88561
diff
changeset
|
631 :charset-list '(hp-roman8) |
c982147b17d7
(iso-latin-6, iso-8859-10, latin-6)
Dave Love <fx@gnu.org>
parents:
88561
diff
changeset
|
632 :mime-charset 'hp-roman8) |
c982147b17d7
(iso-latin-6, iso-8859-10, latin-6)
Dave Love <fx@gnu.org>
parents:
88561
diff
changeset
|
633 (define-coding-system-alias 'roman8 'hp-roman8) |
c982147b17d7
(iso-latin-6, iso-8859-10, latin-6)
Dave Love <fx@gnu.org>
parents:
88561
diff
changeset
|
634 |
c982147b17d7
(iso-latin-6, iso-8859-10, latin-6)
Dave Love <fx@gnu.org>
parents:
88561
diff
changeset
|
635 (define-coding-system 'adobe-standard-encoding |
c982147b17d7
(iso-latin-6, iso-8859-10, latin-6)
Dave Love <fx@gnu.org>
parents:
88561
diff
changeset
|
636 "Adobe `standard' encoding for PostScript" |
c982147b17d7
(iso-latin-6, iso-8859-10, latin-6)
Dave Love <fx@gnu.org>
parents:
88561
diff
changeset
|
637 :coding-type 'charset |
c982147b17d7
(iso-latin-6, iso-8859-10, latin-6)
Dave Love <fx@gnu.org>
parents:
88561
diff
changeset
|
638 :mnemonic ?* |
88582
700ee2a6b461
(adobe-standard-encoding): Fix typo.
Dave Love <fx@gnu.org>
parents:
88577
diff
changeset
|
639 :charset-list '(adobe-standard-encoding) |
700ee2a6b461
(adobe-standard-encoding): Fix typo.
Dave Love <fx@gnu.org>
parents:
88577
diff
changeset
|
640 :mime-charset 'adobe-standard-encoding) |
76002
8c6a6255b5e1
("Esperanto"): New language environment.
Kenichi Handa <handa@m17n.org>
parents:
75347
diff
changeset
|
641 |
33049
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
642 |
89296
5f226da850bf
Register combining characters in
Kenichi Handa <handa@m17n.org>
parents:
89185
diff
changeset
|
643 ;; For automatic composing of diacritics and combining marks. |
5f226da850bf
Register combining characters in
Kenichi Handa <handa@m17n.org>
parents:
89185
diff
changeset
|
644 (dolist (range '( ;; combining diacritical marks |
5f226da850bf
Register combining characters in
Kenichi Handa <handa@m17n.org>
parents:
89185
diff
changeset
|
645 (#x0300 #x0314 (tc . bc)) |
5f226da850bf
Register combining characters in
Kenichi Handa <handa@m17n.org>
parents:
89185
diff
changeset
|
646 (#x0315 (tr . bl)) |
5f226da850bf
Register combining characters in
Kenichi Handa <handa@m17n.org>
parents:
89185
diff
changeset
|
647 (#x0316 #x0319 (bc . tc)) |
5f226da850bf
Register combining characters in
Kenichi Handa <handa@m17n.org>
parents:
89185
diff
changeset
|
648 (#x031A (tr . cl)) |
5f226da850bf
Register combining characters in
Kenichi Handa <handa@m17n.org>
parents:
89185
diff
changeset
|
649 (#x031B #x0320 (bc . tc)) |
5f226da850bf
Register combining characters in
Kenichi Handa <handa@m17n.org>
parents:
89185
diff
changeset
|
650 (#x0321 (Br . tr)) |
5f226da850bf
Register combining characters in
Kenichi Handa <handa@m17n.org>
parents:
89185
diff
changeset
|
651 (#x0322 (Br . tl)) |
5f226da850bf
Register combining characters in
Kenichi Handa <handa@m17n.org>
parents:
89185
diff
changeset
|
652 (#x0323 #x0333 (bc . tc)) |
5f226da850bf
Register combining characters in
Kenichi Handa <handa@m17n.org>
parents:
89185
diff
changeset
|
653 (#x0334 #x0338 (Bc . Bc)) |
5f226da850bf
Register combining characters in
Kenichi Handa <handa@m17n.org>
parents:
89185
diff
changeset
|
654 (#x0339 #x033C (bc . tc)) |
5f226da850bf
Register combining characters in
Kenichi Handa <handa@m17n.org>
parents:
89185
diff
changeset
|
655 (#x033D #x033F (tc . bc)) |
5f226da850bf
Register combining characters in
Kenichi Handa <handa@m17n.org>
parents:
89185
diff
changeset
|
656 (#x0340 (tl . bc)) |
5f226da850bf
Register combining characters in
Kenichi Handa <handa@m17n.org>
parents:
89185
diff
changeset
|
657 (#x0341 (tr . bc)) |
5f226da850bf
Register combining characters in
Kenichi Handa <handa@m17n.org>
parents:
89185
diff
changeset
|
658 (#x0342 #x0344 (tc . bc)) |
5f226da850bf
Register combining characters in
Kenichi Handa <handa@m17n.org>
parents:
89185
diff
changeset
|
659 (#x0345 (bc . tc)) |
5f226da850bf
Register combining characters in
Kenichi Handa <handa@m17n.org>
parents:
89185
diff
changeset
|
660 (#x0346 (tc . bc)) |
5f226da850bf
Register combining characters in
Kenichi Handa <handa@m17n.org>
parents:
89185
diff
changeset
|
661 (#x0347 #x0349 (bc . tc)) |
5f226da850bf
Register combining characters in
Kenichi Handa <handa@m17n.org>
parents:
89185
diff
changeset
|
662 (#x034A #x034C (tc . bc)) |
5f226da850bf
Register combining characters in
Kenichi Handa <handa@m17n.org>
parents:
89185
diff
changeset
|
663 (#x034D #x034E (bc . tc)) |
5f226da850bf
Register combining characters in
Kenichi Handa <handa@m17n.org>
parents:
89185
diff
changeset
|
664 ;; combining diacritical marks for symbols |
5f226da850bf
Register combining characters in
Kenichi Handa <handa@m17n.org>
parents:
89185
diff
changeset
|
665 (#x20D0 #x20D1 (tc . bc)) |
5f226da850bf
Register combining characters in
Kenichi Handa <handa@m17n.org>
parents:
89185
diff
changeset
|
666 (#x20D2 #x20D3 (Bc . Bc)) |
5f226da850bf
Register combining characters in
Kenichi Handa <handa@m17n.org>
parents:
89185
diff
changeset
|
667 (#x20D4 #x20D7 (tc . bc)) |
5f226da850bf
Register combining characters in
Kenichi Handa <handa@m17n.org>
parents:
89185
diff
changeset
|
668 (#x20D8 #x20DA (Bc . Bc)) |
5f226da850bf
Register combining characters in
Kenichi Handa <handa@m17n.org>
parents:
89185
diff
changeset
|
669 (#x20DB #x20DC (tc . bc)) |
5f226da850bf
Register combining characters in
Kenichi Handa <handa@m17n.org>
parents:
89185
diff
changeset
|
670 (#x20DD #x20E0 (Bc . Bc)) |
5f226da850bf
Register combining characters in
Kenichi Handa <handa@m17n.org>
parents:
89185
diff
changeset
|
671 (#x20E1 (tc . bc)) |
5f226da850bf
Register combining characters in
Kenichi Handa <handa@m17n.org>
parents:
89185
diff
changeset
|
672 (#x20E2 #x20E3 (Bc . Bc)))) |
5f226da850bf
Register combining characters in
Kenichi Handa <handa@m17n.org>
parents:
89185
diff
changeset
|
673 (let* ((from (car range)) |
5f226da850bf
Register combining characters in
Kenichi Handa <handa@m17n.org>
parents:
89185
diff
changeset
|
674 (to (if (= (length range) 3) |
5f226da850bf
Register combining characters in
Kenichi Handa <handa@m17n.org>
parents:
89185
diff
changeset
|
675 (nth 1 range) |
5f226da850bf
Register combining characters in
Kenichi Handa <handa@m17n.org>
parents:
89185
diff
changeset
|
676 from)) |
5f226da850bf
Register combining characters in
Kenichi Handa <handa@m17n.org>
parents:
89185
diff
changeset
|
677 (composition (car (last range)))) |
5f226da850bf
Register combining characters in
Kenichi Handa <handa@m17n.org>
parents:
89185
diff
changeset
|
678 (while (<= from to) |
5f226da850bf
Register combining characters in
Kenichi Handa <handa@m17n.org>
parents:
89185
diff
changeset
|
679 (put-char-code-property from 'diacritic-composition composition) |
5f226da850bf
Register combining characters in
Kenichi Handa <handa@m17n.org>
parents:
89185
diff
changeset
|
680 (aset composition-function-table from 'diacritic-composition-function) |
5f226da850bf
Register combining characters in
Kenichi Handa <handa@m17n.org>
parents:
89185
diff
changeset
|
681 (setq from (1+ from))))) |
33049
fed8d1ebdc15
(mac-roman-decoder, mac-roman-encoder): New translation tables.
Kenichi Handa <handa@m17n.org>
parents:
31155
diff
changeset
|
682 |
41875
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
683 (defconst diacritic-composition-pattern "\\C^\\c^+") |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
684 |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
685 (defun diacritic-compose-region (beg end) |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
686 "Compose diacritic characters in the region. |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
687 When called from a program, expects two arguments, |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
688 positions (integers or markers) specifying the region." |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
689 (interactive "r") |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
690 (save-restriction |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
691 (narrow-to-region beg end) |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
692 (goto-char (point-min)) |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
693 (while (re-search-forward diacritic-composition-pattern nil t) |
89919
80fad817819f
(diacritic-compose-region): Compose
Kenichi Handa <handa@m17n.org>
parents:
89909
diff
changeset
|
694 (if (= (char-syntax (char-after (match-beginning 0))) ?w) |
80fad817819f
(diacritic-compose-region): Compose
Kenichi Handa <handa@m17n.org>
parents:
89909
diff
changeset
|
695 (compose-region (match-beginning 0) (match-end 0)))))) |
41875
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
696 |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
697 (defun diacritic-compose-string (string) |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
698 "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
|
699 (let ((idx 0)) |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
700 (while (setq idx (string-match diacritic-composition-pattern string idx)) |
89919
80fad817819f
(diacritic-compose-region): Compose
Kenichi Handa <handa@m17n.org>
parents:
89909
diff
changeset
|
701 (if (= (char-syntax (aref string idx)) ?w) |
80fad817819f
(diacritic-compose-region): Compose
Kenichi Handa <handa@m17n.org>
parents:
89909
diff
changeset
|
702 (compose-string string idx (match-end 0))) |
41875
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
703 (setq idx (match-end 0)))) |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
704 string) |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49043
diff
changeset
|
705 |
41875
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
706 (defun diacritic-compose-buffer () |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
707 "Compose diacritic characters in the current buffer." |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
708 (interactive) |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
709 (diacritic-compose-region (point-min) (point-max))) |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
710 |
91279
514550f2a5ff
(diacritic-composition-function): Fix arguments.
Kenichi Handa <handa@m17n.org>
parents:
90996
diff
changeset
|
711 (defun diacritic-composition-function (pos to font-object string) |
89296
5f226da850bf
Register combining characters in
Kenichi Handa <handa@m17n.org>
parents:
89185
diff
changeset
|
712 "Compose diacritic text around POS. |
5f226da850bf
Register combining characters in
Kenichi Handa <handa@m17n.org>
parents:
89185
diff
changeset
|
713 Optional 2nd argument STRING, if non-nil, is a string containing text |
41875
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
714 to compose. |
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
715 |
89296
5f226da850bf
Register combining characters in
Kenichi Handa <handa@m17n.org>
parents:
89185
diff
changeset
|
716 The return value is the end position of composed characters, |
5f226da850bf
Register combining characters in
Kenichi Handa <handa@m17n.org>
parents:
89185
diff
changeset
|
717 or nil if no characters are composed." |
5f226da850bf
Register combining characters in
Kenichi Handa <handa@m17n.org>
parents:
89185
diff
changeset
|
718 (setq pos (1- pos)) |
5f226da850bf
Register combining characters in
Kenichi Handa <handa@m17n.org>
parents:
89185
diff
changeset
|
719 (if string |
89720
3a4e30359ac0
(diacritic-composition-function): Fix for the case that POS is at the
Kenichi Handa <handa@m17n.org>
parents:
89483
diff
changeset
|
720 (if (>= pos 0) |
3a4e30359ac0
(diacritic-composition-function): Fix for the case that POS is at the
Kenichi Handa <handa@m17n.org>
parents:
89483
diff
changeset
|
721 (let ((ch (aref string pos)) |
3a4e30359ac0
(diacritic-composition-function): Fix for the case that POS is at the
Kenichi Handa <handa@m17n.org>
parents:
89483
diff
changeset
|
722 start end components ch composition) |
89919
80fad817819f
(diacritic-compose-region): Compose
Kenichi Handa <handa@m17n.org>
parents:
89909
diff
changeset
|
723 (when (= (char-syntax ch) ?w) |
89720
3a4e30359ac0
(diacritic-composition-function): Fix for the case that POS is at the
Kenichi Handa <handa@m17n.org>
parents:
89483
diff
changeset
|
724 (setq start pos |
3a4e30359ac0
(diacritic-composition-function): Fix for the case that POS is at the
Kenichi Handa <handa@m17n.org>
parents:
89483
diff
changeset
|
725 end (length string) |
3a4e30359ac0
(diacritic-composition-function): Fix for the case that POS is at the
Kenichi Handa <handa@m17n.org>
parents:
89483
diff
changeset
|
726 components (list ch) |
3a4e30359ac0
(diacritic-composition-function): Fix for the case that POS is at the
Kenichi Handa <handa@m17n.org>
parents:
89483
diff
changeset
|
727 pos (1+ pos)) |
3a4e30359ac0
(diacritic-composition-function): Fix for the case that POS is at the
Kenichi Handa <handa@m17n.org>
parents:
89483
diff
changeset
|
728 (while (and |
3a4e30359ac0
(diacritic-composition-function): Fix for the case that POS is at the
Kenichi Handa <handa@m17n.org>
parents:
89483
diff
changeset
|
729 (< pos end) |
3a4e30359ac0
(diacritic-composition-function): Fix for the case that POS is at the
Kenichi Handa <handa@m17n.org>
parents:
89483
diff
changeset
|
730 (setq ch (aref string pos) |
3a4e30359ac0
(diacritic-composition-function): Fix for the case that POS is at the
Kenichi Handa <handa@m17n.org>
parents:
89483
diff
changeset
|
731 composition |
3a4e30359ac0
(diacritic-composition-function): Fix for the case that POS is at the
Kenichi Handa <handa@m17n.org>
parents:
89483
diff
changeset
|
732 (get-char-code-property ch |
3a4e30359ac0
(diacritic-composition-function): Fix for the case that POS is at the
Kenichi Handa <handa@m17n.org>
parents:
89483
diff
changeset
|
733 'diacritic-composition))) |
3a4e30359ac0
(diacritic-composition-function): Fix for the case that POS is at the
Kenichi Handa <handa@m17n.org>
parents:
89483
diff
changeset
|
734 (setq components (cons ch (cons composition components)) |
3a4e30359ac0
(diacritic-composition-function): Fix for the case that POS is at the
Kenichi Handa <handa@m17n.org>
parents:
89483
diff
changeset
|
735 pos (1+ pos))) |
3a4e30359ac0
(diacritic-composition-function): Fix for the case that POS is at the
Kenichi Handa <handa@m17n.org>
parents:
89483
diff
changeset
|
736 (compose-string string start pos (nreverse components)) |
3a4e30359ac0
(diacritic-composition-function): Fix for the case that POS is at the
Kenichi Handa <handa@m17n.org>
parents:
89483
diff
changeset
|
737 pos))) |
3a4e30359ac0
(diacritic-composition-function): Fix for the case that POS is at the
Kenichi Handa <handa@m17n.org>
parents:
89483
diff
changeset
|
738 (if (>= pos (point-min)) |
3a4e30359ac0
(diacritic-composition-function): Fix for the case that POS is at the
Kenichi Handa <handa@m17n.org>
parents:
89483
diff
changeset
|
739 (let ((ch (char-after pos)) |
3a4e30359ac0
(diacritic-composition-function): Fix for the case that POS is at the
Kenichi Handa <handa@m17n.org>
parents:
89483
diff
changeset
|
740 start end components composition) |
89919
80fad817819f
(diacritic-compose-region): Compose
Kenichi Handa <handa@m17n.org>
parents:
89909
diff
changeset
|
741 (when (= (char-syntax ch) ?w) |
89720
3a4e30359ac0
(diacritic-composition-function): Fix for the case that POS is at the
Kenichi Handa <handa@m17n.org>
parents:
89483
diff
changeset
|
742 (setq start pos |
3a4e30359ac0
(diacritic-composition-function): Fix for the case that POS is at the
Kenichi Handa <handa@m17n.org>
parents:
89483
diff
changeset
|
743 end (point-max) |
3a4e30359ac0
(diacritic-composition-function): Fix for the case that POS is at the
Kenichi Handa <handa@m17n.org>
parents:
89483
diff
changeset
|
744 components (list ch) |
3a4e30359ac0
(diacritic-composition-function): Fix for the case that POS is at the
Kenichi Handa <handa@m17n.org>
parents:
89483
diff
changeset
|
745 pos (1+ pos)) |
3a4e30359ac0
(diacritic-composition-function): Fix for the case that POS is at the
Kenichi Handa <handa@m17n.org>
parents:
89483
diff
changeset
|
746 (while (and |
3a4e30359ac0
(diacritic-composition-function): Fix for the case that POS is at the
Kenichi Handa <handa@m17n.org>
parents:
89483
diff
changeset
|
747 (< pos end) |
3a4e30359ac0
(diacritic-composition-function): Fix for the case that POS is at the
Kenichi Handa <handa@m17n.org>
parents:
89483
diff
changeset
|
748 (setq ch (char-after pos) |
3a4e30359ac0
(diacritic-composition-function): Fix for the case that POS is at the
Kenichi Handa <handa@m17n.org>
parents:
89483
diff
changeset
|
749 composition |
3a4e30359ac0
(diacritic-composition-function): Fix for the case that POS is at the
Kenichi Handa <handa@m17n.org>
parents:
89483
diff
changeset
|
750 (get-char-code-property ch 'diacritic-composition))) |
3a4e30359ac0
(diacritic-composition-function): Fix for the case that POS is at the
Kenichi Handa <handa@m17n.org>
parents:
89483
diff
changeset
|
751 (setq components (cons ch (cons composition components)) |
3a4e30359ac0
(diacritic-composition-function): Fix for the case that POS is at the
Kenichi Handa <handa@m17n.org>
parents:
89483
diff
changeset
|
752 pos (1+ pos))) |
3a4e30359ac0
(diacritic-composition-function): Fix for the case that POS is at the
Kenichi Handa <handa@m17n.org>
parents:
89483
diff
changeset
|
753 (compose-region start pos (nreverse components)) |
3a4e30359ac0
(diacritic-composition-function): Fix for the case that POS is at the
Kenichi Handa <handa@m17n.org>
parents:
89483
diff
changeset
|
754 pos))))) |
41875
e31b7be17ab2
(diacritic-composition-pattern): New constant.
Dave Love <fx@gnu.org>
parents:
41228
diff
changeset
|
755 |
31155
3362938ebbd7
("Latin-8", "Latin-9"): Add input methods,
Dave Love <fx@gnu.org>
parents:
30261
diff
changeset
|
756 (provide 'european) |
3362938ebbd7
("Latin-8", "Latin-9"): Add input methods,
Dave Love <fx@gnu.org>
parents:
30261
diff
changeset
|
757 |
52401 | 758 ;;; arch-tag: 9e018b12-fb02-4120-907b-9adeaf84b5c2 |
17052 | 759 ;;; european.el ends here |