Mercurial > emacs

comparison lisp/language/european.el @ 88561:e63aa0be6e95

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(windows-1254, cp1254, windows-1257) (cp1257, next, iso-latin-7, iso-8859-13, latin-7): New coding systems. ("Latin-7", "Lithuanian", "Latvian"): Don't require code-pages. (iso-latin-7):
author Dave Love <fx@gnu.org>
date Fri, 17 May 2002 20:16:14 +0000
parents 6411031426af
children c982147b17d7
comparison
equal deleted inserted replaced
88560:23939ff55df7 88561:e63aa0be6e95
23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
24 ;; Boston, MA 02111-1307, USA. 24 ;; Boston, MA 02111-1307, USA.
25 25
26 ;;; Commentary: 26 ;;; Commentary:
27 27
28 ;; For European scripts, character sets ISO8859-1,2,3,4,9,14,15 are 28 ;; For European scripts, character sets ISO8859-1,2,3,4,9,13,14,15,
29 ;; supported. 29 ;; windows-1250,2,4,7, mac-roman and next are supported.
30 30
31 ;;; Code: 31 ;;; Code:
32 32
33 ;; Latin-1 (ISO-8859-1) 33 ;; Latin-1 (ISO-8859-1)
34 34
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'."))
234 '("European")) 234 '("European"))
235 235
236 (define-coding-system 'iso-latin-7
237 "ISO 2022 based 8-bit encoding for Latin-7 (MIME:ISO-8859-13)."
238 :coding-type 'charset
239 ;; `0' for `Latin-0'
240 :mnemonic ?*
241 :charset-list '(iso-8859-13)
242 :mime-charset 'iso-8859-13)
243
244 (define-coding-system-alias 'iso-8859-13 'iso-latin-7)
245 (define-coding-system-alias 'latin-7 'iso-latin-7)
246
247 (define-coding-system 'windows-1250
248 "windows-1250 (Central European) encoding (MIME: WINDOWS-1250)"
249 :coding-type 'charset
250 :mnemonic ?*
251 :charset-list '(windows-1250)
252 :mime-charset 'windows-1250)
253 (define-coding-system-alias 'cp1250 'windows-1250)
254
236 (define-coding-system 'windows-1252 255 (define-coding-system 'windows-1252
237 "windows-1252 8-bit encoding for Cyrillic (MIME: WINDOWS-1252)" 256 "windows-1252 (Western European) encoding (MIME: WINDOWS-1252)"
238 :coding-type 'charset 257 :coding-type 'charset
239 :mnemonic ?* 258 :mnemonic ?*
240 :charset-list '(windows-1252) 259 :charset-list '(windows-1252)
241 :mime-charset 'windows-1252) 260 :mime-charset 'windows-1252)
242 (define-coding-system-alias 'cp1252 'windows-1252) 261 (define-coding-system-alias 'cp1252 'windows-1252)
262
263 (define-coding-system 'windows-1254
264 "windows-1254 (Turkish) encoding (MIME: WINDOWS-1254)"
265 :coding-type 'charset
266 :mnemonic ?*
267 :charset-list '(windows-1254)
268 :mime-charset 'windows-1254)
269 (define-coding-system-alias 'cp1254 'windows-1254)
270
271 (define-coding-system 'windows-1257
272 "windows-1257 (Baltic) encoding (MIME: WINDOWS-1257)"
273 :coding-type 'charset
274 :mnemonic ?*
275 :charset-list '(windows-1257)
276 :mime-charset 'windows-1257)
277 (define-coding-system-alias 'cp1257 'windows-1257)
243 278
244 (set-language-info-alist 279 (set-language-info-alist
245 "German" '((tutorial . "TUTORIAL.de") 280 "German" '((tutorial . "TUTORIAL.de")
246 (charset iso-8859-1) 281 (charset iso-8859-1)
247 (coding-system iso-latin-1) 282 (coding-system iso-latin-1)
361 (set-language-info-alist 396 (set-language-info-alist
362 "Latin-7" `((coding-system latin-7) 397 "Latin-7" `((coding-system latin-7)
363 (coding-priority latin-7) 398 (coding-priority latin-7)
364 (nonascii-translation . iso-8859-13) 399 (nonascii-translation . iso-8859-13)
365 ;; Fixme: input-method 400 ;; Fixme: input-method
366 (features code-pages)
367 (documentation . "Support for Latin-7, e.g. Latvian, Lithuanian.")) 401 (documentation . "Support for Latin-7, e.g. Latvian, Lithuanian."))
368 '("European")) 402 '("European"))
369 403
370 (set-language-info-alist 404 (set-language-info-alist
371 "Lithuanian" `((coding-system latin-7) 405 "Lithuanian" `((coding-system latin-7)
372 (coding-priority latin-7) 406 (coding-priority latin-7)
373 (nonascii-translation . iso-8859-13) 407 (nonascii-translation . iso-8859-13)
374 (input-method . "lithuanian-keyboard") 408 (input-method . "lithuanian-keyboard")
375 (features code-pages)
376 (documentation . "Support for Lithuanian.")) 409 (documentation . "Support for Lithuanian."))
377 '("European")) 410 '("European"))
378 411
379 (set-language-info-alist 412 (set-language-info-alist
380 "Latvian" `((coding-system latin-7) 413 "Latvian" `((coding-system latin-7)
381 (coding-priority latin-7) 414 (coding-priority latin-7)
382 (nonascii-translation . iso-8859-13) 415 (nonascii-translation . iso-8859-13)
383 (input-method . "latvian-keyboard") 416 (input-method . "latvian-keyboard")
384 (features code-pages)
385 (documentation . "Support for Latvian.")) 417 (documentation . "Support for Latvian."))
386 '("European")) 418 '("European"))
387 419
388 420
389 (define-coding-system 'mac-roman 421 (define-coding-system 'mac-roman
392 :mnemonic ?M 424 :mnemonic ?M
393 :charset-list '(mac-roman) 425 :charset-list '(mac-roman)
394 ;; per IANA, rfc1345 426 ;; per IANA, rfc1345
395 :mime-charset 'macintosh) 427 :mime-charset 'macintosh)
396 428
429 (define-coding-system 'next
430 "NeXTstep encoding"
431 :coding-type 'charset
432 :mnemonic ?*
433 :charset-list '(next)
434 :mime-charset 'next)
435
397 (defconst diacritic-composition-pattern "\\C^\\c^+") 436 (defconst diacritic-composition-pattern "\\C^\\c^+")
398 437
399 (defun diacritic-compose-region (beg end) 438 (defun diacritic-compose-region (beg end)
400 "Compose diacritic characters in the region. 439 "Compose diacritic characters in the region.
401 When called from a program, expects two arguments, 440 When called from a program, expects two arguments,