428
+ − 1 ;;; european.el --- European languages -*- coding: iso-2022-7bit; -*-
+ − 2
+ − 3 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
+ − 4 ;; Licensed to the Free Software Foundation.
+ − 5 ;; Copyright (C) 1997 MORIOKA Tomohiko
771
+ − 6 ;; Copyright (C) 2001 Ben Wing.
728
+ − 7 ;; Copyright (C) 2002 Free Software Foundation
428
+ − 8
+ − 9 ;; Keywords: multilingual, European
+ − 10
+ − 11 ;; This file is part of XEmacs.
+ − 12
+ − 13 ;; XEmacs is free software; you can redistribute it and/or modify it
+ − 14 ;; under the terms of the GNU General Public License as published by
+ − 15 ;; the Free Software Foundation; either version 2, or (at your option)
+ − 16 ;; any later version.
+ − 17
+ − 18 ;; XEmacs is distributed in the hope that it will be useful, but
+ − 19 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
+ − 20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ − 21 ;; General Public License for more details.
+ − 22
+ − 23 ;; You should have received a copy of the GNU General Public License
+ − 24 ;; along with XEmacs; see the file COPYING. If not, write to the Free
+ − 25 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
+ − 26 ;; 02111-1307, USA.
+ − 27
+ − 28 ;;; Commentary:
+ − 29
728
+ − 30 ;; Support six Latin coded character sets ISO8859-1,2,3,4,9,15.
428
+ − 31
440
+ − 32 ;; #### latin.el would be a better name for this file.
+ − 33
428
+ − 34 ;;; Code:
778
+ − 35 ; (make-charset 'latin-iso8859-1
+ − 36 ; "Right-Hand Part of Latin Alphabet 1 (ISO/IEC 8859-1): ISO-IR-100"
+ − 37 ; '(dimension
+ − 38 ; 1
+ − 39 ; registry "ISO8859-1"
+ − 40 ; chars 96
+ − 41 ; columns 1
+ − 42 ; direction l2r
+ − 43 ; final ?A
+ − 44 ; graphic 1
+ − 45 ; short-name "RHP of Latin-1"
+ − 46 ; long-name "RHP of Latin-1 (ISO 8859-1): ISO-IR-100"
+ − 47 ; ))
+ − 48
+ − 49 ; (make-charset 'latin-iso8859-2
+ − 50 ; "Right-Hand Part of Latin Alphabet 2 (ISO/IEC 8859-2): ISO-IR-101"
+ − 51 ; '(dimension
+ − 52 ; 1
+ − 53 ; registry "ISO8859-2"
+ − 54 ; chars 96
+ − 55 ; columns 1
+ − 56 ; direction l2r
+ − 57 ; final ?B
+ − 58 ; graphic 1
+ − 59 ; short-name "RHP of Latin-2"
+ − 60 ; long-name "RHP of Latin-2 (ISO 8859-2): ISO-IR-101"
+ − 61 ; ))
+ − 62
+ − 63 ; (make-charset 'latin-iso8859-3
+ − 64 ; "Right-Hand Part of Latin Alphabet 3 (ISO/IEC 8859-3): ISO-IR-109"
+ − 65 ; '(dimension
+ − 66 ; 1
+ − 67 ; registry "ISO8859-3"
+ − 68 ; chars 96
+ − 69 ; columns 1
+ − 70 ; direction l2r
+ − 71 ; final ?C
+ − 72 ; graphic 1
+ − 73 ; short-name "RHP of Latin-3"
+ − 74 ; long-name "RHP of Latin-3 (ISO 8859-3): ISO-IR-109"
+ − 75 ; ))
+ − 76
+ − 77 ; (make-charset 'latin-iso8859-4
+ − 78 ; "Right-Hand Part of Latin Alphabet 4 (ISO/IEC 8859-4): ISO-IR-110"
+ − 79 ; '(dimension
+ − 80 ; 1
+ − 81 ; registry "ISO8859-4"
+ − 82 ; chars 96
+ − 83 ; columns 1
+ − 84 ; direction l2r
+ − 85 ; final ?D
+ − 86 ; graphic 1
+ − 87 ; short-name "RHP of Latin-4"
+ − 88 ; long-name "RHP of Latin-4 (ISO 8859-4): ISO-IR-110"
+ − 89 ; ))
+ − 90
+ − 91 ; (make-charset 'latin-iso8859-9
+ − 92 ; "Right-Hand Part of Latin Alphabet 5 (ISO/IEC 8859-9): ISO-IR-148"
+ − 93 ; '(dimension
+ − 94 ; 1
+ − 95 ; registry "ISO8859-9"
+ − 96 ; chars 96
+ − 97 ; columns 1
+ − 98 ; direction l2r
+ − 99 ; final ?M
+ − 100 ; graphic 1
+ − 101 ; short-name "RHP of Latin-5"
+ − 102 ; long-name "RHP of Latin-5 (ISO 8859-9): ISO-IR-148"
+ − 103 ; ))
+ − 104
+ − 105 ; (make-charset 'latin-iso8859-15
+ − 106 ; "Right-Hand Part of Latin Alphabet 9 (ISO/IEC 8859-15): ISO-IR-203"
+ − 107 ; '(dimension
+ − 108 ; 1
+ − 109 ; registry "ISO8859-15"
+ − 110 ; chars 96
+ − 111 ; columns 1
+ − 112 ; direction l2r
+ − 113 ; final ?b
+ − 114 ; graphic 1
+ − 115 ; short-name "RHP of Latin-9"
+ − 116 ; long-name "RHP of Latin-9 (ISO 8859-15): ISO-IR-203"
+ − 117 ; ))
+ − 118
+ − 119 (make-charset 'latin-iso8859-14
+ − 120 "Right-Hand Part of Latin Alphabet 8 (ISO/IEC 8859-14)"
+ − 121 '(dimension
+ − 122 1
+ − 123 registry "ISO8859-14"
+ − 124 chars 96
+ − 125 columns 1
+ − 126 direction l2r
+ − 127 final ?_
+ − 128 graphic 1
+ − 129 short-name "RHP of Latin-8"
+ − 130 long-name "RHP of Latin-8 (ISO 8859-14)"
+ − 131 ))
+ − 132
428
+ − 133
+ − 134 ;; For syntax of Latin-1 characters.
+ − 135 (loop for c from 64 to 127 ; from ',A@(B' to ',A(B'
+ − 136 do (modify-syntax-entry (make-char 'latin-iso8859-1 c) "w"))
+ − 137
+ − 138 (modify-syntax-entry (make-char 'latin-iso8859-1 32) "w") ; no-break space
+ − 139 (modify-syntax-entry ?,AW(B "_")
+ − 140 (modify-syntax-entry ?,Aw(B "_")
+ − 141
728
+ − 142 ;; For syntax of Latin-9 characters.
+ − 143 ;; Based on Latin-1 and differences from Jukka Korpela
+ − 144 ;; http://www.cs.tut.fi/~jkorpela/latin9.html
+ − 145 (loop for c in '(?,b&(B ?,b((B ?,b4(B ?,b8(B ?,b<(B ?,b=(B ?,b>(B)
+ − 146 do (modify-syntax-entry c "w"))
+ − 147
+ − 148 (loop for c from 64 to 127 ; from ',b@(B' to ',b(B'
+ − 149 do (modify-syntax-entry (make-char 'latin-iso8859-1 c) "w"))
+ − 150
+ − 151 (modify-syntax-entry (make-char 'latin-iso8859-15 32) "w") ; no-break space
+ − 152 (modify-syntax-entry ?,bW(B "_")
+ − 153 (modify-syntax-entry ?,bw(B "_")
+ − 154
428
+ − 155 ;; For syntax of Latin-2
+ − 156 (loop for c in '(?,B!(B ?,B#(B ?,B%(B ?,B&(B ?,B)(B ?,B*(B ?,B+(B ?,B,(B ?,B.(B ?,B/(B ?,B1(B ?,B3(B ?,B5(B ?,B6(B ?,B9(B ?,B:(B ?,B;(B ?,B<(B)
+ − 157 do (modify-syntax-entry c "w"))
+ − 158
+ − 159 (loop for c from 62 to 126
+ − 160 do (modify-syntax-entry (make-char 'latin-iso8859-2 c) "w"))
+ − 161
+ − 162 (modify-syntax-entry (make-char 'latin-iso8859-2 32) "w") ; no-break space
+ − 163 (modify-syntax-entry ?,BW(B ".")
+ − 164 (modify-syntax-entry ?,Bw(B ".")
+ − 165
440
+ − 166 ;; For syntax of Latin-3
+ − 167 (loop for c in '(?,C!(B ?,C&(B ?,C)(B ?,C*(B ?,C+(B ?,C,(B ?,C/(B ?,C1(B ?,C5(B ?,C6(B ?,C:(B ?,C;(B ?,C<(B ?,C?(B)
+ − 168 do (modify-syntax-entry c "w"))
+ − 169
+ − 170 (loop for c from 64 to 126
+ − 171 do (modify-syntax-entry (make-char 'latin-iso8859-3 c) "w"))
+ − 172
+ − 173 (modify-syntax-entry (make-char 'latin-iso8859-3 32) "w") ; no-break space
+ − 174 (modify-syntax-entry ?,CW(B ".")
+ − 175 (modify-syntax-entry ?,Cw(B ".")
+ − 176
+ − 177 ;; For syntax of Latin-4
+ − 178 (loop for c in '(?,D!(B ?,D"(B ?,D#(B ?,D%(B ?,D&(B ?,D)(B ?,D*(B ?,D+(B ?,D,(B ?,D.(B ?,D1(B ?,D3(B ?,D5(B ?,D6(B ?,D9(B ?,D:(B ?,D;(B ?,D<(B ?,D=(B ?,D>(B ?,D?(B)
+ − 179 do (modify-syntax-entry c "w"))
+ − 180
+ − 181 (loop for c from 64 to 126
+ − 182 do (modify-syntax-entry (make-char 'latin-iso8859-4 c) "w"))
+ − 183
+ − 184 (modify-syntax-entry (make-char 'latin-iso8859-4 32) "w") ; no-break space
+ − 185 (modify-syntax-entry ?,DW(B ".")
+ − 186 (modify-syntax-entry ?,Dw(B ".")
+ − 187
+ − 188
428
+ − 189 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+ − 190 ;;; EUROPEANS
+ − 191 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+ − 192
+ − 193
+ − 194 ;; Latin-1 (ISO-8859-1)
+ − 195
+ − 196 ;; (make-coding-system
+ − 197 ;; 'iso-latin-1 2 ?1
+ − 198 ;; "ISO 2022 based 8-bit encoding for Latin-1 (MIME:ISO-8859-1)"
+ − 199 ;; '(ascii latin-iso8859-1 nil nil
+ − 200 ;; nil nil nil nil nil nil nil nil nil nil nil nil t)
+ − 201 ;; '((safe-charsets ascii latin-iso8859-1)
+ − 202 ;; (mime-charset . iso-8859-1)))
+ − 203
+ − 204 ;; (define-coding-system-alias 'iso-8859-1 'iso-latin-1)
+ − 205 ;; (define-coding-system-alias 'latin-1 'iso-latin-1)
+ − 206
+ − 207 ;; (make-coding-system
+ − 208 ;; 'compound-text 2 ?1
+ − 209 ;; "ISO 2022 based encoding used in inter client communication of X"
+ − 210 ;; '((ascii t) (latin-iso8859-1 t) nil nil
+ − 211 ;; nil ascii-eol ascii-cntl nil nil nil nil nil nil nil nil nil t)
+ − 212 ;; '((safe-charsets . t)))
+ − 213
+ − 214 ;; (define-coding-system-alias 'ctext 'compound-text)
+ − 215
771
+ − 216 ;; "Hello, Hej, Tere, Hei, Bonjour, Gr,A|_(B Gott, Ciao, ,A!(BHola!"
428
+ − 217
+ − 218
728
+ − 219 ;; Latin-9 (ISO-8859-15)
+ − 220 ;; Latin-1 plus Euro, plus a few accented characters
+ − 221
+ − 222 ;; (make-charset 'latin-iso8859-15
+ − 223 ;; "Latin-9, aka Latin-1 with Euro etc"
+ − 224 ;; '(short-name "Latin 9"
+ − 225 ;; long-name "Latin-9 (typically GR of ISO 8859/15)"
+ − 226 ;; registry "iso8859-15"
+ − 227 ;; dimension 1
+ − 228 ;; columns 1
+ − 229 ;; chars 96
+ − 230 ;; final ?b ; ISO-IR-203
+ − 231 ;; graphic 1
+ − 232 ;; direction l2r))
+ − 233
+ − 234 (make-coding-system
+ − 235 'iso-8859-15 'iso2022
+ − 236 "ISO 4873 conforming 8-bit code (ASCII + Latin 9; aka Latin-1 with Euro)"
+ − 237 `(mnemonic "MIME/Ltn-9" ; bletch
+ − 238 eol-type nil
+ − 239 charset-g0 ascii
+ − 240 charset-g1 latin-iso8859-15
+ − 241 charset-g2 t
+ − 242 charset-g3 t
+ − 243 ))
+ − 244
+ − 245
428
+ − 246 ;; Latin-2 (ISO-8859-2)
+ − 247
+ − 248 ;; (make-coding-system
+ − 249 ;; 'iso-latin-2 2 ?2
+ − 250 ;; "ISO 2022 based 8-bit encoding (MIME:ISO-8859-2)"
+ − 251 ;; '(ascii latin-iso8859-2 nil nil
+ − 252 ;; nil nil nil nil nil nil nil)
+ − 253 ;; '((safe-charsets ascii latin-iso8859-2)
+ − 254 ;; (mime-charset . iso-8859-2)))
+ − 255
+ − 256 ;; (define-coding-system-alias 'iso-8859-2 'iso-latin-2)
+ − 257 ;; (define-coding-system-alias 'latin-2 'iso-latin-2)
+ − 258
+ − 259 (make-coding-system
771
+ − 260 'iso-8859-2 'iso2022 "ISO-8859-2 (Latin-2)"
428
+ − 261 '(charset-g0 ascii
+ − 262 charset-g1 latin-iso8859-2
+ − 263 charset-g2 t
+ − 264 charset-g3 t
+ − 265 mnemonic "MIME/Ltn-2"
+ − 266 ))
+ − 267
+ − 268 (provide 'romanian)
+ − 269
+ − 270 ;; Czech support originally from czech.el
778
+ − 271 ;; Author: Milan Zamazal <pdm@zamazal.org>
+ − 272 ;; Maintainer (FSF): Pavel Jan,Am(Bk <Pavel@Janik.cz>
+ − 273 ;; Maintainer (for XEmacs): David Sauer <davids@penguin.cz>
428
+ − 274
771
+ − 275 (provide 'czech)
428
+ − 276
771
+ − 277 ;; Slovak support originally from slovak.el
+ − 278 ;; Authors: Tibor ,B)(Bimko <tibor.simko@fmph.uniba.sk>,
+ − 279 ;; Milan Zamazal <pdm@fi.muni.cz>
+ − 280 ;; Maintainer: Milan Zamazal <pdm@fi.muni.cz>
428
+ − 281
771
+ − 282 (provide 'slovenian)
428
+ − 283
+ − 284
+ − 285 ;; Latin-3 (ISO-8859-3)
+ − 286
+ − 287 ;; (make-coding-system
+ − 288 ;; 'iso-latin-3 2 ?3
+ − 289 ;; "ISO 2022 based 8-bit encoding (MIME:ISO-8859-3)"
+ − 290 ;; '(ascii latin-iso8859-3 nil nil
+ − 291 ;; nil nil nil nil nil nil nil)
+ − 292 ;; '((safe-charsets ascii latin-iso8859-3)
+ − 293 ;; (mime-charset . iso-8859-3)))
+ − 294
+ − 295 ;; (define-coding-system-alias 'iso-8859-3 'iso-latin-3)
+ − 296 ;; (define-coding-system-alias 'latin-3 'iso-latin-3)
+ − 297
+ − 298 (make-coding-system
771
+ − 299 'iso-8859-3 'iso2022 "ISO-8859-3 (Latin-3)"
428
+ − 300 '(charset-g0 ascii
+ − 301 charset-g1 latin-iso8859-3
+ − 302 charset-g2 t
+ − 303 charset-g3 t
+ − 304 mnemonic "MIME/Ltn-3"
+ − 305 ))
+ − 306
+ − 307
+ − 308 ;; Latin-4 (ISO-8859-4)
+ − 309
+ − 310 ;; (make-coding-system
+ − 311 ;; 'iso-latin-4 2 ?4
+ − 312 ;; "ISO 2022 based 8-bit encoding (MIME:ISO-8859-4)"
+ − 313 ;; '(ascii latin-iso8859-4 nil nil
+ − 314 ;; nil nil nil nil nil nil nil)
+ − 315 ;; '((safe-charsets ascii latin-iso8859-4)
+ − 316 ;; (mime-charset . iso-8895-4)))
+ − 317
+ − 318 ;; (define-coding-system-alias 'iso-8859-4 'iso-latin-4)
+ − 319 ;; (define-coding-system-alias 'latin-4 'iso-latin-4)
+ − 320
+ − 321 (make-coding-system
771
+ − 322 'iso-8859-4 'iso2022 "ISO-8859-4 (Latin-4)"
428
+ − 323 '(charset-g0 ascii
+ − 324 charset-g1 latin-iso8859-4
+ − 325 charset-g2 t
+ − 326 charset-g3 t
+ − 327 mnemonic "MIME/Ltn-4"
+ − 328 ))
+ − 329
+ − 330
+ − 331 ;; Latin-5 (ISO-8859-9)
+ − 332
+ − 333 ;; (make-coding-system
+ − 334 ;; 'iso-latin-5 2 ?9
+ − 335 ;; "ISO 2022 based 8-bit encoding (MIME:ISO-8859-9)"
+ − 336 ;; '(ascii latin-iso8859-9 nil nil
+ − 337 ;; nil nil nil nil nil nil nil)
+ − 338 ;; '((safe-charsets ascii latin-iso8859-9)
+ − 339 ;; (mime-charset . iso-8859-9)))
+ − 340
+ − 341 ;; (define-coding-system-alias 'iso-8859-9 'iso-latin-5)
+ − 342 ;; (define-coding-system-alias 'latin-5 'iso-latin-5)
+ − 343
+ − 344 (make-coding-system
771
+ − 345 'iso-8859-9 'iso2022 "ISO-8859-9 (Latin-5)"
428
+ − 346 '(charset-g0 ascii
+ − 347 charset-g1 latin-iso8859-9
+ − 348 charset-g2 t
+ − 349 charset-g3 t
+ − 350 mnemonic "MIME/Ltn-5"
+ − 351 ))
+ − 352
771
+ − 353 (loop for ((charset codesys default-input nice-charset-1 nice-charset-2
+ − 354 supported-langs ;; a list if the doc string is replaced
+ − 355 ;; entirely
+ − 356 )
+ − 357 langenvs) in
+ − 358 '(
+ − 359 ((latin-iso8859-1 iso-8859-1 "latin-1-prefix" "Latin-1" "ISO-8859-1"
+ − 360 " Danish, Dutch, English, Faeroese, Finnish, French, German, Icelandic,
+ − 361 Irish, Italian, Norwegian, Portuguese, Spanish, and Swedish.")
+ − 362 (("Danish" "da")
+ − 363 ("Dutch" "nl" "TUTORIAL.nl")
+ − 364 ("Faeroese")
+ − 365 ("Finnish" "fi")
+ − 366 ("French" "fr" "TUTORIAL.fr" "Bonjour, ,Ag(Ba va?")
+ − 367 ("German" "de" "TUTORIAL.de" "\
428
+ − 368 German (Deutsch Nord) Guten Tag
771
+ − 369 German (Deutsch S,A|(Bd) Gr,A|_(B Gott"
+ − 370 "german-postfix")
+ − 371 ("Icelandic" "is")
+ − 372 ("Irish" "ga")
+ − 373 ("Italian" "it")
+ − 374 ("Norwegian" "no" "TUTORIAL.no")
+ − 375 ("Portuguese" "pt" nil "Bem-vindo! Tudo bem?")
+ − 376 ("Spanish" "es" "TUTORIAL.es" ",A!(BHola!")
+ − 377 ("Swedish" "sv")))
+ − 378 ((latin-iso8859-15 iso-8859-15 "latin-1-prefix" ;; #### FIXME
+ − 379 "Latin-9" "ISO-8859-15"
+ − 380 ("\
+ − 381 This language environment is a generic one for Latin-9 (ISO-8859-15)
+ − 382 character set which supports the Euro sign and the following languages
+ − 383 (they use the Latin-1 character set by default):
+ − 384 Danish, Dutch, English, Faeroese, Finnish, French, German, Icelandic,
+ − 385 Irish, Italian, Norwegian, Portuguese, Spanish, and Swedish.
+ − 386 Each also has its own specific language environment."))
+ − 387 ())
+ − 388 ((latin-iso8859-2 iso-8859-2 "latin-2-prefix" "Latin-2" "ISO-8859-2"
+ − 389 " Albanian, Czech, English, German, Hungarian, Polish, Romanian,
+ − 390 Serbian, Croatian, Slovak, Slovene, Sorbian (upper and lower),
+ − 391 and Swedish.")
+ − 392 (("Albanian" nil)
+ − 393 ("Croatian" ("hrvatski" "hr") "TUTORIAL.hr")
+ − 394 ("Czech" ("cs" "cz") "TUTORIAL.cs" "P,Bx(Bejeme v,Ba(Bm hezk,B}(B den!"
+ − 395 "latin-2-postfix")
+ − 396 ("Hungarian" ("hungarian" "hu"))
+ − 397 ("Polish" "po" "TUTORIAL.pl")
+ − 398 ("Romanian" "ro" "TUTORIAL.ro" "Bun,Bc(B ziua, bine a,B~(Bi venit!"
+ − 399 "latin-2-postfix")
+ − 400 ("Serbian" "sr")
+ − 401 ("Slovak" "sk" "TUTORIAL.sk" "Prajeme V,Ba(Bm pr,Bm(Bjemn,B}(B de,Br(B!"
+ − 402 ;; !!#### FSF "slovak"
+ − 403 "latin-2-postfix")
+ − 404 ("Slovenian" "sl" "TUTORIAL.sl" ",B.(Belimo vam uspe,B9(Ben dan!"
+ − 405 "latin-2-postfix")
+ − 406 ("Sorbian" nil)))
+ − 407 ((latin-iso8859-3 iso-8859-3 "latin-3-prefix" "Latin-3" "ISO-8859-3"
+ − 408 " Afrikaans, Catalan, Dutch, English, Esperanto, French, Galician,
+ − 409 German, Italian, Maltese, Spanish, and Turkish.")
+ − 410 (("Afrikaans" "af")
+ − 411 ("Catalan" ("catalan" "ca"))
+ − 412 ("Esperanto")
+ − 413 ("Galician")
+ − 414 ("Maltese")))
+ − 415 ((latin-iso8859-4 iso-8859-4 "latin-4-prefix" "Latin-4" "ISO-8859-4"
+ − 416 " Danish, English, Estonian, Finnish, German, Greenlandic, Lappish,
+ − 417 Latvian, Lithuanian, and Norwegian.")
+ − 418 (("Estonian" "et")
+ − 419 ("Greenlandic")
+ − 420 ("Lappish")
+ − 421 ("Latvian" "lv")
+ − 422 ("Lithuanian" "li")))
+ − 423 ((latin-iso8859-5 iso-8859-9 "latin-5-prefix" "Latin-5" "ISO-8859-9")
+ − 424 (("Turkish" "tr"))))
+ − 425 do
+ − 426 (set-language-info-alist
+ − 427 nice-charset-1
+ − 428 `((charset ascii ,charset)
+ − 429 (coding-system ,codesys)
+ − 430 (coding-priority ,codesys)
+ − 431 (documentation . ,(if (listp supported-langs) (car supported-langs)
+ − 432 (format "\
+ − 433 This language environment is a generic one for %s (%s)
+ − 434 character set which supports the following languages (not all of them may
+ − 435 use this character set by default):
+ − 436 %s
+ − 437 Each also has its own specific language environment."
+ − 438 nice-charset-1 nice-charset-2
+ − 439 supported-langs))))
+ − 440 '("European"))
+ − 441 (loop for (name locale tutorial sample-text input-method) in langenvs
+ − 442 do
+ − 443 (set-language-info-alist
+ − 444 name
+ − 445 `((charset ascii ,charset)
+ − 446 (coding-system ,codesys)
+ − 447 (coding-priority ,codesys)
+ − 448 ,@(if locale `((locale . ,locale)))
+ − 449 ,@(if tutorial `((tutorial . ,tutorial)))
+ − 450 ,@(if sample-text `((sample-text . ,sample-text)))
+ − 451 (input-method . ,(or input-method default-input))
+ − 452 (documentation . ,(format "\
+ − 453 This language environment supports %s using the Latin-1 (ISO-8859-1)
+ − 454 character set. Languages supported by Latin-1 are Danish, Dutch, English,
+ − 455 Faeroese, Finnish, French, German, Icelandic, Irish, Italian, Norwegian,
+ − 456 Portuguese, Spanish, and Swedish. The various language environments for
+ − 457 these languages are similar to the Latin-1 environment, but typically have
+ − 458 their own locale specified (for subprocesses and for selection of the
+ − 459 correct language environment at startup), and may have their own tutorials
+ − 460 and/or a different input method."
+ − 461 name)))
+ − 462 '("European"))
+ − 463 ))
428
+ − 464
+ − 465 ;;; european.el ends here
