annotate lisp/mule/latin.el @ 3767:6b2ef948e140

[xemacs-hg @ 2006-12-29 18:09:38 by aidan] etc/ChangeLog addition: 2006-12-21 Aidan Kehoe <kehoea@parhasard.net> * unicode/unicode-consortium/8859-7.TXT: Update the mapping to the 2003 version of ISO 8859-7. lisp/ChangeLog addition: 2006-12-21 Aidan Kehoe <kehoea@parhasard.net> * mule/cyrillic.el: * mule/cyrillic.el (iso-8859-5): * mule/cyrillic.el (cyrillic-koi8-r-encode-table): Add syntax, case support for Cyrillic; make some parentheses more Lispy. * mule/european.el: Content moved to latin.el, file deleted. * mule/general-late.el: If Unicode tables are to be loaded at dump time, do it here, not in loadup.el. * mule/greek.el: Add syntax, case support for Greek. * mule/latin.el: Move the content of european.el here. Change the case table mappings to use hexadecimal codes, to make cross reference to the standards easier. In all cases, take character syntax from similar characters in Latin-1 , rather than deciding separately what syntax they should take. Add (incomplete) support for case with Turkish. Remove description of the character sets used from the language environments' doc strings, since now that we create variant language environments on the fly, such descriptions will often be inaccurate. Set the native-coding-system language info property while setting the other coding-system properties of the language. * mule/misc-lang.el (ipa): Remove the language environment. The International Phonetic _Alphabet_ is not a language, it's inane to have a corresponding language environment in XEmacs. * mule/mule-cmds.el (create-variant-language-environment): Also modify the coding-priority when creating a new language environment; document that. * mule/mule-cmds.el (get-language-environment-from-locale): Recognise that the 'native-coding-system language-info property can be a list, interpret it correctly when it is one. 2006-12-21 Aidan Kehoe <kehoea@parhasard.net> * coding.el (coding-system-category): Use the new 'unicode-type property for finding what sort of Unicode coding system subtype a coding system is, instead of the overshadowed 'type property. * dumped-lisp.el (preloaded-file-list): mule/european.el has been removed. * loadup.el (really-early-error-handler): Unicode tables loaded at dump time are now in mule/general-late.el. * simple.el (count-lines): Add some backslashes to to parentheses in docstrings to help fontification along. * simple.el (what-cursor-position): Wrap a line to fit in 80 characters. * unicode.el: Use the 'unicode-type property, not 'type, for setting the Unicode coding-system subtype. src/ChangeLog addition: 2006-12-21 Aidan Kehoe <kehoea@parhasard.net> * file-coding.c: Update the make-coding-system docstring to reflect unicode-type * general-slots.h: New symbol, unicode-type, since 'type was being overridden when accessing a coding system's Unicode subtype. * intl-win32.c: Backslash a few parentheses, to help fontification along. * intl-win32.c (complex_vars_of_intl_win32): Use the 'unicode-type symbol, not 'type, when creating the Microsoft Unicode coding system. * unicode.c (unicode_putprop): * unicode.c (unicode_getprop): * unicode.c (unicode_print): Using 'type as the property name when working out what Unicode subtype a given coding system is was broken, since there's a general coding system property called 'type. Change the former to use 'unicode-type instead.
author aidan
date Fri, 29 Dec 2006 18:09:51 +0000
parents 4ee3cf8de81d
children a4284dd2debb
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
3767
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
1 ;;; latin.el --- Roman-alphabet languages -*- coding: iso-2022-7bit; -*-
464
5aa1854ad537 Import from CVS: tag r21-2-47
cvs
parents:
diff changeset
2
3767
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
3 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
4 ;; Licensed to the Free Software Foundation.
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
5 ;; Copyright (C) 1997 MORIOKA Tomohiko
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
6 ;; Copyright (C) 2001 Ben Wing.
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
7 ;; Copyright (C) 2002, 2005, 2006 Free Software Foundation
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
8
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
9 ;; Keywords: multilingual, latin, dumped
464
5aa1854ad537 Import from CVS: tag r21-2-47
cvs
parents:
diff changeset
10
5aa1854ad537 Import from CVS: tag r21-2-47
cvs
parents:
diff changeset
11 ;; This file is part of XEmacs.
5aa1854ad537 Import from CVS: tag r21-2-47
cvs
parents:
diff changeset
12
5aa1854ad537 Import from CVS: tag r21-2-47
cvs
parents:
diff changeset
13 ;; XEmacs is free software; you can redistribute it and/or modify it
5aa1854ad537 Import from CVS: tag r21-2-47
cvs
parents:
diff changeset
14 ;; under the terms of the GNU General Public License as published by
5aa1854ad537 Import from CVS: tag r21-2-47
cvs
parents:
diff changeset
15 ;; the Free Software Foundation; either version 2, or (at your option)
5aa1854ad537 Import from CVS: tag r21-2-47
cvs
parents:
diff changeset
16 ;; any later version.
5aa1854ad537 Import from CVS: tag r21-2-47
cvs
parents:
diff changeset
17
5aa1854ad537 Import from CVS: tag r21-2-47
cvs
parents:
diff changeset
18 ;; XEmacs is distributed in the hope that it will be useful, but
5aa1854ad537 Import from CVS: tag r21-2-47
cvs
parents:
diff changeset
19 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
5aa1854ad537 Import from CVS: tag r21-2-47
cvs
parents:
diff changeset
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
5aa1854ad537 Import from CVS: tag r21-2-47
cvs
parents:
diff changeset
21 ;; General Public License for more details.
5aa1854ad537 Import from CVS: tag r21-2-47
cvs
parents:
diff changeset
22
5aa1854ad537 Import from CVS: tag r21-2-47
cvs
parents:
diff changeset
23 ;; You should have received a copy of the GNU General Public License
5aa1854ad537 Import from CVS: tag r21-2-47
cvs
parents:
diff changeset
24 ;; along with XEmacs; see the file COPYING. If not, write to the Free
5aa1854ad537 Import from CVS: tag r21-2-47
cvs
parents:
diff changeset
25 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
5aa1854ad537 Import from CVS: tag r21-2-47
cvs
parents:
diff changeset
26 ;; 02111-1307, USA.
5aa1854ad537 Import from CVS: tag r21-2-47
cvs
parents:
diff changeset
27
5aa1854ad537 Import from CVS: tag r21-2-47
cvs
parents:
diff changeset
28 ;;; Commentary:
5aa1854ad537 Import from CVS: tag r21-2-47
cvs
parents:
diff changeset
29
3767
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
30 ;; For Roman-alphabet-using Europeans, eight coded character sets,
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
31 ;; ISO8859-1,2,3,4,9,14,15,16 are supported.
464
5aa1854ad537 Import from CVS: tag r21-2-47
cvs
parents:
diff changeset
32
5aa1854ad537 Import from CVS: tag r21-2-47
cvs
parents:
diff changeset
33 ;;; Code:
5aa1854ad537 Import from CVS: tag r21-2-47
cvs
parents:
diff changeset
34
5aa1854ad537 Import from CVS: tag r21-2-47
cvs
parents:
diff changeset
35 ;; Case table setup. We set up all the case tables using
5aa1854ad537 Import from CVS: tag r21-2-47
cvs
parents:
diff changeset
36 ;; put-case-table-pair. The data for this comes from FSF Emacs 20.7
5aa1854ad537 Import from CVS: tag r21-2-47
cvs
parents:
diff changeset
37 ;; (lisp/international/latin-*.el), written by several people and
5aa1854ad537 Import from CVS: tag r21-2-47
cvs
parents:
diff changeset
38 ;; updated by Erik Naggum.
5aa1854ad537 Import from CVS: tag r21-2-47
cvs
parents:
diff changeset
39
5aa1854ad537 Import from CVS: tag r21-2-47
cvs
parents:
diff changeset
40 (defun setup-case-pairs (charset pairs)
3767
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
41 (loop
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
42 for (uc lc) in pairs
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
43 with table = (standard-case-table)
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
44 do (put-case-table-pair
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
45 (make-char charset uc) (make-char charset lc) table)))
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
46
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
47 ;; Latin-1's case is dealt with in iso8859-1.el, which see. Its syntax is
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
48 ;; initialised in syntax.c:complex_vars_of_syntax.
464
5aa1854ad537 Import from CVS: tag r21-2-47
cvs
parents:
diff changeset
49
3767
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
50
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
51 ;; Latin-2 (ISO-8859-2). Central Europe; Czech, Slovak, Hungarian, Polish,
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
52 ;; Croatian, other languages.
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
53 ;;
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
54 ;; (Yes, it really is Central European. German written in Latin 2 and using
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
55 ;; only Umlaute and the sharp S in its non-ASCII repertoire is bit-for-bit
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
56 ;; identical with the same text in Latin-1.)
464
5aa1854ad537 Import from CVS: tag r21-2-47
cvs
parents:
diff changeset
57
3767
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
58 ;; The default character syntax is now word. Pay attention to the
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
59 ;; exceptions in ISO-8859-2, copying them from ISO-8859-1.
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
60 (loop
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
61 for (latin-2 latin-1)
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
62 in '((#xA0 #xA0) ;; NO BREAK SPACE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
63 (#xA2 #xB4) ;; BREVE, ACUTE ACCENT
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
64 (#xA4 #xA4) ;; CURRENCY SIGN
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
65 (#xA7 #xA7) ;; SECTION SIGN
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
66 (#xA8 #xA8) ;; DIAERESIS
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
67 (#xAD #xAD) ;; SOFT HYPHEN
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
68 (#xB0 #xB0) ;; DEGREE SIGN
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
69 (#xB2 #xB4) ;; OGONEK, ACUTE ACCENT
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
70 (#xB4 #xB4) ;; ACUTE ACCENT
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
71 (#xB7 #xB4) ;; CARON, ACUTE ACCENT
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
72 (#xB8 #xB8) ;; CEDILLA
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
73 (#xBD #xB4) ;; DOUBLE ACUTE ACCENT, ACUTE ACCENT
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
74 (#xD7 #xD7) ;; MULTIPLICATION SIGN
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
75 (#xF7 #xF7) ;; DIVISION SIGN
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
76 (#xFF #xB4)) ;; DOT ABOVE, ACUTE ACCENT
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
77 with syntax-table = (standard-syntax-table)
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
78 do (modify-syntax-entry
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
79 (make-char 'latin-iso8859-2 latin-2)
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
80 (string (char-syntax (make-char 'latin-iso8859-1 latin-1)))
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
81 syntax-table))
464
5aa1854ad537 Import from CVS: tag r21-2-47
cvs
parents:
diff changeset
82
3767
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
83 ;; Case.
464
5aa1854ad537 Import from CVS: tag r21-2-47
cvs
parents:
diff changeset
84 (setup-case-pairs
5aa1854ad537 Import from CVS: tag r21-2-47
cvs
parents:
diff changeset
85 'latin-iso8859-2
3767
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
86 '((#xA1 #xB1) ;; A WITH OGONEK
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
87 (#xA3 #xB3) ;; L WITH STROKE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
88 (#xA5 #xB5) ;; L WITH CARON
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
89 (#xA6 #xB6) ;; S WITH ACUTE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
90 (#xA9 #xB9) ;; S WITH CARON
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
91 (#xAA #xBA) ;; S WITH CEDILLA
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
92 (#xAB #xBB) ;; T WITH CARON
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
93 (#xAC #xBC) ;; Z WITH ACUTE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
94 (#xAE #xBE) ;; Z WITH CARON
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
95 (#xAF #xBF) ;; Z WITH DOT ABOVE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
96 (#xC0 #xE0) ;; R WITH ACUTE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
97 (#xC1 #xE1) ;; A WITH ACUTE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
98 (#xC2 #xE2) ;; A WITH CIRCUMFLEX
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
99 (#xC3 #xE3) ;; A WITH BREVE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
100 (#xC4 #xE4) ;; A WITH DIAERESIS
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
101 (#xC5 #xE5) ;; L WITH ACUTE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
102 (#xC6 #xE6) ;; C WITH ACUTE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
103 (#xC7 #xE7) ;; C WITH CEDILLA
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
104 (#xC8 #xE8) ;; C WITH CARON
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
105 (#xC9 #xE9) ;; E WITH ACUTE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
106 (#xCA #xEA) ;; E WITH OGONEK
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
107 (#xCB #xEB) ;; E WITH DIAERESIS
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
108 (#xCC #xEC) ;; E WITH CARON
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
109 (#xCD #xED) ;; I WITH ACUTE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
110 (#xCE #xEE) ;; I WITH CIRCUMFLEX
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
111 (#xCF #xEF) ;; D WITH CARON
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
112 (#xD0 #xF0) ;; D WITH STROKE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
113 (#xD1 #xF1) ;; N WITH ACUTE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
114 (#xD2 #xF2) ;; N WITH CARON
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
115 (#xD3 #xF3) ;; O WITH ACUTE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
116 (#xD4 #xF4) ;; O WITH CIRCUMFLEX
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
117 (#xD5 #xF5) ;; O WITH DOUBLE ACUTE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
118 (#xD6 #xF6) ;; O WITH DIAERESIS
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
119 (#xD8 #xF8) ;; R WITH CARON
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
120 (#xD9 #xF9) ;; U WITH RING ABOVE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
121 (#xDA #xFA) ;; U WITH ACUTE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
122 (#xDB #xFB) ;; U WITH DOUBLE ACUTE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
123 (#xDC #xFC) ;; U WITH DIAERESIS
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
124 (#xDD #xFD) ;; Y WITH ACUTE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
125 (#xDE #xFE))) ;; T WITH CEDILLA
464
5aa1854ad537 Import from CVS: tag r21-2-47
cvs
parents:
diff changeset
126
3767
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
127 (make-coding-system
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
128 'iso-8859-2 'iso2022 "ISO-8859-2 (Latin-2)"
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
129 '(charset-g0 ascii
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
130 charset-g1 latin-iso8859-2
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
131 charset-g2 t
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
132 charset-g3 t
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
133 mnemonic "MIME/Ltn-2"))
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
134
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
135
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
136 ;;
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
137 ;; Latin-3 (ISO-8859-3). Esperanto, Maltese and Turkish. Obsolescent.
464
5aa1854ad537 Import from CVS: tag r21-2-47
cvs
parents:
diff changeset
138
3767
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
139 ;; Initialise the non-word syntax codes in ISO-8859-3, copying them from
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
140 ;; ISO-8859-1.
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
141 (loop
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
142 for (latin-3 latin-1)
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
143 in '((#xA0 #xA0) ;; NO BREAK SPACE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
144 (#xA2 #xB4) ;; BREVE, ACUTE ACCENT
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
145 (#xA3 #xA3) ;; POUND SIGN
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
146 (#xA4 #xA4) ;; CURRENCY SIGN
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
147 (#xA7 #xA7) ;; SECTION SIGN
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
148 (#xA8 #xA8) ;; DIAERESIS
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
149 (#xAD #xAD) ;; SOFT HYPHEN
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
150 (#xB0 #xB0) ;; DEGREE SIGN
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
151 (#xB2 #xB2) ;; SUPERSCRIPT TWO
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
152 (#xB3 #xB3) ;; SUPERSCRIPT THREE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
153 (#xB4 #xB4) ;; ACUTE ACCENT
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
154 (#xB5 #xB5) ;; MICRO SIGN
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
155 (#xB7 #xB7) ;; MIDDLE DOT
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
156 (#xB8 #xB8) ;; CEDILLA
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
157 (#xBD #xBD) ;; VULGAR FRACTION ONE HALF
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
158 (#xD7 #xD7) ;; MULTIPLICATION SIGN
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
159 (#xF7 #xF7) ;; DIVISION SIGN
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
160 (#xFF #xB4)) ;; DOT ABOVE, ACUTE ACCENT
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
161 with syntax-table = (standard-syntax-table)
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
162 do (modify-syntax-entry
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
163 (make-char 'latin-iso8859-3 latin-3)
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
164 (string (char-syntax (make-char 'latin-iso8859-1 latin-1)))
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
165 syntax-table))
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
166
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
167 ;; Case.
464
5aa1854ad537 Import from CVS: tag r21-2-47
cvs
parents:
diff changeset
168 (setup-case-pairs
5aa1854ad537 Import from CVS: tag r21-2-47
cvs
parents:
diff changeset
169 'latin-iso8859-3
3767
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
170 '((#xA1 #xB1) ;; H WITH STROKE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
171 (#xA6 #xB6) ;; H WITH CIRCUMFLEX
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
172 (#xAA #xBA) ;; S WITH CEDILLA
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
173 (#xAB #xBB) ;; G WITH BREVE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
174 (#xAC #xBC) ;; J WITH CIRCUMFLEX
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
175 (#xAF #xBF) ;; Z WITH DOT ABOVE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
176 (#xC0 #xE0) ;; A WITH GRAVE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
177 (#xC1 #xE1) ;; A WITH ACUTE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
178 (#xC2 #xE2) ;; A WITH CIRCUMFLEX
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
179 (#xC4 #xE4) ;; A WITH DIAERESIS
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
180 (#xC5 #xE5) ;; C WITH DOT ABOVE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
181 (#xC6 #xE6) ;; C WITH CIRCUMFLEX
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
182 (#xC7 #xE7) ;; C WITH CEDILLA
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
183 (#xC8 #xE8) ;; E WITH GRAVE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
184 (#xC9 #xE9) ;; E WITH ACUTE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
185 (#xCA #xEA) ;; E WITH CIRCUMFLEX
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
186 (#xCB #xEB) ;; E WITH DIAERESIS
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
187 (#xCC #xEC) ;; I WITH GRAVE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
188 (#xCD #xED) ;; I WITH ACUTE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
189 (#xCE #xEE) ;; I WITH CIRCUMFLEX
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
190 (#xCF #xEF) ;; I WITH DIAERESIS
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
191 (#xD1 #xF1) ;; N WITH TILDE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
192 (#xD2 #xF2) ;; O WITH GRAVE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
193 (#xD3 #xF3) ;; O WITH ACUTE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
194 (#xD4 #xF4) ;; O WITH CIRCUMFLEX
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
195 (#xD5 #xF5) ;; G WITH DOT ABOVE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
196 (#xD6 #xF6) ;; O WITH DIAERESIS
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
197 (#xD8 #xF8) ;; G WITH CIRCUMFLEX
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
198 (#xD9 #xF9) ;; U WITH GRAVE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
199 (#xDA #xFA) ;; U WITH ACUTE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
200 (#xDB #xFB) ;; U WITH CIRCUMFLEX
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
201 (#xDC #xFC) ;; U WITH DIAERESIS
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
202 (#xDD #xFD) ;; U WITH BREVE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
203 (#xDE #xFE))) ;; S WITH CIRCUMFLEX
464
5aa1854ad537 Import from CVS: tag r21-2-47
cvs
parents:
diff changeset
204
3767
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
205 (make-coding-system
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
206 'iso-8859-3 'iso2022 "ISO-8859-3 (Latin-3)"
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
207 '(charset-g0 ascii
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
208 charset-g1 latin-iso8859-3
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
209 charset-g2 t
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
210 charset-g3 t
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
211 mnemonic "MIME/Ltn-3"))
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
212
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
213
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
214 ;; Latin-4 (ISO-8859-4)
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
215
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
216 ;; Estonian, Latvian, Lithuanian, Greenlandic, and Sami. Obsolescent.
464
5aa1854ad537 Import from CVS: tag r21-2-47
cvs
parents:
diff changeset
217
3767
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
218 ;; The default character syntax is now word. Pay attention to the
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
219 ;; exceptions in ISO-8859-4, copying them from ISO-8859-1.
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
220 (loop
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
221 for (latin-4 latin-1)
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
222 in '((#xA0 #xA0) ;; NO BREAK SPACE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
223 (#xA4 #xA4) ;; CURRENCY SIGN
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
224 (#xA7 #xA7) ;; SECTION SIGN
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
225 (#xA8 #xA8) ;; DIAERESIS
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
226 (#xAD #xAD) ;; SOFT HYPHEN
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
227 (#xB0 #xB0) ;; DEGREE SIGN
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
228 (#xB2 #xB4) ;; OGONEK, ACUTE ACCENT
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
229 (#xB4 #xB4) ;; ACUTE ACCENT
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
230 (#xB7 #xB4) ;; CARON, ACUTE ACCENT
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
231 (#xB8 #xB8) ;; CEDILLA
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
232 (#xD7 #xD7) ;; MULTIPLICATION SIGN
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
233 (#xF7 #xF7) ;; DIVISION SIGN
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
234 (#xFF #xB4)) ;; DOT ABOVE, ACUTE ACCENT
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
235 with syntax-table = (standard-syntax-table)
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
236 do (modify-syntax-entry
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
237 (make-char 'latin-iso8859-4 latin-4)
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
238 (string (char-syntax (make-char 'latin-iso8859-1 latin-1)))
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
239 syntax-table))
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
240
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
241 ;; Case.
464
5aa1854ad537 Import from CVS: tag r21-2-47
cvs
parents:
diff changeset
242 (setup-case-pairs
5aa1854ad537 Import from CVS: tag r21-2-47
cvs
parents:
diff changeset
243 'latin-iso8859-4
3767
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
244 '((#xA1 #xB1) ;; A WITH OGONEK
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
245 (#xA3 #xB3) ;; R WITH CEDILLA
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
246 (#xA5 #xB5) ;; I WITH TILDE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
247 (#xA6 #xB6) ;; L WITH CEDILLA
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
248 (#xA9 #xB9) ;; S WITH CARON
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
249 (#xAA #xBA) ;; E WITH MACRON
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
250 (#xAB #xBB) ;; G WITH CEDILLA
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
251 (#xAC #xBC) ;; T WITH STROKE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
252 (#xAE #xBE) ;; Z WITH CARON
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
253 (#xBD #xBF) ;; ENG
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
254 (#xC0 #xE0) ;; A WITH MACRON
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
255 (#xC1 #xE1) ;; A WITH ACUTE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
256 (#xC2 #xE2) ;; A WITH CIRCUMFLEX
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
257 (#xC3 #xE3) ;; A WITH TILDE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
258 (#xC4 #xE4) ;; A WITH DIAERESIS
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
259 (#xC5 #xE5) ;; A WITH RING ABOVE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
260 (#xC6 #xE6) ;; AE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
261 (#xC7 #xE7) ;; I WITH OGONEK
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
262 (#xC8 #xE8) ;; C WITH CARON
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
263 (#xC9 #xE9) ;; E WITH ACUTE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
264 (#xCA #xEA) ;; E WITH OGONEK
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
265 (#xCB #xEB) ;; E WITH DIAERESIS
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
266 (#xCC #xEC) ;; E WITH DOT ABOVE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
267 (#xCD #xED) ;; I WITH ACUTE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
268 (#xCE #xEE) ;; I WITH CIRCUMFLEX
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
269 (#xCF #xEF) ;; I WITH MACRON
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
270 (#xD0 #xF0) ;; D WITH STROKE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
271 (#xD1 #xF1) ;; N WITH CEDILLA
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
272 (#xD2 #xF2) ;; O WITH MACRON
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
273 (#xD3 #xF3) ;; K WITH CEDILLA
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
274 (#xD4 #xF4) ;; O WITH CIRCUMFLEX
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
275 (#xD5 #xF5) ;; O WITH TILDE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
276 (#xD6 #xF6) ;; O WITH DIAERESIS
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
277 (#xD8 #xF8) ;; O WITH STROKE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
278 (#xD9 #xF9) ;; U WITH OGONEK
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
279 (#xDA #xFA) ;; U WITH ACUTE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
280 (#xDB #xFB) ;; U WITH CIRCUMFLEX
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
281 (#xDC #xFC) ;; U WITH DIAERESIS
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
282 (#xDD #xFD) ;; U WITH TILDE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
283 (#xDE #xFE))) ;; U WITH MACRON
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
284
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
285 (make-coding-system
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
286 'iso-8859-4 'iso2022 "ISO-8859-4 (Latin-4)"
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
287 '(charset-g0 ascii
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
288 charset-g1 latin-iso8859-4
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
289 charset-g2 t
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
290 charset-g3 t
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
291 mnemonic "MIME/Ltn-4"))
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
292
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
293
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
294 ;; Latin-8 (ISO 8859-14) Celtic.
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
295
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
296 ;; Never widely used. Current-orthography Gaelic, both Irish and Scots, is
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
297 ;; easily written with Latin-1. Wikipedia says the same about Welsh.
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
298
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
299 (make-charset 'latin-iso8859-14
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
300 "Right-Hand Part of Latin Alphabet 8 (ISO/IEC 8859-14)"
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
301 '(dimension 1
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
302 registries ["ISO8859-14"]
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
303 chars 96
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
304 columns 1
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
305 direction l2r
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
306 final ?_
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
307 graphic 1
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
308 short-name "RHP of Latin-8"
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
309 long-name "RHP of Latin-8 (ISO 8859-14)"))
464
5aa1854ad537 Import from CVS: tag r21-2-47
cvs
parents:
diff changeset
310
3767
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
311 ;;
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
312 ;; Character syntax defaults to word. The exceptions here shared with Latin-1.
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
313 (dolist (code '(#xa0 ;; NO BREAK SPACE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
314 #xa3 ;; POUND SIGN
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
315 #xa7 ;; SECTION SIGN
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
316 #xa9 ;; COPYRIGHT
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
317 #xad ;; SOFT HYPHEN
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
318 #xae ;; REGISTERED
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
319 #xb6)) ;; PILCROW SIGN
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
320 (modify-syntax-entry (make-char 'latin-iso8859-14 code)
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
321 (string (char-syntax (make-char 'latin-iso8859-1 code)))
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
322 (standard-syntax-table)))
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
323 ;; Case.
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
324 (setup-case-pairs
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
325 'latin-iso8859-14
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
326 '((#xA1 #xA2) ;; B WITH DOT ABOVE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
327 (#xA4 #xA5) ;; C WITH DOT ABOVE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
328 (#xA6 #xAB) ;; D WITH DOT ABOVE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
329 (#xA8 #xB8) ;; W WITH GRAVE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
330 (#xAA #xBA) ;; W WITH ACUTE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
331 (#xAC #xBC) ;; Y WITH GRAVE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
332 (#xAF #xFF) ;; Y WITH DIAERESIS
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
333 (#xB0 #xB1) ;; F WITH DOT ABOVE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
334 (#xB2 #xB3) ;; G WITH DOT ABOVE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
335 (#xB4 #xB5) ;; M WITH DOT ABOVE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
336 (#xB7 #xB9) ;; P WITH DOT ABOVE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
337 (#xBB #xBF) ;; S WITH DOT ABOVE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
338 (#xBD #xBE) ;; W WITH DIAERESIS
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
339 (#xC0 #xE0) ;; A WITH GRAVE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
340 (#xC1 #xE1) ;; A WITH ACUTE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
341 (#xC2 #xE2) ;; A WITH CIRCUMFLEX
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
342 (#xC3 #xE3) ;; A WITH TILDE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
343 (#xC4 #xE4) ;; A WITH DIAERESIS
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
344 (#xC5 #xE5) ;; A WITH RING ABOVE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
345 (#xC6 #xE6) ;; AE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
346 (#xC7 #xE7) ;; C WITH CEDILLA
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
347 (#xC8 #xE8) ;; E WITH GRAVE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
348 (#xC9 #xE9) ;; E WITH ACUTE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
349 (#xCA #xEA) ;; E WITH CIRCUMFLEX
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
350 (#xCB #xEB) ;; E WITH DIAERESIS
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
351 (#xCC #xEC) ;; I WITH GRAVE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
352 (#xCD #xED) ;; I WITH ACUTE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
353 (#xCE #xEE) ;; I WITH CIRCUMFLEX
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
354 (#xCF #xEF) ;; I WITH DIAERESIS
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
355 (#xD0 #xF0) ;; W WITH CIRCUMFLEX
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
356 (#xD1 #xF1) ;; N WITH TILDE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
357 (#xD2 #xF2) ;; O WITH GRAVE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
358 (#xD3 #xF3) ;; O WITH ACUTE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
359 (#xD4 #xF4) ;; O WITH CIRCUMFLEX
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
360 (#xD5 #xF5) ;; O WITH TILDE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
361 (#xD6 #xF6) ;; O WITH DIAERESIS
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
362 (#xD7 #xF7) ;; T WITH DOT ABOVE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
363 (#xD8 #xF8) ;; O WITH STROKE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
364 (#xD9 #xF9) ;; U WITH GRAVE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
365 (#xDA #xFA) ;; U WITH ACUTE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
366 (#xDB #xFB) ;; U WITH CIRCUMFLEX
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
367 (#xDC #xFC) ;; U WITH DIAERESIS
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
368 (#xDD #xFD) ;; Y WITH ACUTE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
369 (#xDE #xFE))) ;; Y WITH CIRCUMFLEX
464
5aa1854ad537 Import from CVS: tag r21-2-47
cvs
parents:
diff changeset
370
3767
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
371
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
372 ;; The syntax table code for ISO 8859-15 and ISO 8859-16 requires that the
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
373 ;; guillemets not have parenthesis syntax, which they used to have in the
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
374 ;; past. See syntax.c:complex_vars_of_syntax.
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
375 (assert (not (memq (char-syntax (make-char 'latin-iso8859-1 #xAB)) '(?\( ?\))))
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
376 t "This code assumes \xAB does not have parenthesis syntax. ")
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
377
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
378 (assert (not (memq (char-syntax (make-char 'latin-iso8859-1 #xBB)) '(?\( ?\))))
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
379 t "This code assumes \xBB does not have parenthesis syntax. ")
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
380
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
381
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
382 ;; Latin-9 (ISO-8859-15)
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
383 ;;
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
384 ;; Latin-1 plus Euro, plus a few accented characters for the sake of correct
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
385 ;; Finnish and French orthography. Only ever widely used on Unix.
2765
4ee3cf8de81d [xemacs-hg @ 2005-05-10 17:02:52 by aidan]
aidan
parents: 502
diff changeset
386
3767
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
387 ;;
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
388 ;; Based on Latin-1 and differences therefrom.
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
389 ;;
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
390 ;; First, initialise the syntax from the corresponding Latin-1 characters.
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
391 (loop
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
392 for c from #xa0 to #xff
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
393 with syntax-table = (standard-syntax-table)
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
394 do (modify-syntax-entry
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
395 (make-char 'latin-iso8859-15 c)
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
396 (string (char-syntax (make-char 'latin-iso8859-1 c)))
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
397 syntax-table))
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
398
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
399 ;; Now, the exceptions. The Euro sign retains the syntax of CURRENCY SIGN.
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
400 (loop
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
401 for c in '(?,b&(B ?,b((B ?,b4(B ?,b8(B ?,b<(B ?,b=(B ?,b>(B)
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
402 with syntax-table = (standard-syntax-table)
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
403 do (modify-syntax-entry c "w" syntax-table))
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
404
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
405 ;; Case.
2765
4ee3cf8de81d [xemacs-hg @ 2005-05-10 17:02:52 by aidan]
aidan
parents: 502
diff changeset
406 (setup-case-pairs
4ee3cf8de81d [xemacs-hg @ 2005-05-10 17:02:52 by aidan]
aidan
parents: 502
diff changeset
407 'latin-iso8859-15
3767
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
408 '((#xA6 #xA8) ;; S WITH CARON *
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
409 (#xB4 #xB8) ;; Z WITH CARON *
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
410 (#xBC #xBD) ;; LATIN LIGATURE OE *
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
411 (#xBE #xFF) ;; Y WITH DIAERESIS *
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
412 (#xC0 #xE0) ;; A WITH GRAVE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
413 (#xC1 #xE1) ;; A WITH ACUTE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
414 (#xC2 #xE2) ;; A WITH CIRCUMFLEX
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
415 (#xC3 #xE3) ;; A WITH TILDE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
416 (#xC4 #xE4) ;; A WITH DIAERESIS
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
417 (#xC5 #xE5) ;; A WITH RING ABOVE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
418 (#xC6 #xE6) ;; AE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
419 (#xC7 #xE7) ;; C WITH CEDILLA
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
420 (#xC8 #xE8) ;; E WITH GRAVE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
421 (#xC9 #xE9) ;; E WITH ACUTE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
422 (#xCA #xEA) ;; E WITH CIRCUMFLEX
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
423 (#xCB #xEB) ;; E WITH DIAERESIS
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
424 (#xCC #xEC) ;; I WITH GRAVE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
425 (#xCD #xED) ;; I WITH ACUTE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
426 (#xCE #xEE) ;; I WITH CIRCUMFLEX
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
427 (#xCF #xEF) ;; I WITH DIAERESIS
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
428 (#xD0 #xF0) ;; ETH
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
429 (#xD1 #xF1) ;; N WITH TILDE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
430 (#xD2 #xF2) ;; O WITH GRAVE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
431 (#xD3 #xF3) ;; O WITH ACUTE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
432 (#xD4 #xF4) ;; O WITH CIRCUMFLEX
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
433 (#xD5 #xF5) ;; O WITH TILDE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
434 (#xD6 #xF6) ;; O WITH DIAERESIS
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
435 (#xD8 #xF8) ;; O WITH STROKE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
436 (#xD9 #xF9) ;; U WITH GRAVE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
437 (#xDA #xFA) ;; U WITH ACUTE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
438 (#xDB #xFB) ;; U WITH CIRCUMFLEX
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
439 (#xDC #xFC) ;; U WITH DIAERESIS
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
440 (#xDD #xFD) ;; Y WITH ACUTE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
441 (#xDE #xFE))) ;; THORN
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
442
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
443 (make-coding-system
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
444 'iso-8859-15 'iso2022
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
445 "ISO 4873 conforming 8-bit code (ASCII + Latin 9; aka Latin-1 with Euro)"
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
446 `(mnemonic "MIME/Ltn-9" ; bletch
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
447 eol-type nil
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
448 charset-g0 ascii
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
449 charset-g1 latin-iso8859-15
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
450 charset-g2 t
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
451 charset-g3 t))
2765
4ee3cf8de81d [xemacs-hg @ 2005-05-10 17:02:52 by aidan]
aidan
parents: 502
diff changeset
452
3767
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
453 ;; end of ISO 8859-15.
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
454
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
455 ;;
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
456 ;; Latin-10 (ISO 8859-16).
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
457 ;;
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
458 ;; "South-Eastern European." Not, to my knowledge, ever widely used.
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
459
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
460 (make-charset 'latin-iso8859-16
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
461 "Right-Hand Part of Latin Alphabet 10 (ISO/IEC 8859-16)"
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
462 '(dimension 1
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
463 registries ["ISO8859-16"]
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
464 chars 96
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
465 columns 1
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
466 direction l2r
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
467 final ?f ; octet 06/06; cf ISO-IR 226
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
468 graphic 1
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
469 short-name "RHP of Latin-10"
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
470 long-name "RHP of Latin-10 (ISO 8859-16)"))
2765
4ee3cf8de81d [xemacs-hg @ 2005-05-10 17:02:52 by aidan]
aidan
parents: 502
diff changeset
471
3767
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
472 ;; Copy over the non-word syntax this charset has in common with Latin 1.
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
473 (dolist (code '(#xa0 ;; NO BREAK SPACE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
474 #xa7 ;; SECTION SIGN
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
475 #xa9 ;; COPYRIGHT
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
476 #xab ;; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
477 #xad ;; SOFT HYPHEN
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
478 #xb0 ;; DEGREE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
479 #xb1 ;; PLUS-MINUS SIGN
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
480 #xb6 ;; PILCROW SIGN
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
481 #xb7 ;; MIDDLE DOT
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
482 #xbb)) ;; RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
483 (modify-syntax-entry (make-char 'latin-iso8859-16 code)
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
484 (string (char-syntax (make-char 'latin-iso8859-1 code)))
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
485 (standard-syntax-table)))
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
486
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
487 ;; EURO SIGN. Take its syntax from the pound sign.
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
488 (modify-syntax-entry (make-char 'latin-iso8859-16 #xa4)
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
489 (string (char-syntax (make-char 'latin-iso8859-1 #xa3)))
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
490 (standard-syntax-table))
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
491
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
492 ;; Take DOUBLE LOW-9 QUOTATION MARK's syntax from that of LEFT-POINTING
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
493 ;; DOUBLE ANGLE QUOTATION MARK.
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
494 (modify-syntax-entry (make-char 'latin-iso8859-16 #xa5)
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
495 (string (char-syntax (make-char 'latin-iso8859-1 #xab)))
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
496 (standard-syntax-table))
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
497
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
498 ;; Take RIGHT DOUBLE QUOTATION MARK's syntax from that of RIGHT-POINTING
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
499 ;; DOUBLE ANGLE QUOTATION MARK.
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
500 (modify-syntax-entry (make-char 'latin-iso8859-16 #xb5)
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
501 (string (char-syntax (make-char 'latin-iso8859-1 #xbb)))
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
502 (standard-syntax-table))
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
503
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
504 ;; Case.
2765
4ee3cf8de81d [xemacs-hg @ 2005-05-10 17:02:52 by aidan]
aidan
parents: 502
diff changeset
505 (setup-case-pairs
4ee3cf8de81d [xemacs-hg @ 2005-05-10 17:02:52 by aidan]
aidan
parents: 502
diff changeset
506 'latin-iso8859-16
3767
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
507 '((#xA1 #xA2) ;; A WITH OGONEK
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
508 (#xA3 #xB3) ;; L WITH STROKE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
509 (#xA6 #xA8) ;; S WITH CARON
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
510 (#xAA #xBA) ;; S WITH COMMA BELOW
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
511 (#xAC #xAE) ;; Z WITH ACUTE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
512 (#xAF #xBF) ;; Z WITH DOT ABOVE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
513 (#xB2 #xB9) ;; C WITH CARON
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
514 (#xB4 #xB8) ;; Z WITH CARON
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
515 (#xBE #xFF) ;; Y WITH DIAERESIS
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
516 (#xC0 #xE0) ;; A WITH GRAVE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
517 (#xC1 #xE1) ;; A WITH ACUTE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
518 (#xC2 #xE2) ;; A WITH CIRCUMFLEX
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
519 (#xC3 #xE3) ;; A WITH BREVE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
520 (#xC4 #xE4) ;; A WITH DIAERESIS
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
521 (#xC5 #xE5) ;; C WITH ACUTE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
522 (#xC6 #xE6) ;; AE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
523 (#xC7 #xE7) ;; C WITH CEDILLA
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
524 (#xC8 #xE8) ;; E WITH GRAVE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
525 (#xC9 #xE9) ;; E WITH ACUTE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
526 (#xCA #xEA) ;; E WITH CIRCUMFLEX
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
527 (#xCB #xEB) ;; E WITH DIAERESIS
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
528 (#xCC #xEC) ;; I WITH GRAVE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
529 (#xCD #xED) ;; I WITH ACUTE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
530 (#xCE #xEE) ;; I WITH CIRCUMFLEX
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
531 (#xCF #xEF) ;; I WITH DIAERESIS
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
532 (#xD0 #xF0) ;; D WITH STROKE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
533 (#xD1 #xF1) ;; N WITH ACUTE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
534 (#xD2 #xF2) ;; O WITH GRAVE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
535 (#xD3 #xF3) ;; O WITH ACUTE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
536 (#xD4 #xF4) ;; O WITH CIRCUMFLEX
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
537 (#xD5 #xF5) ;; O WITH DOUBLE ACUTE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
538 (#xD6 #xF6) ;; O WITH DIAERESIS
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
539 (#xD7 #xF7) ;; S WITH ACUTE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
540 (#xD8 #xF8) ;; U WITH DOUBLE ACUTE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
541 (#xD9 #xF9) ;; U WITH GRAVE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
542 (#xDA #xFA) ;; U WITH ACUTE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
543 (#xDB #xFB) ;; U WITH CIRCUMFLEX
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
544 (#xDC #xFC) ;; U WITH DIAERESIS
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
545 (#xDD #xFD) ;; E WITH OGONEK
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
546 (#xDE #xFE))) ;; T WITH COMMA BELOW
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
547
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
548 ;; Add a coding system for ISO 8859-16.
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
549 (make-coding-system
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
550 'iso-8859-16 'iso2022 "MIME ISO-8859-16"
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
551 '(charset-g0 ascii
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
552 charset-g1 latin-iso8859-16
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
553 charset-g2 t ; grrr
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
554 charset-g3 t ; grrr
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
555 mnemonic "MIME/Ltn-10"))
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
556
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
557 ;; end of ISO 8859-16.
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
558
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
559
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
560 (provide 'romanian)
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
561
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
562 ;; Czech support originally from czech.el
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
563 ;; Author: Milan Zamazal <pdm@zamazal.org>
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
564 ;; Maintainer (FSF): Pavel Jan,Am(Bk <Pavel@Janik.cz>
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
565 ;; Maintainer (for XEmacs): David Sauer <davids@penguin.cz>
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
566
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
567 (provide 'czech)
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
568
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
569 ;; Slovak support originally from slovak.el
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
570 ;; Authors: Tibor ,B)(Bimko <tibor.simko@fmph.uniba.sk>,
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
571 ;; Milan Zamazal <pdm@fi.muni.cz>
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
572 ;; Maintainer: Milan Zamazal <pdm@fi.muni.cz>
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
573
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
574 (provide 'slovenian)
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
575
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
576 ;; Latin-5 (ISO-8859-9)
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
577
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
578 ;; Turkish (more generally Turkic.) This is identical to Latin-1, with the
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
579 ;; exception that the Icelandic-specific letters have been replaced by
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
580 ;; Turkish-specific letters. As such, we can simply copy the Latin-1 syntax
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
581 ;; table.
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
582
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
583 (loop
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
584 for i from #xA0 to #xFF
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
585 with syntax-table = (standard-syntax-table)
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
586 do (modify-syntax-entry
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
587 (make-char 'latin-iso8859-9 i)
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
588 (string (char-syntax (make-char 'latin-iso8859-1 i)))
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
589 syntax-table))
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
590
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
591 ;; Case. #### Bug: this doesn't handle I WITH DOT ABOVE.
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
592 (setup-case-pairs
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
593 'latin-iso8859-9
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
594 '((#xC0 #xE0) ;; A WITH GRAVE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
595 (#xC1 #xE1) ;; A WITH ACUTE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
596 (#xC2 #xE2) ;; A WITH CIRCUMFLEX
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
597 (#xC3 #xE3) ;; A WITH TILDE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
598 (#xC4 #xE4) ;; A WITH DIAERESIS
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
599 (#xC5 #xE5) ;; A WITH RING ABOVE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
600 (#xC6 #xE6) ;; AE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
601 (#xC7 #xE7) ;; C WITH CEDILLA
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
602 (#xC8 #xE8) ;; E WITH GRAVE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
603 (#xC9 #xE9) ;; E WITH ACUTE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
604 (#xCB #xEB) ;; E WITH DIAERESIS
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
605 (#xCD #xED) ;; I WITH ACUTE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
606 (#xCE #xEE) ;; I WITH CIRCUMFLEX
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
607 (#xD0 #xF0) ;; G WITH BREVE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
608 (#xD1 #xF1) ;; N WITH TILDE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
609 (#xD2 #xF2) ;; O WITH GRAVE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
610 (#xD3 #xF3) ;; O WITH ACUTE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
611 (#xD4 #xF4) ;; O WITH CIRCUMFLEX
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
612 (#xD5 #xF5) ;; O WITH TILDE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
613 (#xD6 #xF6) ;; O WITH DIAERESIS
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
614 (#xD8 #xF8) ;; O WITH STROKE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
615 (#xD9 #xF9) ;; U WITH GRAVE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
616 (#xDA #xFA) ;; U WITH ACUTE
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
617 (#xDB #xFB) ;; U WITH CIRCUMFLEX
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
618 (#xDC #xFC) ;; U WITH DIAERESIS
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
619 (#xDE #xFE))) ;; S WITH CEDILLA
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
620
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
621 (make-coding-system
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
622 'iso-8859-9 'iso2022 "ISO-8859-9 (Latin-5)"
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
623 '(charset-g0 ascii
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
624 charset-g1 latin-iso8859-9
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
625 charset-g2 t
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
626 charset-g3 t
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
627 mnemonic "MIME/Ltn-5"))
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
628
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
629 ;; end of ISO-8859-9
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
630
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
631 ;; This is a utility function; we don't want it in the dumped XEmacs.
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
632
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
633 (fmakunbound 'setup-case-pairs)
2765
4ee3cf8de81d [xemacs-hg @ 2005-05-10 17:02:52 by aidan]
aidan
parents: 502
diff changeset
634
464
5aa1854ad537 Import from CVS: tag r21-2-47
cvs
parents:
diff changeset
635
3767
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
636 ;; Language environments.
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
637 (loop
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
638 for ((charset codesys default-input nice-charset-1 nice-charset-2
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
639 ;; supported-langs is a list if the doc string is replaced
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
640 ;; entirely
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
641 supported-langs)
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
642 langenvs) in
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
643 '(((latin-iso8859-1 iso-8859-1 "latin-1-prefix" "Latin-1" "ISO-8859-1"
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
644 " Danish, Dutch, English, Faeroese, Finnish, French, German, Icelandic,
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
645 Irish, Italian, Norwegian, Portuguese, Spanish, and Swedish.")
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
646 (("Danish" "da")
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
647 ("Dutch" "nl" "TUTORIAL.nl")
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
648 ("Faeroese")
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
649 ("Finnish" "fi")
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
650 ("French" "fr" "TUTORIAL.fr" "Bonjour, ,Ag(Ba va?")
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
651 ("German" "de" "TUTORIAL.de" "\
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
652 German (Deutsch Nord) Guten Tag
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
653 German (Deutsch S,A|(Bd) Gr,A|_(B Gott"
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
654 "german-postfix")
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
655 ("Icelandic" "is")
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
656 ("Irish" "ga")
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
657 ("Italian" "it")
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
658 ("Norwegian" "no" "TUTORIAL.no")
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
659 ("Portuguese" "pt" nil "Bem-vindo! Tudo bem?")
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
660 ("Spanish" "es" "TUTORIAL.es" ",A!(BHola!")
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
661 ("Swedish" "sv" "TUTORIAL.se" "Hej!")))
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
662 ((latin-iso8859-15 iso-8859-15 "latin-1-prefix" ;; #### FIXME
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
663 "Latin-9" "ISO-8859-15")
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
664 ())
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
665 ((latin-iso8859-2 iso-8859-2 "latin-2-prefix" "Latin-2" "ISO-8859-2"
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
666 " Albanian, Czech, English, German, Hungarian, Polish, Romanian,
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
667 Serbian, Croatian, Slovak, Slovene, Sorbian (upper and lower),
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
668 and Swedish.") ;; " added because fontification got screwed up, CVS-20061203.
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
669 (("Albanian" nil)
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
670 ("Croatian" ("hrvatski" "hr") "TUTORIAL.hr")
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
671 ("Czech" ("cs" "cz") "TUTORIAL.cs" "P,Bx(Bejeme v,Ba(Bm hezk,B}(B den!"
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
672 "latin-2-postfix")
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
673 ("Hungarian" ("hungarian" "hu"))
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
674 ("Polish" "po" "TUTORIAL.pl")
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
675 ("Romanian" "ro" "TUTORIAL.ro" "Bun,Bc(B ziua, bine a,B~(Bi venit!"
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
676 "latin-2-postfix")
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
677 ("Serbian" "sr")
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
678 ("Slovak" "sk" "TUTORIAL.sk" "Prajeme V,Ba(Bm pr,Bm(Bjemn,B}(B de,Br(B!"
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
679 "latin-2-postfix")
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
680 ("Slovenian" "sl" "TUTORIAL.sl" ",B.(Belimo vam uspe,B9(Ben dan!"
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
681 "latin-2-postfix")
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
682 ("Sorbian" nil)))
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
683 ((latin-iso8859-3 iso-8859-3 "latin-3-prefix" "Latin-3" "ISO-8859-3"
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
684 " Afrikaans, Catalan, Dutch, English, Esperanto, French, Galician,
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
685 German, Italian, Maltese, Spanish, and Turkish.")
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
686 (("Afrikaans" "af")
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
687 ("Catalan" ("catalan" "ca"))
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
688 ("Esperanto")
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
689 ("Galician")
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
690 ("Maltese")))
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
691 ((latin-iso8859-4 iso-8859-4 "latin-4-prefix" "Latin-4" "ISO-8859-4"
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
692 " Danish, English, Estonian, Finnish, German, Greenlandic, Lappish,
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
693 Latvian, Lithuanian, and Norwegian.")
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
694 (("Estonian" "et")
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
695 ("Greenlandic")
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
696 ("Lappish")
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
697 ("Latvian" "lv")
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
698 ("Lithuanian" "li")))
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
699 ((latin-iso8859-5 iso-8859-9 "latin-5-prefix" "Latin-5" "ISO-8859-9")
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
700 (("Turkish" "tr"))))
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
701 do
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
702 (set-language-info-alist
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
703 nice-charset-1
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
704 `((charset ascii ,charset)
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
705 (coding-system ,codesys)
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
706 (coding-priority ,codesys)
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
707 (native-coding-system ,codesys)
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
708 (documentation . ,(if (listp supported-langs) (car supported-langs)
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
709 (format "\
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
710 Generic language environment for %s (%s)." nice-charset-1 nice-charset-2))))
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
711 '("European"))
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
712 (loop for (name locale tutorial sample-text input-method) in langenvs
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
713 do
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
714 (set-language-info-alist
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
715 name
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
716 `((charset ascii ,charset)
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
717 (coding-system ,codesys)
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
718 (coding-priority ,codesys)
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
719 (native-coding-system ,codesys)
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
720 ,@(if locale `((locale . ,locale)))
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
721 ,@(if tutorial `((tutorial . ,tutorial)))
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
722 ,@(if sample-text `((sample-text . ,sample-text)))
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
723 (input-method . ,(or input-method default-input))
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
724 (documentation . ,(format "\
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
725 This language environment supports %s. " name)))
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
726 '("European"))))
464
5aa1854ad537 Import from CVS: tag r21-2-47
cvs
parents:
diff changeset
727
3767
6b2ef948e140 [xemacs-hg @ 2006-12-29 18:09:38 by aidan]
aidan
parents: 2765
diff changeset
728 ;;; latin.el ends here