annotate lisp/language/european.el @ 64627:ca25447f710a

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