annotate lisp/language/european.el @ 20895:896aeeb4f735

(Fsubst_char_in_region): Don't increment pos twice.
author Richard M. Stallman <rms@gnu.org>
date Sat, 14 Feb 1998 07:27:29 +0000
parents ffa67db916b4
children 00ecdcdf9120
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1 ;;; european.el --- Support for European languages
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2
18377
8b4a66c66dd6 Change copyright notice.
Richard M. Stallman <rms@gnu.org>
parents: 18309
diff changeset
3 ;; Copyright (C) 1995, 1997 Electrotechnical Laboratory, JAPAN.
8b4a66c66dd6 Change copyright notice.
Richard M. Stallman <rms@gnu.org>
parents: 18309
diff changeset
4 ;; Licensed to the Free Software Foundation.
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6 ;; Keywords: multilingual, European
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8 ;; This file is part of GNU Emacs.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
9
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
10 ;; GNU Emacs is free software; you can redistribute it and/or modify
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
11 ;; it under the terms of the GNU General Public License as published by
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
12 ;; the Free Software Foundation; either version 2, or (at your option)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
13 ;; any later version.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
14
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
15 ;; GNU Emacs is distributed in the hope that it will be useful,
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
18 ;; GNU General Public License for more details.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
19
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
20 ;; 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
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the
70194012fb3a Fix FSF address in comment.
Karl Heuer <kwzh@gnu.org>
parents: 17052
diff changeset
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
70194012fb3a Fix FSF address in comment.
Karl Heuer <kwzh@gnu.org>
parents: 17052
diff changeset
23 ;; Boston, MA 02111-1307, USA.
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
24
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
25 ;;; Commentary:
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
26
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
27 ;; For Europeans, five character sets ISO8859-1,2,3,4,9 are supported.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
28
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
29 ;;; Code:
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
30
18543
c69431ef3310 (setup-8-bit-environment): New argument
Kenichi Handa <handa@m17n.org>
parents: 18520
diff changeset
31 ;; Setup for LANGAUGE which uses one-byte 8-bit CHARSET, one-byte
20743
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
32 ;; 8-bit coding system, and INPUT-METHOD.
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
33 (defun setup-8-bit-environment (language charset input-method)
17993
73869115ae0a Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents: 17841
diff changeset
34 (setup-english-environment)
20743
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
35 (set-language-environment-coding-systems language)
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 (if charset
18157
43e42c5bc812 (describe-european-environment-map):
Richard M. Stallman <rms@gnu.org>
parents: 18117
diff changeset
38 (let ((nonascii-offset (- (make-char charset) 128)))
43e42c5bc812 (describe-european-environment-map):
Richard M. Stallman <rms@gnu.org>
parents: 18117
diff changeset
39 ;; Set up for insertion of characters in this character set
43e42c5bc812 (describe-european-environment-map):
Richard M. Stallman <rms@gnu.org>
parents: 18117
diff changeset
40 ;; when codes 0200 - 0377 are typed in.
43e42c5bc812 (describe-european-environment-map):
Richard M. Stallman <rms@gnu.org>
parents: 18117
diff changeset
41 (setq nonascii-insert-offset nonascii-offset)))
17993
73869115ae0a Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents: 17841
diff changeset
42
73869115ae0a Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents: 17841
diff changeset
43 (if input-method
19369
1a7bd3dd824e (setup-8-bit-environment): Delete
Kenichi Handa <handa@m17n.org>
parents: 19360
diff changeset
44 (setq default-input-method input-method))
18543
c69431ef3310 (setup-8-bit-environment): New argument
Kenichi Handa <handa@m17n.org>
parents: 18520
diff changeset
45
c69431ef3310 (setup-8-bit-environment): New argument
Kenichi Handa <handa@m17n.org>
parents: 18520
diff changeset
46 ;; If this is a Latin-N character set, set up syntax for it in
19577
b931375072b2 (setup-8-bit-environment): Load the latin-N file again each time.
Richard M. Stallman <rms@gnu.org>
parents: 19394
diff changeset
47 ;; single-byte mode. We can't use require because the file
19661
8cde4cefae44 (setup-8-bit-environment): Inhibit message when loading latin-N.el.
Richard M. Stallman <rms@gnu.org>
parents: 19577
diff changeset
48 ;; must be eval'd each time in case we change from one Latin-N to another.
18543
c69431ef3310 (setup-8-bit-environment): New argument
Kenichi Handa <handa@m17n.org>
parents: 18520
diff changeset
49 (if (string-match "^Latin-\\([1-9]\\)$" language)
19661
8cde4cefae44 (setup-8-bit-environment): Inhibit message when loading latin-N.el.
Richard M. Stallman <rms@gnu.org>
parents: 19577
diff changeset
50 (load (downcase language) nil t)))
17993
73869115ae0a Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents: 17841
diff changeset
51
18069
d6b58197bd69 Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents: 17993
diff changeset
52 ;; Latin-1 (ISO-8859-1)
17993
73869115ae0a Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents: 17841
diff changeset
53
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
54 (make-coding-system
18203
0745f30aec66 Adjusted for coding system name change.
Kenichi Handa <handa@m17n.org>
parents: 18159
diff changeset
55 'iso-latin-1 2 ?1
20743
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
56 "ISO 2022 based 8-bit encoding for Laint-1 (MIME:ISO-8859-1)"
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
57 '(ascii latin-iso8859-1 nil nil
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
58 nil nil nil nil nil nil nil nil nil nil nil nil t)
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
59 '((safe-charsets ascii latin-iso8859-1)
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
60 (mime-charset . iso-8859-1)))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
61
18520
383d11185239 Swap args to define-coding-system-alias.
Richard M. Stallman <rms@gnu.org>
parents: 18377
diff changeset
62 (define-coding-system-alias 'iso-8859-1 'iso-latin-1)
18622
fe2070df967e (latin-1, latin-2. latin-3, latin-4, latin-5):
Richard M. Stallman <rms@gnu.org>
parents: 18543
diff changeset
63 (define-coding-system-alias 'latin-1 'iso-latin-1)
20743
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
64
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
65 (make-coding-system
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
66 'compound-text 2 ?1
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
67 "ISO 2022 based encoding used in inter client communication of X"
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
68 '((ascii t) (latin-iso8859-1 t) nil nil
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
69 nil ascii-eol ascii-cntl nil nil nil nil nil nil nil nil nil t)
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
70 '((safe-charsets . t)))
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
71
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
72 (define-coding-system-alias 'ctext 'compound-text)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
73
17993
73869115ae0a Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents: 17841
diff changeset
74 (defun setup-latin1-environment ()
18069
d6b58197bd69 Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents: 17993
diff changeset
75 "Set up multilingual environment (MULE) for European Latin-1 users."
17993
73869115ae0a Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents: 17841
diff changeset
76 (interactive)
20743
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
77 (setup-8-bit-environment "Latin-1" 'latin-iso8859-1 "latin-1-prefix"))
17993
73869115ae0a Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents: 17841
diff changeset
78
73869115ae0a Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents: 17841
diff changeset
79 (set-language-info-alist
20743
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
80 "Latin-1" '((setup-function . setup-latin1-environment)
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
81 (charset ascii latin-iso8859-1)
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
82 (coding-system iso-latin-1)
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
83 (coding-priority iso-latin-1)
18069
d6b58197bd69 Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents: 17993
diff changeset
84 (sample-text
d6b58197bd69 Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents: 17993
diff changeset
85 . "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
86 (documentation . "\
18117
5db3b24f2c5c (iso-8859-1): Use `1' for mode line.
Richard M. Stallman <rms@gnu.org>
parents: 18069
diff changeset
87 These languages are supported with the Latin-1 (ISO-8859-1) character set:
5db3b24f2c5c (iso-8859-1): Use `1' for mode line.
Richard M. Stallman <rms@gnu.org>
parents: 18069
diff changeset
88 Danish, Dutch, English, Faeroese, Finnish, French, German, Icelandic,
20743
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
89 Irish, Italian, Norwegian, Portuguese, Spanish, and Swedish."))
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
90 '("European"))
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
91
17993
73869115ae0a Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents: 17841
diff changeset
92
18069
d6b58197bd69 Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents: 17993
diff changeset
93 ;; Latin-2 (ISO-8859-2)
17993
73869115ae0a Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents: 17841
diff changeset
94
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
95 (make-coding-system
18203
0745f30aec66 Adjusted for coding system name change.
Kenichi Handa <handa@m17n.org>
parents: 18159
diff changeset
96 'iso-latin-2 2 ?2
0745f30aec66 Adjusted for coding system name change.
Kenichi Handa <handa@m17n.org>
parents: 18159
diff changeset
97 "ISO 2022 based 8-bit encoding (MIME:ISO-8859-2)"
20743
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
98 '(ascii latin-iso8859-2 nil nil
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
99 nil nil nil nil nil nil nil)
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
100 '((safe-charsets ascii latin-iso8859-2)
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
101 (mime-charset . iso-8859-2)))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
102
18520
383d11185239 Swap args to define-coding-system-alias.
Richard M. Stallman <rms@gnu.org>
parents: 18377
diff changeset
103 (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
104 (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
105
17993
73869115ae0a Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents: 17841
diff changeset
106 (defun setup-latin2-environment ()
18069
d6b58197bd69 Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents: 17993
diff changeset
107 "Set up multilingual environment (MULE) for European Latin-2 users."
17993
73869115ae0a Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents: 17841
diff changeset
108 (interactive)
20743
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
109 (setup-8-bit-environment "Latin-2" 'latin-iso8859-2 "latin-2-prefix"))
17993
73869115ae0a Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents: 17841
diff changeset
110
73869115ae0a Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents: 17841
diff changeset
111 (set-language-info-alist
20743
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
112 "Latin-2" '((setup-function . setup-latin2-environment)
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
113 (charset ascii latin-iso8859-2)
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
114 (coding-system iso-latin-2)
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
115 (coding-priority iso-latin-2)
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
116 (documentation . "\
18117
5db3b24f2c5c (iso-8859-1): Use `1' for mode line.
Richard M. Stallman <rms@gnu.org>
parents: 18069
diff changeset
117 These languages are supported with the Latin-2 (ISO-8859-2) character set:
5db3b24f2c5c (iso-8859-1): Use `1' for mode line.
Richard M. Stallman <rms@gnu.org>
parents: 18069
diff changeset
118 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
119 Serbo-Croatian or Croatian, Slovak, Slovene, Sorbian (upper and lower),
20743
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
120 and Swedish."))
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
121 '("European"))
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
122
17993
73869115ae0a Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents: 17841
diff changeset
123
18069
d6b58197bd69 Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents: 17993
diff changeset
124 ;; Latin-3 (ISO-8859-3)
17993
73869115ae0a Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents: 17841
diff changeset
125
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
126 (make-coding-system
18203
0745f30aec66 Adjusted for coding system name change.
Kenichi Handa <handa@m17n.org>
parents: 18159
diff changeset
127 'iso-latin-3 2 ?3
0745f30aec66 Adjusted for coding system name change.
Kenichi Handa <handa@m17n.org>
parents: 18159
diff changeset
128 "ISO 2022 based 8-bit encoding (MIME:ISO-8859-3)"
20743
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
129 '(ascii latin-iso8859-3 nil nil
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
130 nil nil nil nil nil nil nil)
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
131 '((safe-charsets ascii latin-iso8859-3)
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
132 (mime-charset . iso-8859-3)))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
133
18520
383d11185239 Swap args to define-coding-system-alias.
Richard M. Stallman <rms@gnu.org>
parents: 18377
diff changeset
134 (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
135 (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
136
17993
73869115ae0a Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents: 17841
diff changeset
137 (defun setup-latin3-environment ()
18069
d6b58197bd69 Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents: 17993
diff changeset
138 "Set up multilingual environment (MULE) for European Latin-3 users."
17993
73869115ae0a Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents: 17841
diff changeset
139 (interactive)
20743
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
140 (setup-8-bit-environment "Latin-3" 'latin-iso8859-3 "latin-3-prefix"))
17993
73869115ae0a Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents: 17841
diff changeset
141
73869115ae0a Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents: 17841
diff changeset
142 (set-language-info-alist
20743
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
143 "Latin-3" '((setup-function . setup-latin3-environment)
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
144 (charset ascii latin-iso8859-3)
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
145 (coding-system iso-latin-3)
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
146 (coding-priority iso-latin-3)
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
147 (documentation . "\
18117
5db3b24f2c5c (iso-8859-1): Use `1' for mode line.
Richard M. Stallman <rms@gnu.org>
parents: 18069
diff changeset
148 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
149 Afrikaans, Catalan, Dutch, English, Esperanto, French, Galician,
20743
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
150 German, Italian, Maltese, Spanish, and Turkish."))
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
151 '("European"))
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
152
17993
73869115ae0a Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents: 17841
diff changeset
153
18069
d6b58197bd69 Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents: 17993
diff changeset
154 ;; Latin-4 (ISO-8859-4)
17993
73869115ae0a Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents: 17841
diff changeset
155
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
156 (make-coding-system
18203
0745f30aec66 Adjusted for coding system name change.
Kenichi Handa <handa@m17n.org>
parents: 18159
diff changeset
157 'iso-latin-4 2 ?4
0745f30aec66 Adjusted for coding system name change.
Kenichi Handa <handa@m17n.org>
parents: 18159
diff changeset
158 "ISO 2022 based 8-bit encoding (MIME:ISO-8859-4)"
20743
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
159 '(ascii latin-iso8859-4 nil nil
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
160 nil nil nil nil nil nil nil)
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
161 '((safe-charsets ascii latin-iso8859-4)
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
162 (mime-charset . iso-8895-4)))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
163
18520
383d11185239 Swap args to define-coding-system-alias.
Richard M. Stallman <rms@gnu.org>
parents: 18377
diff changeset
164 (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
165 (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
166
17993
73869115ae0a Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents: 17841
diff changeset
167 (defun setup-latin4-environment ()
18069
d6b58197bd69 Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents: 17993
diff changeset
168 "Set up multilingual environment (MULE) for European Latin-4 users."
17993
73869115ae0a Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents: 17841
diff changeset
169 (interactive)
20743
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
170 (setup-8-bit-environment "Latin-4" 'latin-iso8859-4 "latin-4-prefix"))
17993
73869115ae0a Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents: 17841
diff changeset
171
73869115ae0a Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents: 17841
diff changeset
172 (set-language-info-alist
20743
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
173 "Latin-4" '((setup-function . setup-latin4-environment)
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
174 (charset ascii latin-iso8859-4)
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
175 (coding-system iso-8859-4)
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
176 (coding-priority iso-8859-4)
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
177 (documentation . "\
18117
5db3b24f2c5c (iso-8859-1): Use `1' for mode line.
Richard M. Stallman <rms@gnu.org>
parents: 18069
diff changeset
178 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
179 Danish, English, Estonian, Finnish, German, Greenlandic, Lappish,
20743
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
180 Latvian, Lithuanian, and Norwegian."))
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
181 '("European"))
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
182
17993
73869115ae0a Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents: 17841
diff changeset
183
18069
d6b58197bd69 Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents: 17993
diff changeset
184 ;; Latin-5 (ISO-8859-9)
17993
73869115ae0a Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents: 17841
diff changeset
185
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
186 (make-coding-system
18203
0745f30aec66 Adjusted for coding system name change.
Kenichi Handa <handa@m17n.org>
parents: 18159
diff changeset
187 'iso-latin-5 2 ?9
0745f30aec66 Adjusted for coding system name change.
Kenichi Handa <handa@m17n.org>
parents: 18159
diff changeset
188 "ISO 2022 based 8-bit encoding (MIME:ISO-8859-9)"
20743
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
189 '(ascii latin-iso8859-9 nil nil
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
190 nil nil nil nil nil nil nil)
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
191 '((safe-charsets ascii latin-iso8859-9)
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
192 (mime-charset . iso-8859-9)))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
193
18520
383d11185239 Swap args to define-coding-system-alias.
Richard M. Stallman <rms@gnu.org>
parents: 18377
diff changeset
194 (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
195 (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
196
17993
73869115ae0a Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents: 17841
diff changeset
197 (defun setup-latin5-environment ()
18069
d6b58197bd69 Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents: 17993
diff changeset
198 "Set up multilingual environment (MULE) for European Latin-5 users."
17993
73869115ae0a Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents: 17841
diff changeset
199 (interactive)
20743
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
200 (setup-8-bit-environment "Latin-5" 'latin-iso8859-9 "latin-5-prefix"))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
201
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
202 (set-language-info-alist
20743
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
203 "Latin-5" '((setup-function . setup-latin5-environment)
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
204 (charset ascii latin-iso8859-9)
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
205 (coding-system iso-latin-5)
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
206 (coding-priority iso-latin-5)
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
207 (documentation . "\
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
208 These languages are supported with the Latin-5 (ISO-8859-9) character set."))
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
209 '("European"))
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
210
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
211
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
212 (defun setup-german-environment ()
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
213 "Set up multilingual environment (MULE) for German users."
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
214 (interactive)
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
215 (funcall (get-language-info "Latin-1" 'setup-function))
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
216 (setq default-input-method "german-postfix"))
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
217
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
218 (set-language-info-alist
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
219 "German" '((setup-function . setup-german-environment)
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
220 (tutorial . "TUTORIAL.de")
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
221 (charset ascii latin-iso8859-1)
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
222 (coding-system iso-latin-1)
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
223 (coding-priority iso-latin-1)
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
224 (sample-text . "\
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
225 German (Deutsch Nord) Guten Tag
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
226 German (Deutsch S,A|(Bd) Gr,A|_(B Gott")
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
227 (documentation . "\
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
228 This language environment is almost the same as Latin-1,
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
229 but default input method is set to \"german-postfix\"."))
ffa67db916b4 Remove setting up of
Kenichi Handa <handa@m17n.org>
parents: 20232
diff changeset
230 '("European"))
17302
1012d679efd4 English related codes are moved to
Kenichi Handa <handa@m17n.org>
parents: 17098
diff changeset
231
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
232 ;;; european.el ends here