348 |
:mime-charset 'cp857) |
:mime-charset 'cp857) |
349 |
(define-coding-system-alias 'ibm857 'cp857) |
(define-coding-system-alias 'ibm857 'cp857) |
350 |
|
|
351 |
|
(define-coding-system 'cp858 |
352 |
|
"Codepage 858 (Multilingual Latin I + Euro)" |
353 |
|
:coding-type 'charset |
354 |
|
:mnemonic ?D |
355 |
|
:charset-list '(cp858) |
356 |
|
:mime-charset 'cp858) |
357 |
|
|
358 |
(define-coding-system 'cp860 |
(define-coding-system 'cp860 |
359 |
"DOS codepage 860 (Portuguese)" |
"DOS codepage 860 (Portuguese)" |
360 |
:coding-type 'charset |
:coding-type 'charset |
486 |
(unibyte-display . iso-latin-5) |
(unibyte-display . iso-latin-5) |
487 |
(input-method . "turkish-postfix") |
(input-method . "turkish-postfix") |
488 |
(sample-text . "Turkish (T,A|(Brk,Ag(Be) Merhaba") |
(sample-text . "Turkish (T,A|(Brk,Ag(Be) Merhaba") |
489 |
(documentation . t))) |
(setup-function |
490 |
|
. (lambda () |
491 |
|
(set-case-syntax-pair ?I ?,C9(B (standard-case-table)) |
492 |
|
(set-case-syntax-pair ?,C)(B ?i (standard-case-table)))) |
493 |
|
(exit-function |
494 |
|
. (lambda () |
495 |
|
(set-case-syntax-pair ?I ?i (standard-case-table)) |
496 |
|
(set-case-syntax ?,C9(B "w" (standard-case-table)) |
497 |
|
(set-case-syntax ?,C)(B "w" (standard-case-table)))) |
498 |
|
(documentation . "Support for Turkish. |
499 |
|
Differs from the Latin-5 environment in using the `turkish-postfix' input |
500 |
|
method and applying Turkish case rules for the characters i, I, ,C9(B, ,C)(B."))) |
501 |
|
|
502 |
;; Polish ISO 8859-2 environment. |
;; Polish ISO 8859-2 environment. |
503 |
;; Maintainer: Wlodek Bzyl <matwb@univ.gda.pl> |
;; Maintainer: Wlodek Bzyl <matwb@univ.gda.pl> |