Mercurial > emacs

comparison lisp/language/european.el @ 22726:e44440f1a80e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Define unibyte-syntax in each of these language environments. (setup-8-bit-environment): Let unibyte-syntax specify whether to load a file of syntax settings, and which one.
author Richard M. Stallman <rms@gnu.org>
date Thu, 09 Jul 1998 04:53:28 +0000
parents 577e5b25f6d3
children 5681e7798ce9
comparison
equal deleted inserted replaced
22725:6d0f7798f157 22726:e44440f1a80e
42 (setq nonascii-insert-offset nonascii-offset))) 42 (setq nonascii-insert-offset nonascii-offset)))
43 43
44 (if input-method 44 (if input-method
45 (setq default-input-method input-method))) 45 (setq default-input-method input-method)))
46 46
47 ;; If this is a Latin-N character set, set up syntax for it in 47 ;; If this language environment supports unibyte operation,
48 ;; single-byte mode. We can't use require because the file 48 ;; load the proper syntax definitions for codes 0240-0377.
49 ;; must be eval'd each time in case we change from one Latin-N to another. 49 (when (get-language-info language 'unibyte-syntax)
50 (if (string-match "^Latin-\\([1-9]\\)$" language) 50 (let ((set-case-syntax-set-multibyte nil))
51 (let ((set-case-syntax-set-multibyte nil)) 51 (load (get-language-info language 'unibyte-syntax) nil t)
52 (load (downcase language) nil t) 52 (set-standard-case-table (standard-case-table))
53 (set-standard-case-table (standard-case-table)) 53 (let ((list (buffer-list)))
54 (let ((list (buffer-list))) 54 (while list
55 (while list 55 (with-current-buffer (car list)
56 (with-current-buffer (car list) 56 (set-case-table (standard-case-table)))
57 (set-case-table (standard-case-table))) 57 (setq list (cdr list)))))))
58 (setq list (cdr list)))))))
59 58
60 ;; Latin-1 (ISO-8859-1) 59 ;; Latin-1 (ISO-8859-1)
61 60
62 (make-coding-system 61 (make-coding-system
63 'iso-latin-1 2 ?1 62 'iso-latin-1 2 ?1
87 (set-language-info-alist 86 (set-language-info-alist
88 "Latin-1" '((setup-function . setup-latin1-environment) 87 "Latin-1" '((setup-function . setup-latin1-environment)
89 (charset ascii latin-iso8859-1) 88 (charset ascii latin-iso8859-1)
90 (coding-system iso-latin-1) 89 (coding-system iso-latin-1)
91 (coding-priority iso-latin-1) 90 (coding-priority iso-latin-1)
91 (unibyte-syntax . "latin-1")
92 (sample-text 92 (sample-text
93 . "Hello, Hej, Tere, Hei, Bonjour, Gr,A|_(B Gott, Ciao, ,A!(BHola!") 93 . "Hello, Hej, Tere, Hei, Bonjour, Gr,A|_(B Gott, Ciao, ,A!(BHola!")
94 (documentation . "\ 94 (documentation . "\
95 These languages are supported with the Latin-1 (ISO-8859-1) character set: 95 These languages are supported with the Latin-1 (ISO-8859-1) character set:
96 Danish, Dutch, English, Faeroese, Finnish, French, German, Icelandic, 96 Danish, Dutch, English, Faeroese, Finnish, French, German, Icelandic,
119 (set-language-info-alist 119 (set-language-info-alist
120 "Latin-2" '((setup-function . setup-latin2-environment) 120 "Latin-2" '((setup-function . setup-latin2-environment)
121 (charset ascii latin-iso8859-2) 121 (charset ascii latin-iso8859-2)
122 (coding-system iso-latin-2) 122 (coding-system iso-latin-2)
123 (coding-priority iso-latin-2) 123 (coding-priority iso-latin-2)
124 (unibyte-syntax . "latin-2")
124 (documentation . "\ 125 (documentation . "\
125 These languages are supported with the Latin-2 (ISO-8859-2) character set: 126 These languages are supported with the Latin-2 (ISO-8859-2) character set:
126 Albanian, Czech, English, German, Hungarian, Polish, Romanian, 127 Albanian, Czech, English, German, Hungarian, Polish, Romanian,
127 Serbo-Croatian or Croatian, Slovak, Slovene, Sorbian (upper and lower), 128 Serbo-Croatian or Croatian, Slovak, Slovene, Sorbian (upper and lower),
128 and Swedish.")) 129 and Swedish."))
150 (set-language-info-alist 151 (set-language-info-alist
151 "Latin-3" '((setup-function . setup-latin3-environment) 152 "Latin-3" '((setup-function . setup-latin3-environment)
152 (charset ascii latin-iso8859-3) 153 (charset ascii latin-iso8859-3)
153 (coding-system iso-latin-3) 154 (coding-system iso-latin-3)
154 (coding-priority iso-latin-3) 155 (coding-priority iso-latin-3)
156 (unibyte-syntax . "latin-3")
155 (documentation . "\ 157 (documentation . "\
156 These languages are supported with the Latin-3 (ISO-8859-3) character set: 158 These languages are supported with the Latin-3 (ISO-8859-3) character set:
157 Afrikaans, Catalan, Dutch, English, Esperanto, French, Galician, 159 Afrikaans, Catalan, Dutch, English, Esperanto, French, Galician,
158 German, Italian, Maltese, Spanish, and Turkish.")) 160 German, Italian, Maltese, Spanish, and Turkish."))
159 '("European")) 161 '("European"))
180 (set-language-info-alist 182 (set-language-info-alist
181 "Latin-4" '((setup-function . setup-latin4-environment) 183 "Latin-4" '((setup-function . setup-latin4-environment)
182 (charset ascii latin-iso8859-4) 184 (charset ascii latin-iso8859-4)
183 (coding-system iso-8859-4) 185 (coding-system iso-8859-4)
184 (coding-priority iso-8859-4) 186 (coding-priority iso-8859-4)
187 (unibyte-syntax . "latin-4")
185 (documentation . "\ 188 (documentation . "\
186 These languages are supported with the Latin-4 (ISO-8859-4) character set: 189 These languages are supported with the Latin-4 (ISO-8859-4) character set:
187 Danish, English, Estonian, Finnish, German, Greenlandic, Lappish, 190 Danish, English, Estonian, Finnish, German, Greenlandic, Lappish,
188 Latvian, Lithuanian, and Norwegian.")) 191 Latvian, Lithuanian, and Norwegian."))
189 '("European")) 192 '("European"))
210 (set-language-info-alist 213 (set-language-info-alist
211 "Latin-5" '((setup-function . setup-latin5-environment) 214 "Latin-5" '((setup-function . setup-latin5-environment)
212 (charset ascii latin-iso8859-9) 215 (charset ascii latin-iso8859-9)
213 (coding-system iso-latin-5) 216 (coding-system iso-latin-5)
214 (coding-priority iso-latin-5) 217 (coding-priority iso-latin-5)
218 (unibyte-syntax . "latin-5")
215 (documentation . "\ 219 (documentation . "\
216 These languages are supported with the Latin-5 (ISO-8859-9) character set.")) 220 These languages are supported with the Latin-5 (ISO-8859-9) character set."))
217 '("European")) 221 '("European"))
218 222
219 223
227 "German" '((setup-function . setup-german-environment) 231 "German" '((setup-function . setup-german-environment)
228 (tutorial . "TUTORIAL.de") 232 (tutorial . "TUTORIAL.de")
229 (charset ascii latin-iso8859-1) 233 (charset ascii latin-iso8859-1)
230 (coding-system iso-latin-1) 234 (coding-system iso-latin-1)
231 (coding-priority iso-latin-1) 235 (coding-priority iso-latin-1)
236 (unibyte-syntax . "latin-1")
232 (sample-text . "\ 237 (sample-text . "\
233 German (Deutsch Nord) Guten Tag 238 German (Deutsch Nord) Guten Tag
234 German (Deutsch S,A|(Bd) Gr,A|_(B Gott") 239 German (Deutsch S,A|(Bd) Gr,A|_(B Gott")
235 (documentation . "\ 240 (documentation . "\
236 This language environment is almost the same as Latin-1, 241 This language environment is almost the same as Latin-1,