;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:47:06 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/language/european.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file contains multibyte non-ASCII characters ;;; and therefore cannot be loaded into Emacs 19. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "20"))) (error "`european.el' was compiled for Emacs 20 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\306\307\310\311\312\313\314&\210\315\316\307\"\210\315\317\307\"\210\320\321\322\323#\210\306\324\310\325\326\327\330&\210\315\331\324\"\210\315\332\324\"\210\320\333\334\335#\210\306\336\310\337\340\341\342&\210\315\343\336\"\210\315\344\336\"\210\320\345\346\347#\210\306\350\310\351\352\353\354&\210\315\355\350\"\210\315\356\350\"\210\320\357\360\361#\210\306\362\310\363\364\365\366&\210\315\367\362\"\210\315\370\362\"\210\320\371\372\373#\210\306\374\310\375\376\377\201B&\210\315\201C\374\"\210\315\201D\374\"\210\320\201E\201F\201G#\210\306\201H\310\201I\201J\201K\201L&\210\315\201M\201H\"\210\315\201N\201H\"\210\315\201O\201H\"\210\320\201P\201Q\201R#\210\320\201S\201T\201U#\210\320\201V\201W\201X#\210\320\201Y\201Z\201[#\210\320\201\\\201]\201^#\210\320\201_\201`\201a#\210\320\201b\201c\201d#\210\320\201e\201f\"\210\320\201g\201h\201i#\210\201j\201k\201l\"\201m\201n\201l\n\201oW\203k \n\211I\210\nT\211\202X\n\201kW\203\214 \n\201p\201q \n\201oZH\"I\210\nT\211\202l\201r !\201s\201t\"\210\201s\201u\201v\201m\"\"\210,\201w\201@ B\201x\201@\201y\201z#\210\f@\201x\201@\201{\201|\201@\f\"#\210)\201}\201A B\201x\201A\201y\201~#\210\fA\201x\201A\201{\201|\201A\f\"#\210)\306\201\201\200\201\201\201\202\201\203\201\204\201u\300NB\201\205\201\206E&\210\201\207\201\210!\207" [translation-table vec i encoding-vector prog current-load-list make-coding-system iso-latin-1 2 49 "ISO 2022 based 8-bit encoding for Latin-1 (MIME:ISO-8859-1)" (ascii latin-iso8859-1 nil nil nil nil nil nil nil nil nil nil nil nil nil nil t) ((safe-charsets ascii latin-iso8859-1) (mime-charset . iso-8859-1)) define-coding-system-alias iso-8859-1 latin-1 set-language-info-alist "Latin-1" ((charset ascii latin-iso8859-1) (coding-system iso-latin-1) (coding-priority iso-latin-1) (nonascii-translation . latin-iso8859-1) (unibyte-syntax . "latin-1") (unibyte-display . iso-latin-1) (input-method . "latin-1-prefix") (sample-text . "Hello, Hej, Tere, Hei, Bonjour, Grüß Gott, Ciao, ¡Hola!") (documentation . "This language environment is a generic one for the Latin-1 (ISO-8859-1)\ncharacter set which supports the following European languages:\n Albanian, Basque, Breton, Catalan, Danish, Dutch, English, Faeroese,\n Finnish, French (with restrictions -- see Latin-9), Frisian, Galician,\n German, Greenlandic, Icelandic, Irish Gaelic (new orthography),\n Italian, Latin, Luxemburgish, Norwegian, Portuguese, Rhaeto-Romanic,\n Scottish Gaelic, Spanish, and Swedish.\nWe also have specific language environments for the following languages:\n For Dutch, \"Dutch\".\n For German, \"German\".\n For French, \"French\".\n For Italian, \"Italian\".\n For Slovenian, \"Slovenian\".\n For Spanish, \"Spanish\".\n\nLatin-1 also covers several written languages outside Europe, including\nIndonesian/Malay, Tagalog (Philippines), Swahili and Afrikaans.")) ("European") iso-latin-2 50 "ISO 2022 based 8-bit encoding (MIME:ISO-8859-2)" (ascii latin-iso8859-2 nil nil nil nil nil nil nil nil nil) ((safe-charsets ascii latin-iso8859-2) (mime-charset . iso-8859-2)) iso-8859-2 latin-2 "Latin-2" ((charset ascii latin-iso8859-2) (coding-system iso-latin-2) (coding-priority iso-latin-2) (nonascii-translation . latin-iso8859-2) (unibyte-syntax . "latin-2") (unibyte-display . iso-latin-2) (input-method . "latin-2-prefix") (documentation . "This language environment is a generic one for the Latin-2 (ISO-8859-2)\ncharacter set which supports the following languages:\n Albanian, Czech, English, German, Hungarian, Polish, Romanian,\n Serbo-Croatian or Croatian, Slovak, Slovene, Sorbian (upper and lower),\n and Swedish.\nWe also have specific language environments for the following languages:\n For Czech, \"Czech\".\n For Romanian, \"Romanian\".\n For Slovak, \"Slovak\".")) ("European") iso-latin-3 51 "ISO 2022 based 8-bit encoding (MIME:ISO-8859-3)" (ascii latin-iso8859-3 nil nil nil nil nil nil nil nil nil) ((safe-charsets ascii latin-iso8859-3) (mime-charset . iso-8859-3)) iso-8859-3 latin-3 "Latin-3" ((charset ascii latin-iso8859-3) (coding-system iso-latin-3) (coding-priority iso-latin-3) (nonascii-translation . latin-iso8859-3) (unibyte-syntax . "latin-3") (unibyte-display . iso-latin-3) (input-method . "latin-3-prefix") (documentation . "These languages are supported with the Latin-3 (ISO-8859-3) character set:\n Afrikaans, Catalan, Dutch, English, Esperanto, French, Galician,\n German, Italian, Maltese, Spanish, and Turkish.")) ("European") iso-latin-4 52 "ISO 2022 based 8-bit encoding (MIME:ISO-8859-4)" (ascii latin-iso8859-4 nil nil nil nil nil nil nil nil nil) ((safe-charsets ascii latin-iso8859-4) (mime-charset . iso-8859-4)) iso-8859-4 latin-4 "Latin-4" ((charset ascii latin-iso8859-4) (coding-system iso-8859-4) (coding-priority iso-8859-4) (nonascii-translation . latin-iso8859-4) (unibyte-syntax . "latin-4") (unibyte-display . iso-8859-4) (input-method . "latin-4-postfix") (documentation . "These languages are supported with the Latin-4 (ISO-8859-4) character set:\n Danish, English, Estonian, Finnish, German, Greenlandic, Lappish,\n Latvian, Lithuanian, and Norwegian.")) ("European") iso-latin-5 57 "ISO 2022 based 8-bit encoding (MIME:ISO-8859-9)" (ascii latin-iso8859-9 nil nil nil nil nil nil nil nil nil) ((safe-charsets ascii latin-iso8859-9) (mime-charset . iso-8859-9)) iso-8859-9 latin-5 "Latin-5" ((charset ascii latin-iso8859-9) (coding-system iso-latin-5) (coding-priority iso-latin-5) (nonascii-translation . latin-iso8859-9) (unibyte-syntax . "latin-5") (unibyte-display . iso-latin-5) (input-method . "latin-5-postfix") (documentation . "These languages are supported with the Latin-5 (ISO-8859-9) character set:\nBulgarian, Byelorussian, (Slavic) Macedonian, Russian, Serbian and\nUkranian.")) ("European") iso-latin-8 87 "ISO 2022 based 8-bit encoding for Latin-8 (MIME:ISO-8859-14)" (ascii latin-iso8859-14 nil nil nil nil nil nil nil nil nil nil nil nil nil nil t) decode-mac-roman encode-mac-roman ((safe-charsets ascii latin-iso8859-14) (mime-charset . iso-8859-14)) iso-8859-14 latin-8 "Latin-8" ((charset ascii latin-iso8859-14) (coding-system iso-latin-8) (coding-priority iso-latin-8) (nonascii-translation . latin-iso8859-14) (unibyte-syntax . "latin-8") (unibyte-display . iso-latin-8) (input-method . "latin-8-prefix") (sample-text . "¢ ð Þ") (documentation . "This language environment is a generic one for the Latin-8 (ISO-8859-14)\ncharacter set which supports the Celtic languages, including those not\ncovered by other ISO-8859 character sets: Welsh, Manx Gaelic and\nIrish Gaelic (old orthography).")) ("European") iso-latin-9 48 "ISO 2022 based 8-bit encoding for Latin-9 (MIME:ISO-8859-15)" (ascii latin-iso8859-15 nil nil nil nil nil nil nil nil nil nil nil nil nil nil t) ((safe-charsets ascii latin-iso8859-15) (mime-charset . iso-8859-15)) iso-8859-15 latin-9 latin-0 "Latin-9" ((charset ascii latin-iso8859-15) (coding-system iso-latin-9) (coding-priority iso-latin-9) (nonascii-translation . latin-iso8859-15) (unibyte-syntax . "latin-9") (unibyte-display . iso-latin-9) (input-method . "latin-9-prefix") (sample-text . "AVE. Ž¦Ž¨Ž´Ž¸Ž¼Ž½Ž¾ Ž¤") (documentation . "This language environment is a generic one for the Latin-9 (ISO-8859-15)\ncharacter set which supports the same languages as Latin-1 with the\naddition of the Euro sign and some additional French and Finnish letters.\nLatin-9 is sometimes nicknamed `Latin-0'.")) ("European") "Dutch" ((tutorial . "TUTORIAL.nl") (charset ascii latin-iso8859-1) (coding-system iso-latin-1) (coding-priority iso-latin-1) (nonascii-translation . iso-latin-1) (unibyte-syntax . "latin-1") (unibyte-display . iso-latin-1) (sample-text . "Er is een aantal manieren waarop je dit kan doen") (documentation . "This language environment is almost the same as Latin-1,\nbut it selects the Dutch tutorial and input method.")) ("European") "German" ((tutorial . "TUTORIAL.de") (charset ascii latin-iso8859-1) (coding-system iso-latin-1) (coding-priority iso-latin-1) (input-method . "german-postfix") (nonascii-translation . iso-latin-1) (unibyte-syntax . "latin-1") (unibyte-display . iso-latin-1) (sample-text . "German (Deutsch Nord) Guten Tag\nGerman (Deutsch Süd) Grüß Gott") (documentation . "This language environment is almost the same as Latin-1,\nbut default input method is set to \"german-postfix\".\nAdditionally, it selects the German tutorial.")) ("European") "French" ((tutorial . "TUTORIAL.fr") (charset ascii latin-iso8859-1) (coding-system iso-latin-1) (coding-priority iso-latin-1) (nonascii-translation . latin-iso8859-1) (unibyte-syntax . "latin-1") (unibyte-display . iso-latin-1) (input-method . "latin-1-prefix") (sample-text . "French (Français) Bonjour, Salut") (documentation . "This language environment is almost the same as Latin-1,\nbut it selects the French tutorial and input method.")) ("European") "Italian" ((tutorial . "TUTORIAL.it") (charset ascii latin-iso8859-1) (coding-system iso-latin-1) (coding-priority iso-latin-1) (nonascii-translation . latin-iso8859-1) (unibyte-syntax . "latin-1") (unibyte-display . iso-latin-1) (input-method . "italian-postfix") (sample-text . "Salve, ciao!") (documentation . "This language environment is almost the same as Latin-1,\nbut sets the default input method to \"italian-postfix\".\nAdditionally, it selects the Italian tutorial.")) ("European") "Slovenian" ((charset ascii latin-iso8859-2) (coding-system iso-8859-2) (coding-priority iso-8859-2) (nonascii-translation . latin-iso8859-2) (input-method . "latin-2-postfix") (unibyte-syntax . "latin-2") (unibyte-display . iso-8859-2) (tutorial . "TUTORIAL.sl") (sample-text . "‚®elimo vam uspe‚¹en dan!") (documentation . "This language environment is almost the same as Latin-2,\nbut it selects the Slovenian tutorial and input method.")) ("European") "Spanish" ((tutorial . "TUTORIAL.es") (charset ascii latin-iso8859-1) (coding-system iso-latin-1) (coding-priority iso-latin-1) (input-method . "spanish-postfix") (nonascii-translation . iso-latin-1) (unibyte-syntax . "latin-1") (unibyte-display . iso-latin-1) (sample-text . "Spanish (Español) ¡Hola!") (documentation . "This language environment is almost the same as Latin-1,\nbut it sets the default input method to \"spanish-postfix\",\nand selects the Spanish tutorial.")) ("European") "Turkish" ((charset ascii latin-iso8859-9) (coding-system iso-latin-5) (coding-priority iso-latin-5) (nonascii-translation . latin-iso8859-9) (unibyte-syntax . "latin-5") (unibyte-display . iso-latin-5) (input-method . "turkish-postfix") (sample-text . "Turkish (Türkçe) Merhaba") (documentation . t)) "Polish" ((charset ascii latin-iso8859-2) (coding-system iso-8859-2) (coding-priority iso-8859-2) (input-method . "polish-slash") (nonascii-translation . latin-iso8859-2) (unibyte-syntax . "latin-2") (unibyte-display . iso-8859-2) (tutorial . "TUTORIAL.pl") (sample-text . "P‚ójd‚¼, ki‚ñ-‚¿e t‚ê chmurno‚¶‚æ w g‚³‚±b flaszy") (documentation . t)) ("European") make-vector 256 nil 0 [196 197 199 201 209 214 220 225 224 226 228 227 229 231 233 232 234 235 237 236 238 239 241 243 242 244 246 245 250 249 251 252 8224 176 162 163 167 8226 182 223 174 169 8482 180 168 8800 198 216 8734 177 8804 8805 165 181 8706 8721 8719 960 8747 170 186 937 230 248 191 161 172 8730 402 8776 8710 171 187 8230 160 192 195 213 338 339 8211 8212 8220 8221 8216 8217 247 9674 255 376 8260 8364 8249 8250 64257 64258 8225 183 8218 8222 8240 194 202 193 203 200 205 206 207 204 211 212 63743 210 218 219 217 305 710 732 175 728 729 730 184 733 731 711] 128 decode-char ucs make-translation-table-from-vector define-translation-table mac-roman-decoder mac-roman-encoder char-table-extra-slot [4 18 46 1083 16 128 1 1540 1083 16 160 40449 260 32769 49215 (mac-roman-decoder . translation-table-id) 16447 -4092 22] put variable-documentation "CCL program to decode Mac Roman" ccl-program-idx register-ccl-program [1 16 63 49215 (mac-roman-encoder . translation-table-id) 2331 21 0 1563 21 128 795 21 158 16161 -3546 22] "CCL program to encode Mac Roman" mac-roman 4 77 "Mac Roman Encoding" (decode-mac-roman . encode-mac-roman) safe-chars (valid-codes (0 . 255)) (mime-charset . macintosh) provide european] 10)