Mercurial > emacs
comparison lisp/language/european.el @ 89088:7d361fc41696
(cp858): New.
("Turkish"): Add special case rules.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Sat, 07 Sep 2002 23:56:18 +0000 |
| parents | 7618cfcfaeea |
| children | a2fead5d3c2e |
comparison
equal
deleted
inserted
replaced
| 89087:bab63e51dbaa | 89088:7d361fc41696 |
|---|---|
| 346 :mnemonic ?D | 346 :mnemonic ?D |
| 347 :charset-list '(cp857) | 347 :charset-list '(cp857) |
| 348 :mime-charset 'cp857) | 348 :mime-charset 'cp857) |
| 349 (define-coding-system-alias 'ibm857 'cp857) | 349 (define-coding-system-alias 'ibm857 'cp857) |
| 350 | 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 | |
| 351 (define-coding-system 'cp860 | 358 (define-coding-system 'cp860 |
| 352 "DOS codepage 860 (Portuguese)" | 359 "DOS codepage 860 (Portuguese)" |
| 353 :coding-type 'charset | 360 :coding-type 'charset |
| 354 :mnemonic ?D | 361 :mnemonic ?D |
| 355 :charset-list '(cp860) | 362 :charset-list '(cp860) |
| 477 (nonascii-translation . iso-8859-9) | 484 (nonascii-translation . iso-8859-9) |
| 478 (unibyte-syntax . "latin-5") | 485 (unibyte-syntax . "latin-5") |
| 479 (unibyte-display . iso-latin-5) | 486 (unibyte-display . iso-latin-5) |
| 480 (input-method . "turkish-postfix") | 487 (input-method . "turkish-postfix") |
| 481 (sample-text . "Turkish (T,A|(Brk,Ag(Be) Merhaba") | 488 (sample-text . "Turkish (T,A|(Brk,Ag(Be) Merhaba") |
| 482 (documentation . t))) | 489 (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."))) | |
| 483 | 501 |
| 484 ;; Polish ISO 8859-2 environment. | 502 ;; Polish ISO 8859-2 environment. |
| 485 ;; Maintainer: Wlodek Bzyl <matwb@univ.gda.pl> | 503 ;; Maintainer: Wlodek Bzyl <matwb@univ.gda.pl> |
| 486 ;; Keywords: multilingual, Polish | 504 ;; Keywords: multilingual, Polish |
| 487 | 505 |