Mercurial > emacs
changeset 88617:93cfa81ccf00
(cp852, ibm852, cp857, ibm857, cp860)
(ibm860, cp861, ibm861, cp863, cp865, ibm865, cp437, ibm437): New
coding systems.
<set-language-info-alist>: Avoid decode-char.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Thu, 23 May 2002 18:20:26 +0000 |
| parents | 1e2984f890a6 |
| children | bc872894c0a7 |
| files | lisp/language/european.el |
| diffstat | 1 files changed, 58 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/language/european.el Thu May 23 18:20:14 2002 +0000 +++ b/lisp/language/european.el Thu May 23 18:20:26 2002 +0000 @@ -331,6 +331,62 @@ :charset-list '(cp850) :mime-charset 'cp850) (define-coding-system-alias 'ibm850 'cp850) + +(define-coding-system 'cp852 + "DOS codepage 852 (Slavic)" + :coding-type 'charset + :mnemonic ?D + :charset-list '(cp852) + :mime-charset 'cp852) +(define-coding-system-alias 'ibm852 'cp852) + +(define-coding-system 'cp857 + "DOS codepage 857 (Turkish)" + :coding-type 'charset + :mnemonic ?D + :charset-list '(cp857) + :mime-charset 'cp857) +(define-coding-system-alias 'ibm857 'cp857) + +(define-coding-system 'cp860 + "DOS codepage 860 (Portuguese)" + :coding-type 'charset + :mnemonic ?D + :charset-list '(cp860) + :mime-charset 'cp860) +(define-coding-system-alias 'ibm860 'cp860) + +(define-coding-system 'cp861 + "DOS codepage 861 (Icelandic)" + :coding-type 'charset + :mnemonic ?D + :charset-list '(cp861) + :mime-charset 'cp861) +(define-coding-system-alias 'ibm861 'cp861) + +(define-coding-system 'cp863 + "DOS codepage 863 (French Canadian)" + :coding-type 'charset + :mnemonic ?D + :charset-list '(cp863) + :mime-charset 'cp863) +(define-coding-system-alias 'ibm863 'cp863) + +(define-coding-system 'cp865 + "DOS codepage 865 (Norwegian/Danish)" + :coding-type 'charset + :mnemonic ?D + :charset-list '(cp865) + :mime-charset 'cp865) +(define-coding-system-alias 'ibm865 'cp865) + +(define-coding-system 'cp437 + "DOS codepage 437" + :coding-type 'charset + :mnemonic ?D + :charset-list '(cp437) + :mime-charset 'cp437) +(define-coding-system-alias 'ibm437 'cp437) (set-language-info-alist "German" '((tutorial . "TUTORIAL.de") @@ -551,11 +607,11 @@ (let ((patterns '(("\\C^\\c^+" . diacritic-composition-function)))) (let ((c #x300)) (while (<= c #x362) - (aset composition-function-table (decode-char 'unicode c) patterns) + (aset composition-function-table c patterns) (setq c (1+ c))) (setq c #x20d0) (while (<= c #x20e3) - (aset composition-function-table (decode-char 'unicode c) patterns) + (aset composition-function-table c patterns) (setq c (1+ c))))) (provide 'european)