Mercurial > emacs

comparison lisp/language/european.el @ 42152:e3ae5ef41293

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Improving doc strings.
author Werner LEMBERG <wl@gnu.org>
date Tue, 18 Dec 2001 17:51:50 +0000
parents 7b6dcc19e895
children 98e4b2a1b394
comparison
equal deleted inserted replaced
42151:e9a441eabced 42152:e3ae5ef41293
32 32
33 ;; Latin-1 (ISO-8859-1) 33 ;; Latin-1 (ISO-8859-1)
34 34
35 (make-coding-system 35 (make-coding-system
36 'iso-latin-1 2 ?1 36 'iso-latin-1 2 ?1
37 "ISO 2022 based 8-bit encoding for Latin-1 (MIME:ISO-8859-1)" 37 "ISO 2022 based 8-bit encoding for Latin-1 (MIME:ISO-8859-1)."
38 '(ascii latin-iso8859-1 nil nil 38 '(ascii latin-iso8859-1 nil nil
39 nil nil nil nil nil nil nil nil nil nil nil nil t) 39 nil nil nil nil nil nil nil nil nil nil nil nil t)
40 '((safe-charsets ascii latin-iso8859-1) 40 '((safe-charsets ascii latin-iso8859-1)
41 (mime-charset . iso-8859-1))) 41 (mime-charset . iso-8859-1)))
42 42
74 74
75 ;; Latin-2 (ISO-8859-2) 75 ;; Latin-2 (ISO-8859-2)
76 76
77 (make-coding-system 77 (make-coding-system
78 'iso-latin-2 2 ?2 78 'iso-latin-2 2 ?2
79 "ISO 2022 based 8-bit encoding (MIME:ISO-8859-2)" 79 "ISO 2022 based 8-bit encoding for Latin-2 (MIME:ISO-8859-2)."
80 '(ascii latin-iso8859-2 nil nil 80 '(ascii latin-iso8859-2 nil nil
81 nil nil nil nil nil nil nil) 81 nil nil nil nil nil nil nil)
82 '((safe-charsets ascii latin-iso8859-2) 82 '((safe-charsets ascii latin-iso8859-2)
83 (mime-charset . iso-8859-2))) 83 (mime-charset . iso-8859-2)))
84 84
108 108
109 ;; Latin-3 (ISO-8859-3) 109 ;; Latin-3 (ISO-8859-3)
110 110
111 (make-coding-system 111 (make-coding-system
112 'iso-latin-3 2 ?3 112 'iso-latin-3 2 ?3
113 "ISO 2022 based 8-bit encoding (MIME:ISO-8859-3)" 113 "ISO 2022 based 8-bit encoding for Latin-3 (MIME:ISO-8859-3)."
114 '(ascii latin-iso8859-3 nil nil 114 '(ascii latin-iso8859-3 nil nil
115 nil nil nil nil nil nil nil) 115 nil nil nil nil nil nil nil)
116 '((safe-charsets ascii latin-iso8859-3) 116 '((safe-charsets ascii latin-iso8859-3)
117 (mime-charset . iso-8859-3))) 117 (mime-charset . iso-8859-3)))
118 118
136 136
137 ;; Latin-4 (ISO-8859-4) 137 ;; Latin-4 (ISO-8859-4)
138 138
139 (make-coding-system 139 (make-coding-system
140 'iso-latin-4 2 ?4 140 'iso-latin-4 2 ?4
141 "ISO 2022 based 8-bit encoding (MIME:ISO-8859-4)" 141 "ISO 2022 based 8-bit encoding for Latin-4 (MIME:ISO-8859-4)."
142 '(ascii latin-iso8859-4 nil nil 142 '(ascii latin-iso8859-4 nil nil
143 nil nil nil nil nil nil nil) 143 nil nil nil nil nil nil nil)
144 '((safe-charsets ascii latin-iso8859-4) 144 '((safe-charsets ascii latin-iso8859-4)
145 (mime-charset . iso-8859-4))) 145 (mime-charset . iso-8859-4)))
146 146
164 164
165 ;; Latin-5 (ISO-8859-9) 165 ;; Latin-5 (ISO-8859-9)
166 166
167 (make-coding-system 167 (make-coding-system
168 'iso-latin-5 2 ?9 168 'iso-latin-5 2 ?9
169 "ISO 2022 based 8-bit encoding (MIME:ISO-8859-9)" 169 "ISO 2022 based 8-bit encoding for Latin-5 (MIME:ISO-8859-9)."
170 '(ascii latin-iso8859-9 nil nil 170 '(ascii latin-iso8859-9 nil nil
171 nil nil nil nil nil nil nil) 171 nil nil nil nil nil nil nil)
172 '((safe-charsets ascii latin-iso8859-9) 172 '((safe-charsets ascii latin-iso8859-9)
173 (mime-charset . iso-8859-9))) 173 (mime-charset . iso-8859-9)))
174 174
183 (unibyte-syntax . "latin-5") 183 (unibyte-syntax . "latin-5")
184 (unibyte-display . iso-latin-5) 184 (unibyte-display . iso-latin-5)
185 (input-method . "latin-5-postfix") 185 (input-method . "latin-5-postfix")
186 (documentation . "\ 186 (documentation . "\
187 These languages are supported with the Latin-5 (ISO-8859-9) character set: 187 These languages are supported with the Latin-5 (ISO-8859-9) character set:
188 Bulgarian, Byelorussian, (Slavic) Macedonian, Russian, Serbian and 188 Bulgarian, Byelorussian, (Slavic) Macedonian, Russian, Serbian and
189 Ukranian.")) ; says ISO 8859-1 189 Ukranian.")) ; says ISO 8859-1
190 '("European")) 190 '("European"))
191 191
192 192
193 ;; Latin-8 (ISO-8859-14) 193 ;; Latin-8 (ISO-8859-14)
194 194
195 (make-coding-system 195 (make-coding-system
196 'iso-latin-8 2 ?W ; `W' for `Welsh', since `C' 196 'iso-latin-8 2 ?W ; `W' for `Welsh', since `C'
197 ; for `Celtic' is taken. 197 ; for `Celtic' is taken.
198 "ISO 2022 based 8-bit encoding for Latin-8 (MIME:ISO-8859-14)" 198 "ISO 2022 based 8-bit encoding for Latin-8 (MIME:ISO-8859-14)."
199 '(ascii latin-iso8859-14 nil nil 199 '(ascii latin-iso8859-14 nil nil
200 nil nil nil nil nil nil nil nil nil nil nil nil t) 200 nil nil nil nil nil nil nil nil nil nil nil nil t)
201 '((safe-charsets ascii latin-iso8859-14) 201 '((safe-charsets ascii latin-iso8859-14)
202 (mime-charset . iso-8859-14))) 202 (mime-charset . iso-8859-14)))
203 203
215 ;; Fixme: Welsh/Ga{e}lic greetings 215 ;; Fixme: Welsh/Ga{e}lic greetings
216 (sample-text . ",_"(B ,_p(B ,_^(B") 216 (sample-text . ",_"(B ,_p(B ,_^(B")
217 (documentation . "\ 217 (documentation . "\
218 This language environment is a generic one for the Latin-8 (ISO-8859-14) 218 This language environment is a generic one for the Latin-8 (ISO-8859-14)
219 character set which supports the Celtic languages, including those not 219 character set which supports the Celtic languages, including those not
220 covered by other ISO-8859 character sets: Welsh, Manx Gaelic and 220 covered by other ISO-8859 character sets:
221 Irish Gaelic (old orthography).")) 221 Welsh, Manx Gaelic and Irish Gaelic (old orthography)."))
222 '("European")) 222 '("European"))
223 223
224 ;; Latin-9 (ISO-8859-15) 224 ;; Latin-9 (ISO-8859-15)
225 225
226 (make-coding-system 226 (make-coding-system
227 'iso-latin-9 2 ?0 ; `0' for `Latin-0' 227 'iso-latin-9 2 ?0 ; `0' for `Latin-0'
228 "ISO 2022 based 8-bit encoding for Latin-9 (MIME:ISO-8859-15)" 228 "ISO 2022 based 8-bit encoding for Latin-9 (MIME:ISO-8859-15)."
229 '(ascii latin-iso8859-15 nil nil 229 '(ascii latin-iso8859-15 nil nil
230 nil nil nil nil nil nil nil nil nil nil nil nil t) 230 nil nil nil nil nil nil nil nil nil nil nil nil t)
231 '((safe-charsets ascii latin-iso8859-15) 231 '((safe-charsets ascii latin-iso8859-15)
232 (mime-charset . iso-8859-15))) 232 (mime-charset . iso-8859-15)))
233 233
264 (sample-text . "\ 264 (sample-text . "\
265 German (Deutsch Nord) Guten Tag 265 German (Deutsch Nord) Guten Tag
266 German (Deutsch S,A|(Bd) Gr,A|_(B Gott") 266 German (Deutsch S,A|(Bd) Gr,A|_(B Gott")
267 (documentation . "\ 267 (documentation . "\
268 This language environment is almost the same as Latin-1, 268 This language environment is almost the same as Latin-1,
269 but the default input method is set to \"german-postfix\".")) 269 but the default input method is set to \"german-postfix\".
270 Additionally, the tutorial is set to \"TUTORIAL.de\"."))
270 '("European")) 271 '("European"))
271 272
272 (set-language-info-alist 273 (set-language-info-alist
273 "French" '((tutorial . "TUTORIAL.fr") 274 "French" '((tutorial . "TUTORIAL.fr")
274 (charset ascii latin-iso8859-1) 275 (charset ascii latin-iso8859-1)
322 (unibyte-syntax . "latin-1") 323 (unibyte-syntax . "latin-1")
323 (unibyte-display . iso-latin-1) 324 (unibyte-display . iso-latin-1)
324 (sample-text . "Er is een aantal manieren waarop je dit kan doen") 325 (sample-text . "Er is een aantal manieren waarop je dit kan doen")
325 (documentation . "\ 326 (documentation . "\
326 This language environment is almost the same as Latin-1, 327 This language environment is almost the same as Latin-1,
327 but select's the Dutch tutorial.")) 328 but the Dutch tutorial is selected."))
328 '("European")) 329 '("European"))
329 330
330 ;; For Turkish, the character set ISO-8859-9 (Latin-5) is used. But, 331 ;; For Turkish, the character set ISO-8859-9 (Latin-5) is used. But,
331 ;; before the introduction of ISO-8859-9 in 1988, ISO-8859-3 (Latin-3) 332 ;; before the introduction of ISO-8859-9 in 1988, ISO-8859-3 (Latin-3)
332 ;; was used for Turkish. Those who use Latin-3 for Turkish should use 333 ;; was used for Turkish. Those who use Latin-3 for Turkish should use
566 (translate-character mac-roman-encoder r0 r1) 567 (translate-character mac-roman-encoder r0 r1)
567 (write-repeat r1)))) 568 (write-repeat r1))))
568 "CCL program to encode Mac Roman") 569 "CCL program to encode Mac Roman")
569 570
570 (make-coding-system 571 (make-coding-system
571 'mac-roman 4 ?M "Mac Roman Encoding" 572 'mac-roman 4 ?M
573 "Mac Roman Encoding (MIME:MACINTOSH)."
572 '(decode-mac-roman . encode-mac-roman) 574 '(decode-mac-roman . encode-mac-roman)
573 '((safe-chars . mac-roman-encoder) 575 '((safe-chars . mac-roman-encoder)
574 (valid-codes (0 . 255)) 576 (valid-codes (0 . 255))
575 (mime-charset . macintosh))) ; per IANA, rfc1345 577 (mime-charset . macintosh))) ; per IANA, rfc1345
576 578