diff options
| author | Dave Love <fx@gnu.org> | 2002-09-07 23:56:18 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 2002-09-07 23:56:18 +0000 |
| commit | 24d510149ee2bb6b3c64634634c8bb2b4fd3c54c (patch) | |
| tree | 155f4332e7ca843fd3adc1c96a70b099eba692fe | |
| parent | 3da49758ca6446933a6d3aec7786e64c3a50164a (diff) | |
| download | emacs-24d510149ee2bb6b3c64634634c8bb2b4fd3c54c.tar.gz | |
(cp858): New.
("Turkish"): Add special case rules.
| -rw-r--r-- | lisp/language/european.el | 20 |
1 files changed, 19 insertions, 1 deletions
diff --git a/lisp/language/european.el b/lisp/language/european.el index 49735d8b819..d6c51d8a89a 100644 --- a/lisp/language/european.el +++ b/lisp/language/european.el @@ -348,6 +348,13 @@ Latin-9 is sometimes nicknamed `Latin-0'.")) :mime-charset 'cp857) (define-coding-system-alias 'ibm857 'cp857) +(define-coding-system 'cp858 + "Codepage 858 (Multilingual Latin I + Euro)" + :coding-type 'charset + :mnemonic ?D + :charset-list '(cp858) + :mime-charset 'cp858) + (define-coding-system 'cp860 "DOS codepage 860 (Portuguese)" :coding-type 'charset @@ -479,7 +486,18 @@ but it selects the Dutch tutorial and input method.")) (unibyte-display . iso-latin-5) (input-method . "turkish-postfix") (sample-text . "Turkish (T,A|(Brk,Ag(Be) Merhaba") - (documentation . t))) + (setup-function + . (lambda () + (set-case-syntax-pair ?I ?,C9(B (standard-case-table)) + (set-case-syntax-pair ?,C)(B ?i (standard-case-table)))) + (exit-function + . (lambda () + (set-case-syntax-pair ?I ?i (standard-case-table)) + (set-case-syntax ?,C9(B "w" (standard-case-table)) + (set-case-syntax ?,C)(B "w" (standard-case-table)))) + (documentation . "Support for Turkish. +Differs from the Latin-5 environment in using the `turkish-postfix' input +method and applying Turkish case rules for the characters i, I, ,C9(B, ,C)(B."))) ;; Polish ISO 8859-2 environment. ;; Maintainer: Wlodek Bzyl <matwb@univ.gda.pl> |