28 |
|
|
29 |
;;; Code: |
;;; Code: |
30 |
|
|
31 |
(make-coding-system |
(define-coding-system 'greek-iso-8bit |
32 |
'greek-iso-8bit 2 ?7 |
"ISO 2022 based 8-bit encoding for Greek (MIME:ISO-8859-7)." |
33 |
"ISO 2022 based 8-bit encoding for Greek (MIME:ISO-8859-7)." |
:coding-type 'charset |
34 |
'(ascii greek-iso8859-7 nil nil |
:mnemonic ?7 |
35 |
nil nil nil nil nil nil nil) |
:charset-list'(iso-8859-7) |
36 |
'((safe-charsets ascii greek-iso8859-7) |
:plist '(mime-charset iso-8859-7)) |
|
(mime-charset . iso-8859-7))) |
|
37 |
|
|
38 |
(define-coding-system-alias 'iso-8859-7 'greek-iso-8bit) |
(define-coding-system-alias 'iso-8859-7 'greek-iso-8bit) |
39 |
|
|
40 |
(set-language-info-alist |
(set-language-info-alist |
41 |
"Greek" '((charset . (greek-iso8859-7)) |
"Greek" '((charset iso-8859-7) |
42 |
(coding-system . (greek-iso-8bit)) |
(coding-system . (greek-iso-8bit)) |
43 |
(coding-priority greek-iso-8bit) |
(coding-priority greek-iso-8bit) |
44 |
(nonascii-translation . greek-iso8859-7) |
(nonascii-translation . iso-8859-7) |
45 |
(input-method . "greek") |
(input-method . "greek") |
46 |
(unibyte-display . greek-iso-8bit) |
(unibyte-display . greek-iso-8bit) |
47 |
(documentation . t))) |
(documentation . t))) |