Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
18156:f7296dc03177 | 18157:43e42c5bc812 |
---|---|
26 | 26 |
27 ;; For Europeans, five character sets ISO8859-1,2,3,4,9 are supported. | 27 ;; For Europeans, five character sets ISO8859-1,2,3,4,9 are supported. |
28 | 28 |
29 ;;; Code: | 29 ;;; Code: |
30 | 30 |
31 (define-prefix-command 'describe-european-support-map) | 31 (define-prefix-command 'describe-european-environment-map) |
32 (define-key-after describe-language-support-map [European] | 32 (define-key-after describe-language-environment-map [European] |
33 '("European" . describe-european-support-map) | 33 '("European" . describe-european-environment-map) |
34 t) | 34 t) |
35 | 35 |
36 (define-prefix-command 'setup-european-environment-map) | 36 (define-prefix-command 'setup-european-environment-map) |
37 (define-key-after setup-language-environment-map [European] | 37 (define-key-after setup-language-environment-map [European] |
38 '("European" . setup-european-environment-map) | 38 '("European" . setup-european-environment-map) |
49 (set-keyboard-coding-system-internal coding-system) | 49 (set-keyboard-coding-system-internal coding-system) |
50 (setq sendmail-coding-system nil | 50 (setq sendmail-coding-system nil |
51 rmail-file-coding-system coding-system) | 51 rmail-file-coding-system coding-system) |
52 | 52 |
53 (if charset | 53 (if charset |
54 (let ((nonascii-offset (make-char charset))) | 54 (let ((nonascii-offset (- (make-char charset) 128))) |
55 (setq nonascii-insert-offset nonascii-offset | 55 ;; Set up for insertion of characters in this character set |
56 set-case-syntax-offset nonascii-offset))) | 56 ;; when codes 0200 - 0377 are typed in. |
57 (setq nonascii-insert-offset nonascii-offset))) | |
57 | 58 |
58 (if input-method | 59 (if input-method |
59 (setq default-input-method input-method))) | 60 (let ((latin-name (car input-method))) |
61 (setq default-input-method input-method) | |
62 ;; If this is a Latin-N character set, set up syntax for it | |
63 ;; in single-byte mode. | |
64 (when (and latin-name | |
65 (string-match "^Latin-\\([1-9]\\)$" latin-name)) | |
66 (require (intern (downcase latin-name))))))) | |
60 | 67 |
61 ;; Latin-1 (ISO-8859-1) | 68 ;; Latin-1 (ISO-8859-1) |
62 | 69 |
63 (make-coding-system | 70 (make-coding-system |
64 'iso-8859-1 2 ?1 | 71 'iso-8859-1 2 ?1 |
87 . "Hello, Hej, Tere, Hei, Bonjour, Gr,A|_(B Gott, Ciao, ,A!(BHola!") | 94 . "Hello, Hej, Tere, Hei, Bonjour, Gr,A|_(B Gott, Ciao, ,A!(BHola!") |
88 (documentation . ("\ | 95 (documentation . ("\ |
89 These languages are supported with the Latin-1 (ISO-8859-1) character set: | 96 These languages are supported with the Latin-1 (ISO-8859-1) character set: |
90 Danish, Dutch, English, Faeroese, Finnish, French, German, Icelandic, | 97 Danish, Dutch, English, Faeroese, Finnish, French, German, Icelandic, |
91 Irish, Italian, Norwegian, Portuguese, Spanish, and Swedish. | 98 Irish, Italian, Norwegian, Portuguese, Spanish, and Swedish. |
92 " . describe-european-support-map)) | 99 " . describe-european-environment-map)) |
93 )) | 100 )) |
94 | 101 |
95 ;; Latin-2 (ISO-8859-2) | 102 ;; Latin-2 (ISO-8859-2) |
96 | 103 |
97 (make-coding-system | 104 (make-coding-system |
115 (coding-system . (iso-8859-2)) | 122 (coding-system . (iso-8859-2)) |
116 (documentation . ("\ | 123 (documentation . ("\ |
117 These languages are supported with the Latin-2 (ISO-8859-2) character set: | 124 These languages are supported with the Latin-2 (ISO-8859-2) character set: |
118 Albanian, Czech, English, German, Hungarian, Polish, Romanian, | 125 Albanian, Czech, English, German, Hungarian, Polish, Romanian, |
119 Serbo-Croatian, Slovak, Slovene, and Swedish. | 126 Serbo-Croatian, Slovak, Slovene, and Swedish. |
120 " . describe-european-support-map)) | 127 " . describe-european-environment-map)) |
121 )) | 128 )) |
122 | 129 |
123 ;; Latin-3 (ISO-8859-3) | 130 ;; Latin-3 (ISO-8859-3) |
124 | 131 |
125 (make-coding-system | 132 (make-coding-system |
143 (coding-system . (iso-8859-3)) | 150 (coding-system . (iso-8859-3)) |
144 (documentation . ("\ | 151 (documentation . ("\ |
145 These languages are supported with the Latin-3 (ISO-8859-3) character set: | 152 These languages are supported with the Latin-3 (ISO-8859-3) character set: |
146 Afrikaans, Catalan, Dutch, English, Esperanto, French, Galician, | 153 Afrikaans, Catalan, Dutch, English, Esperanto, French, Galician, |
147 German, Italian, Maltese, Spanish, and Turkish. | 154 German, Italian, Maltese, Spanish, and Turkish. |
148 " . describe-european-support-map)) | 155 " . describe-european-environment-map)) |
149 )) | 156 )) |
150 | 157 |
151 ;; Latin-4 (ISO-8859-4) | 158 ;; Latin-4 (ISO-8859-4) |
152 | 159 |
153 (make-coding-system | 160 (make-coding-system |
171 (coding-system . (iso-8859-4)) | 178 (coding-system . (iso-8859-4)) |
172 (documentation . ("\ | 179 (documentation . ("\ |
173 These languages are supported with the Latin-4 (ISO-8859-4) character set: | 180 These languages are supported with the Latin-4 (ISO-8859-4) character set: |
174 Danish, English, Estonian, Finnish, German, Greenlandic, Lappish, | 181 Danish, English, Estonian, Finnish, German, Greenlandic, Lappish, |
175 Latvian, Lithuanian, and Norwegian. | 182 Latvian, Lithuanian, and Norwegian. |
176 " . describe-european-support-map)) | 183 " . describe-european-environment-map)) |
177 )) | 184 )) |
178 | 185 |
179 ;; Latin-5 (ISO-8859-9) | 186 ;; Latin-5 (ISO-8859-9) |
180 | 187 |
181 (make-coding-system | 188 (make-coding-system |
197 . setup-european-environment-map)) | 204 . setup-european-environment-map)) |
198 (charset . (ascii latin-iso8859-9)) | 205 (charset . (ascii latin-iso8859-9)) |
199 (coding-system . (iso-8859-9)) | 206 (coding-system . (iso-8859-9)) |
200 (documentation . ("\ | 207 (documentation . ("\ |
201 These languages are supported with the Latin-5 (ISO-8859-9) character set. | 208 These languages are supported with the Latin-5 (ISO-8859-9) character set. |
202 " . describe-european-support-map)) | 209 " . describe-european-environment-map)) |
203 )) | 210 )) |
204 | 211 |
205 (let ((languages '("French" "German" "Spanish" "Italian" | 212 (let ((languages '("French" "German" "Spanish" "Italian" |
206 ;; We have to list much more European languages here. | 213 ;; We have to list much more European languages here. |
207 )) | 214 )) |