Mercurial > emacs
annotate lisp/language/european.el @ 18157:43e42c5bc812
(describe-european-environment-map):
Renamed from describe-european-support-map.
(setup-8-bit-environment):
Do not set set-case-syntax-offset.
Subtract 128 when setting nonascii-insert-offset.
Require latin-N if appropriate.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sat, 07 Jun 1997 05:56:20 +0000 |
parents | 5db3b24f2c5c |
children | 21e4deb76701 |
rev | line source |
---|---|
17052 | 1 ;;; european.el --- Support for European languages |
2 | |
3 ;; Copyright (C) 1995 Free Software Foundation, Inc. | |
4 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. | |
5 | |
6 ;; Keywords: multilingual, European | |
7 | |
8 ;; This file is part of GNU Emacs. | |
9 | |
10 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
11 ;; it under the terms of the GNU General Public License as published by | |
12 ;; the Free Software Foundation; either version 2, or (at your option) | |
13 ;; any later version. | |
14 | |
15 ;; GNU Emacs is distributed in the hope that it will be useful, | |
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
18 ;; GNU General Public License for more details. | |
19 | |
20 ;; You should have received a copy of the GNU General Public License | |
17071 | 21 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
23 ;; Boston, MA 02111-1307, USA. | |
17052 | 24 |
25 ;;; Commentary: | |
26 | |
27 ;; For Europeans, five character sets ISO8859-1,2,3,4,9 are supported. | |
28 | |
29 ;;; Code: | |
30 | |
18157
43e42c5bc812
(describe-european-environment-map):
Richard M. Stallman <rms@gnu.org>
parents:
18117
diff
changeset
|
31 (define-prefix-command 'describe-european-environment-map) |
43e42c5bc812
(describe-european-environment-map):
Richard M. Stallman <rms@gnu.org>
parents:
18117
diff
changeset
|
32 (define-key-after describe-language-environment-map [European] |
43e42c5bc812
(describe-european-environment-map):
Richard M. Stallman <rms@gnu.org>
parents:
18117
diff
changeset
|
33 '("European" . describe-european-environment-map) |
17993
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
34 t) |
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
35 |
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
36 (define-prefix-command 'setup-european-environment-map) |
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
37 (define-key-after setup-language-environment-map [European] |
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
38 '("European" . setup-european-environment-map) |
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
39 t) |
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
40 |
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
41 ;; Setup for a langauge which uses one-byte 8-bit CHARSET, one-byte |
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
42 ;; 8-bit CODING-SYSTEM, and INPUT-METHOD. |
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
43 (defun setup-8-bit-environment (charset coding-system input-method) |
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
44 (setup-english-environment) |
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
45 (setq-default buffer-file-coding-system coding-system) |
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
46 (setq coding-category-iso-8-1 coding-system |
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
47 coding-category-iso-8-2 coding-system) |
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
48 (set-terminal-coding-system-internal coding-system) |
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
49 (set-keyboard-coding-system-internal coding-system) |
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
50 (setq sendmail-coding-system nil |
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
51 rmail-file-coding-system coding-system) |
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
52 |
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
53 (if charset |
18157
43e42c5bc812
(describe-european-environment-map):
Richard M. Stallman <rms@gnu.org>
parents:
18117
diff
changeset
|
54 (let ((nonascii-offset (- (make-char charset) 128))) |
43e42c5bc812
(describe-european-environment-map):
Richard M. Stallman <rms@gnu.org>
parents:
18117
diff
changeset
|
55 ;; 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
|
56 ;; when codes 0200 - 0377 are typed in. |
43e42c5bc812
(describe-european-environment-map):
Richard M. Stallman <rms@gnu.org>
parents:
18117
diff
changeset
|
57 (setq nonascii-insert-offset nonascii-offset))) |
17993
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
58 |
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
59 (if input-method |
18157
43e42c5bc812
(describe-european-environment-map):
Richard M. Stallman <rms@gnu.org>
parents:
18117
diff
changeset
|
60 (let ((latin-name (car input-method))) |
43e42c5bc812
(describe-european-environment-map):
Richard M. Stallman <rms@gnu.org>
parents:
18117
diff
changeset
|
61 (setq default-input-method input-method) |
43e42c5bc812
(describe-european-environment-map):
Richard M. Stallman <rms@gnu.org>
parents:
18117
diff
changeset
|
62 ;; If this is a Latin-N character set, set up syntax for it |
43e42c5bc812
(describe-european-environment-map):
Richard M. Stallman <rms@gnu.org>
parents:
18117
diff
changeset
|
63 ;; in single-byte mode. |
43e42c5bc812
(describe-european-environment-map):
Richard M. Stallman <rms@gnu.org>
parents:
18117
diff
changeset
|
64 (when (and latin-name |
43e42c5bc812
(describe-european-environment-map):
Richard M. Stallman <rms@gnu.org>
parents:
18117
diff
changeset
|
65 (string-match "^Latin-\\([1-9]\\)$" latin-name)) |
43e42c5bc812
(describe-european-environment-map):
Richard M. Stallman <rms@gnu.org>
parents:
18117
diff
changeset
|
66 (require (intern (downcase latin-name))))))) |
17993
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
67 |
18069
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
68 ;; Latin-1 (ISO-8859-1) |
17993
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
69 |
17052 | 70 (make-coding-system |
18117
5db3b24f2c5c
(iso-8859-1): Use `1' for mode line.
Richard M. Stallman <rms@gnu.org>
parents:
18069
diff
changeset
|
71 'iso-8859-1 2 ?1 |
17993
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
72 "MIME ISO-8859-1 Compound Text Encoding." |
17052 | 73 '((ascii t) (latin-iso8859-1 t) nil nil |
74 nil ascii-eol ascii-cntl)) | |
75 | |
76 ;; CTEXT is an alias for ISO-8859-1 | |
17098
8917133b7e82
Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
77 (define-coding-system-alias 'iso-8859-1 'ctext) |
17052 | 78 |
18069
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
79 (register-input-method "Latin-1" |
17993
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
80 '("quail-latin-1" quail-use-package "quail/latin")) |
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
81 |
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
82 (defun setup-latin1-environment () |
18069
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
83 "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
|
84 (interactive) |
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
85 (setup-8-bit-environment 'latin-iso8859-1 'iso-8859-1 |
18069
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
86 '("Latin-1" . "quail-latin-1"))) |
17993
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
87 |
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
88 (set-language-info-alist |
18069
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
89 "Latin-1" '((setup-function . (setup-latin1-environment |
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
90 . setup-european-environment-map)) |
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
91 (charset . (ascii latin-iso8859-1)) |
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
92 (coding-system . (iso-8859-1)) |
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
93 (sample-text |
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
94 . "Hello, Hej, Tere, Hei, Bonjour, Gr,A|_(B Gott, Ciao, ,A!(BHola!") |
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
95 (documentation . ("\ |
18117
5db3b24f2c5c
(iso-8859-1): Use `1' for mode line.
Richard M. Stallman <rms@gnu.org>
parents:
18069
diff
changeset
|
96 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
|
97 Danish, Dutch, English, Faeroese, Finnish, French, German, Icelandic, |
5db3b24f2c5c
(iso-8859-1): Use `1' for mode line.
Richard M. Stallman <rms@gnu.org>
parents:
18069
diff
changeset
|
98 Irish, Italian, Norwegian, Portuguese, Spanish, and Swedish. |
18157
43e42c5bc812
(describe-european-environment-map):
Richard M. Stallman <rms@gnu.org>
parents:
18117
diff
changeset
|
99 " . describe-european-environment-map)) |
18069
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
100 )) |
17993
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
101 |
18069
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
102 ;; Latin-2 (ISO-8859-2) |
17993
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
103 |
17052 | 104 (make-coding-system |
17098
8917133b7e82
Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
105 'iso-8859-2 2 ?2 "MIME ISO-8859-2" |
17052 | 106 '((ascii t) (latin-iso8859-2 t) nil nil |
107 nil ascii-eol ascii-cntl nil nil nil nil)) | |
108 | |
18069
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
109 (register-input-method "Latin-2" |
17993
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
110 '("quail-latin-2" quail-use-package "quail/latin")) |
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
111 |
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
112 (defun setup-latin2-environment () |
18069
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
113 "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
|
114 (interactive) |
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
115 (setup-8-bit-environment 'latin-iso8859-2 'iso-8859-2 |
18069
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
116 '("Latin-2" . "quail-latin-2"))) |
17993
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
117 |
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
118 (set-language-info-alist |
18069
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
119 "Latin-2" '((setup-function . (setup-latin2-environment |
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
120 . setup-european-environment-map)) |
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
121 (charset . (ascii latin-iso8859-2)) |
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
122 (coding-system . (iso-8859-2)) |
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
123 (documentation . ("\ |
18117
5db3b24f2c5c
(iso-8859-1): Use `1' for mode line.
Richard M. Stallman <rms@gnu.org>
parents:
18069
diff
changeset
|
124 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
|
125 Albanian, Czech, English, German, Hungarian, Polish, Romanian, |
5db3b24f2c5c
(iso-8859-1): Use `1' for mode line.
Richard M. Stallman <rms@gnu.org>
parents:
18069
diff
changeset
|
126 Serbo-Croatian, Slovak, Slovene, and Swedish. |
18157
43e42c5bc812
(describe-european-environment-map):
Richard M. Stallman <rms@gnu.org>
parents:
18117
diff
changeset
|
127 " . describe-european-environment-map)) |
18069
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
128 )) |
17993
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
129 |
18069
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
130 ;; Latin-3 (ISO-8859-3) |
17993
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
131 |
17052 | 132 (make-coding-system |
17098
8917133b7e82
Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
133 'iso-8859-3 2 ?3 "MIME ISO-8859-3" |
17052 | 134 '((ascii t) (latin-iso8859-3 t) nil nil |
135 nil ascii-eol ascii-cntl nil nil nil nil)) | |
136 | |
18069
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
137 (register-input-method "Latin-3" |
17993
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
138 '("quail-latin-3" quail-use-package "quail/latin")) |
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
139 |
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
140 (defun setup-latin3-environment () |
18069
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
141 "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
|
142 (interactive) |
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
143 (setup-8-bit-environment 'latin-iso8859-3 'iso-8859-3 |
18069
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
144 '("Latin-3" . "quail-latin-3"))) |
17993
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
145 |
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
146 (set-language-info-alist |
18069
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
147 "Latin-3" '((setup-function . (setup-latin3-environment |
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
148 . setup-european-environment-map)) |
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
149 (charset . (ascii latin-iso8859-3)) |
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
150 (coding-system . (iso-8859-3)) |
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
151 (documentation . ("\ |
18117
5db3b24f2c5c
(iso-8859-1): Use `1' for mode line.
Richard M. Stallman <rms@gnu.org>
parents:
18069
diff
changeset
|
152 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
|
153 Afrikaans, Catalan, Dutch, English, Esperanto, French, Galician, |
5db3b24f2c5c
(iso-8859-1): Use `1' for mode line.
Richard M. Stallman <rms@gnu.org>
parents:
18069
diff
changeset
|
154 German, Italian, Maltese, Spanish, and Turkish. |
18157
43e42c5bc812
(describe-european-environment-map):
Richard M. Stallman <rms@gnu.org>
parents:
18117
diff
changeset
|
155 " . describe-european-environment-map)) |
18069
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
156 )) |
17993
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
157 |
18069
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
158 ;; Latin-4 (ISO-8859-4) |
17993
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
159 |
17052 | 160 (make-coding-system |
17098
8917133b7e82
Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
161 'iso-8859-4 2 ?4 "MIME ISO-8859-4" |
17052 | 162 '((ascii t) (latin-iso8859-4 t) nil nil |
163 nil ascii-eol ascii-cntl nil nil nil nil)) | |
164 | |
18069
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
165 (register-input-method "Latin-4" |
17993
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
166 '("quail-latin-4" quail-use-package "quail/latin")) |
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
167 |
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
168 (defun setup-latin4-environment () |
18069
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
169 "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
|
170 (interactive) |
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
171 (setup-8-bit-environment 'latin-iso8859-4 'iso-8859-4 |
18069
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
172 '("Latin-4" . "quail-latin-4"))) |
17993
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
173 |
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
174 (set-language-info-alist |
18069
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
175 "Latin-4" '((setup-function . (setup-latin4-environment |
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
176 . setup-european-environment-map)) |
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
177 (charset . (ascii latin-iso8859-4)) |
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
178 (coding-system . (iso-8859-4)) |
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
179 (documentation . ("\ |
18117
5db3b24f2c5c
(iso-8859-1): Use `1' for mode line.
Richard M. Stallman <rms@gnu.org>
parents:
18069
diff
changeset
|
180 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
|
181 Danish, English, Estonian, Finnish, German, Greenlandic, Lappish, |
5db3b24f2c5c
(iso-8859-1): Use `1' for mode line.
Richard M. Stallman <rms@gnu.org>
parents:
18069
diff
changeset
|
182 Latvian, Lithuanian, and Norwegian. |
18157
43e42c5bc812
(describe-european-environment-map):
Richard M. Stallman <rms@gnu.org>
parents:
18117
diff
changeset
|
183 " . describe-european-environment-map)) |
18069
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
184 )) |
17993
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
185 |
18069
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
186 ;; Latin-5 (ISO-8859-9) |
17993
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
187 |
17052 | 188 (make-coding-system |
17098
8917133b7e82
Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
189 'iso-8859-9 2 ?9 "MIME ISO-8859-9" |
17052 | 190 '((ascii t) (latin-iso8859-9 t) nil nil |
191 nil ascii-eol ascii-cntl nil nil nil nil)) | |
192 | |
18069
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
193 (register-input-method "Latin-5" |
17052 | 194 '("quail-latin-5" quail-use-package "quail/latin")) |
195 | |
17993
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
196 (defun setup-latin5-environment () |
18069
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
197 "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
|
198 (interactive) |
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
199 (setup-8-bit-environment 'latin-iso8859-9 'iso-8859-9 |
18069
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
200 '("Latin-5" . "quail-latin-5"))) |
17052 | 201 |
202 (set-language-info-alist | |
18069
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
203 "Latin-5" '((setup-function . (setup-latin5-environment |
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
204 . setup-european-environment-map)) |
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
205 (charset . (ascii latin-iso8859-9)) |
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
206 (coding-system . (iso-8859-9)) |
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
207 (documentation . ("\ |
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
208 These languages are supported with the Latin-5 (ISO-8859-9) character set. |
18157
43e42c5bc812
(describe-european-environment-map):
Richard M. Stallman <rms@gnu.org>
parents:
18117
diff
changeset
|
209 " . describe-european-environment-map)) |
18069
d6b58197bd69
Rename language environments from LatinN to Latin-N.
Richard M. Stallman <rms@gnu.org>
parents:
17993
diff
changeset
|
210 )) |
17993
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17841
diff
changeset
|
211 |
17302
1012d679efd4
English related codes are moved to
Kenichi Handa <handa@m17n.org>
parents:
17098
diff
changeset
|
212 (let ((languages '("French" "German" "Spanish" "Italian" |
17768
93caf447ed72
Make functions setup-LANGUAGE-environment
Kenichi Handa <handa@m17n.org>
parents:
17302
diff
changeset
|
213 ;; We have to list much more European languages here. |
17302
1012d679efd4
English related codes are moved to
Kenichi Handa <handa@m17n.org>
parents:
17098
diff
changeset
|
214 )) |
1012d679efd4
English related codes are moved to
Kenichi Handa <handa@m17n.org>
parents:
17098
diff
changeset
|
215 (val '("quail-latin-1" quail-use-package "quail/latin"))) |
1012d679efd4
English related codes are moved to
Kenichi Handa <handa@m17n.org>
parents:
17098
diff
changeset
|
216 (while languages |
1012d679efd4
English related codes are moved to
Kenichi Handa <handa@m17n.org>
parents:
17098
diff
changeset
|
217 (register-input-method (car languages) val) |
1012d679efd4
English related codes are moved to
Kenichi Handa <handa@m17n.org>
parents:
17098
diff
changeset
|
218 (setq languages (cdr languages)))) |
1012d679efd4
English related codes are moved to
Kenichi Handa <handa@m17n.org>
parents:
17098
diff
changeset
|
219 |
17052 | 220 ;;; european.el ends here |