46 |
:mime-charset 'windows-1253) |
:mime-charset 'windows-1253) |
47 |
(define-coding-system-alias 'cp1253 'windows-1253) |
(define-coding-system-alias 'cp1253 'windows-1253) |
48 |
|
|
49 |
|
(define-coding-system 'cp737 |
50 |
|
"Codepage 737 (PC Greek)" |
51 |
|
:coding-type 'charset |
52 |
|
:mnemonic ?D |
53 |
|
:charset-list '(cp737) |
54 |
|
:mime-charset 'cp737) |
55 |
|
|
56 |
(define-coding-system 'cp851 |
(define-coding-system 'cp851 |
57 |
"DOS codepage 851 (Greek)" |
"DOS codepage 851 (Greek)" |
58 |
:coding-type 'charset |
:coding-type 'charset |
75 |
(coding-priority greek-iso-8bit) |
(coding-priority greek-iso-8bit) |
76 |
(nonascii-translation . iso-8859-7) |
(nonascii-translation . iso-8859-7) |
77 |
(input-method . "greek") |
(input-method . "greek") |
|
(unibyte-display . greek-iso-8bit) |
|
78 |
(documentation . t))) |
(documentation . t))) |
79 |
|
|
80 |
(provide 'greek) |
(provide 'greek) |