Mercurial > emacs

comparison lisp/language/european.el @ 88504:3ef048e3d781

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix mime-charset properties.
author Dave Love <fx@gnu.org>
date Tue, 14 May 2002 10:20:49 +0000
parents fad0f879877f
children 6411031426af
comparison
equal deleted inserted replaced
88503:d864d6412004 88504:3ef048e3d781
1 ;;; european.el --- support for European languages -*- coding: iso-2022-7bit; -*- 1 ;;; european.el --- support for European languages -*- coding: iso-2022-7bit; -*-
2 2
3 ;; Copyright (C) 1995, 1997, 2001 Electrotechnical Laboratory, JAPAN. 3 ;; Copyright (C) 1995, 1997, 2001 Electrotechnical Laboratory, JAPAN.
4 ;; Licensed to the Free Software Foundation. 4 ;; Licensed to the Free Software Foundation.
5 ;; Copyright (C) 2001 Free Software Foundation, Inc. 5 ;; Copyright (C) 2001, 2002 Free Software Foundation, Inc.
6 6
7 ;; Keywords: multilingual, European 7 ;; Keywords: multilingual, European
8 8
9 ;; This file is part of GNU Emacs. 9 ;; This file is part of GNU Emacs.
10 10
66 (define-coding-system 'iso-latin-2 66 (define-coding-system 'iso-latin-2
67 "ISO 2022 based 8-bit encoding for Latin-2 (MIME:ISO-8859-2)." 67 "ISO 2022 based 8-bit encoding for Latin-2 (MIME:ISO-8859-2)."
68 :coding-type 'charset 68 :coding-type 'charset
69 :mnemonic ?2 69 :mnemonic ?2
70 :charset-list '(iso-8859-2) 70 :charset-list '(iso-8859-2)
71 :plist '(mime-charset iso-8859-2)) 71 :mime-charset 'iso-8859-2)
72 72
73 (define-coding-system-alias 'iso-8859-2 'iso-latin-2) 73 (define-coding-system-alias 'iso-8859-2 'iso-latin-2)
74 (define-coding-system-alias 'latin-2 'iso-latin-2) 74 (define-coding-system-alias 'latin-2 'iso-latin-2)
75 75
76 (set-language-info-alist 76 (set-language-info-alist
99 (define-coding-system 'iso-latin-3 99 (define-coding-system 'iso-latin-3
100 "ISO 2022 based 8-bit encoding for Latin-3 (MIME:ISO-8859-3)." 100 "ISO 2022 based 8-bit encoding for Latin-3 (MIME:ISO-8859-3)."
101 :coding-type 'charset 101 :coding-type 'charset
102 :mnemonic ?3 102 :mnemonic ?3
103 :charset-list '(iso-8859-3) 103 :charset-list '(iso-8859-3)
104 :plist '(mime-charset iso-8859-3)) 104 :mime-charset 'iso-8859-3)
105 105
106 (define-coding-system-alias 'iso-8859-3 'iso-latin-3) 106 (define-coding-system-alias 'iso-8859-3 'iso-latin-3)
107 (define-coding-system-alias 'latin-3 'iso-latin-3) 107 (define-coding-system-alias 'latin-3 'iso-latin-3)
108 108
109 (set-language-info-alist 109 (set-language-info-alist
126 (define-coding-system 'iso-latin-4 126 (define-coding-system 'iso-latin-4
127 "ISO 2022 based 8-bit encoding for Latin-4 (MIME:ISO-8859-4)." 127 "ISO 2022 based 8-bit encoding for Latin-4 (MIME:ISO-8859-4)."
128 :coding-type 'charset 128 :coding-type 'charset
129 :mnemonic ?4 129 :mnemonic ?4
130 :charset-list '(iso-8859-4) 130 :charset-list '(iso-8859-4)
131 :plist '(mime-charset iso-8859-4)) 131 :mime-charset 'iso-8859-4)
132 132
133 (define-coding-system-alias 'iso-8859-4 'iso-latin-4) 133 (define-coding-system-alias 'iso-8859-4 'iso-latin-4)
134 (define-coding-system-alias 'latin-4 'iso-latin-4) 134 (define-coding-system-alias 'latin-4 'iso-latin-4)
135 135
136 (set-language-info-alist 136 (set-language-info-alist
153 (define-coding-system 'iso-latin-5 153 (define-coding-system 'iso-latin-5
154 "ISO 2022 based 8-bit encoding for Latin-5 (MIME:ISO-8859-9)." 154 "ISO 2022 based 8-bit encoding for Latin-5 (MIME:ISO-8859-9)."
155 :coding-type 'charset 155 :coding-type 'charset
156 :mnemonic ?9 156 :mnemonic ?9
157 :charset-list '(iso-8859-9) 157 :charset-list '(iso-8859-9)
158 :plist '(mime-charset iso-8859-9)) 158 :mime-charset 'iso-8859-9)
159 159
160 (define-coding-system-alias 'iso-8859-9 'iso-latin-5) 160 (define-coding-system-alias 'iso-8859-9 'iso-latin-5)
161 (define-coding-system-alias 'latin-5 'iso-latin-5) 161 (define-coding-system-alias 'latin-5 'iso-latin-5)
162 162
163 (set-language-info-alist 163 (set-language-info-alist
178 "ISO 2022 based 8-bit encoding for Latin-8 (MIME:ISO-8859-14)." 178 "ISO 2022 based 8-bit encoding for Latin-8 (MIME:ISO-8859-14)."
179 :coding-type 'charset 179 :coding-type 'charset
180 ;; `W' for `Welsh', since `C' for `Celtic' is taken. 180 ;; `W' for `Welsh', since `C' for `Celtic' is taken.
181 :mnemonic ?W 181 :mnemonic ?W
182 :charset-list '(iso-8859-14) 182 :charset-list '(iso-8859-14)
183 :plist '(mime-charset iso-8859-14)) 183 :mime-charset 'iso-8859-14)
184 184
185 (define-coding-system-alias 'iso-8859-14 'iso-latin-8) 185 (define-coding-system-alias 'iso-8859-14 'iso-latin-8)
186 (define-coding-system-alias 'latin-8 'iso-latin-8) 186 (define-coding-system-alias 'latin-8 'iso-latin-8)
187 187
188 (set-language-info-alist 188 (set-language-info-alist
208 "ISO 2022 based 8-bit encoding for Latin-9 (MIME:ISO-8859-15)." 208 "ISO 2022 based 8-bit encoding for Latin-9 (MIME:ISO-8859-15)."
209 :coding-type 'charset 209 :coding-type 'charset
210 ;; `0' for `Latin-0' 210 ;; `0' for `Latin-0'
211 :mnemonic ?0 211 :mnemonic ?0
212 :charset-list '(iso-8859-15) 212 :charset-list '(iso-8859-15)
213 :plist '(mime-charset iso-8859-15)) 213 :mime-charset 'iso-8859-15)
214 214
215 (define-coding-system-alias 'iso-8859-15 'iso-latin-9) 215 (define-coding-system-alias 'iso-8859-15 'iso-latin-9)
216 (define-coding-system-alias 'latin-9 'iso-latin-9) 216 (define-coding-system-alias 'latin-9 'iso-latin-9)
217 (define-coding-system-alias 'latin-0 'iso-latin-9) 217 (define-coding-system-alias 'latin-0 'iso-latin-9)
218 218
223 (nonascii-translation . iso-8859-15) 223 (nonascii-translation . iso-8859-15)
224 (unibyte-syntax . "latin-9") 224 (unibyte-syntax . "latin-9")
225 (unibyte-display . iso-latin-9) 225 (unibyte-display . iso-latin-9)
226 (input-method . "latin-9-prefix") 226 (input-method . "latin-9-prefix")
227 (sample-text 227 (sample-text
228 . "AVE. ,b&(48<=>(B ,b$(B") 228 . "AVE. ,B)9.>,b<=,_/(B ,b$(B")
229 (documentation . "\ 229 (documentation . "\
230 This language environment is a generic one for the Latin-9 (ISO-8859-15) 230 This language environment is a generic one for the Latin-9 (ISO-8859-15)
231 character set which supports the same languages as Latin-1 with the 231 character set which supports the same languages as Latin-1 with the
232 addition of the Euro sign and some additional French and Finnish letters. 232 addition of the Euro sign and some additional French and Finnish letters.
233 Latin-9 is sometimes nicknamed `Latin-0'.")) 233 Latin-9 is sometimes nicknamed `Latin-0'."))
320 (coding-priority iso-latin-5) 320 (coding-priority iso-latin-5)
321 (nonascii-translation . iso-8859-9) 321 (nonascii-translation . iso-8859-9)
322 (unibyte-syntax . "latin-5") 322 (unibyte-syntax . "latin-5")
323 (unibyte-display . iso-latin-5) 323 (unibyte-display . iso-latin-5)
324 (input-method . "turkish-postfix") 324 (input-method . "turkish-postfix")
325 (sample-text . "Turkish (T,M|(Brk,Mg(Be) Merhaba") 325 (sample-text . "Turkish (T,A|(Brk,Ag(Be) Merhaba")
326 (documentation . t))) 326 (documentation . t)))
327 327
328 ;; Polish ISO 8859-2 environment. 328 ;; Polish ISO 8859-2 environment.
329 ;; Maintainer: Wlodek Bzyl <matwb@univ.gda.pl> 329 ;; Maintainer: Wlodek Bzyl <matwb@univ.gda.pl>
330 ;; Keywords: multilingual, Polish 330 ;; Keywords: multilingual, Polish
336 (nonascii-translation . iso-8859-2) 336 (nonascii-translation . iso-8859-2)
337 (input-method . "polish-slash") 337 (input-method . "polish-slash")
338 (unibyte-syntax . "latin-2") 338 (unibyte-syntax . "latin-2")
339 (unibyte-display . iso-8859-2) 339 (unibyte-display . iso-8859-2)
340 (tutorial . "TUTORIAL.pl") 340 (tutorial . "TUTORIAL.pl")
341 (sample-text . "P,Bs(Bjd,B<(B, ki,Bq(B-,B?(Be t,Bj(B chmurno,B6f(B w g,B31(Bb flaszy") 341 (sample-text . "P,As(Bjd,B<(B, ki,Bq(B-,B?(Be t,Bj(B chmurno,B6f(B w g,B31(Bb flaszy")
342 (documentation . t)) 342 (documentation . t))
343 '("European")) 343 '("European"))
344 344
345 (set-language-info-alist 345 (set-language-info-alist
346 "Welsh" `((coding-system utf-8 latin-8) ; the input method is Unicode-based 346 "Welsh" `((coding-system utf-8 latin-8) ; the input method is Unicode-based