1 |
;;; greek.el --- support for Greek -*- no-byte-compile: t -*- |
;;; greek.el --- support for Greek -*- no-byte-compile: t -*- |
2 |
|
|
3 |
;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. |
;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. |
4 |
;; Licensed to the Free Software Foundation. |
;; Licensed to the Free Software Foundation. |
5 |
|
;; Copyright (C) 2002 Free Software Foundation, Inc. |
6 |
|
;; Copyright (C) 2003 |
7 |
|
;; National Institute of Advanced Industrial Science and Technology (AIST) |
8 |
|
;; Registration Number H13PRO009 |
9 |
|
|
10 |
;; Keywords: multilingual, Greek |
;; Keywords: multilingual, Greek |
11 |
|
|
32 |
|
|
33 |
;;; Code: |
;;; Code: |
34 |
|
|
35 |
(make-coding-system |
(define-coding-system 'greek-iso-8bit |
36 |
'greek-iso-8bit 2 ?7 |
"ISO 2022 based 8-bit encoding for Greek (MIME:ISO-8859-7)." |
37 |
"ISO 2022 based 8-bit encoding for Greek (MIME:ISO-8859-7)." |
:coding-type 'charset |
38 |
'(ascii greek-iso8859-7 nil nil |
:mnemonic ?7 |
39 |
nil nil nil nil nil nil nil nil nil nil nil t) |
:charset-list '(iso-8859-7) |
40 |
'((safe-charsets ascii greek-iso8859-7) |
:mime-charset 'iso-8859-7) |
|
(mime-charset . iso-8859-7))) |
|
41 |
|
|
42 |
(define-coding-system-alias 'iso-8859-7 'greek-iso-8bit) |
(define-coding-system-alias 'iso-8859-7 'greek-iso-8bit) |
43 |
|
|
44 |
|
(define-coding-system 'windows-1253 |
45 |
|
"windows-1253 encoding for Greek" |
46 |
|
:coding-type 'charset |
47 |
|
:mnemonic ?g |
48 |
|
:charset-list '(windows-1253) |
49 |
|
:mime-charset 'windows-1253) |
50 |
|
(define-coding-system-alias 'cp1253 'windows-1253) |
51 |
|
|
52 |
|
(define-coding-system 'cp737 |
53 |
|
"Codepage 737 (PC Greek)" |
54 |
|
:coding-type 'charset |
55 |
|
:mnemonic ?D |
56 |
|
:charset-list '(cp737) |
57 |
|
:mime-charset 'cp737) |
58 |
|
|
59 |
|
(define-coding-system 'cp851 |
60 |
|
"DOS codepage 851 (Greek)" |
61 |
|
:coding-type 'charset |
62 |
|
:mnemonic ?D |
63 |
|
:charset-list '(cp851) |
64 |
|
:mime-charset 'cp851) |
65 |
|
(define-coding-system-alias 'ibm851 'cp851) |
66 |
|
|
67 |
|
(define-coding-system 'cp869 |
68 |
|
"DOS codepage 869 (Greek)" |
69 |
|
:coding-type 'charset |
70 |
|
:mnemonic ?D |
71 |
|
:charset-list '(cp869) |
72 |
|
:mime-charset 'cp869) |
73 |
|
(define-coding-system-alias 'ibm869 'cp869) |
74 |
|
|
75 |
(set-language-info-alist |
(set-language-info-alist |
76 |
"Greek" '((charset . (greek-iso8859-7)) |
"Greek" '((charset iso-8859-7) |
77 |
(coding-system . (greek-iso-8bit)) |
(coding-system greek-iso-8bit windows-1253 cp851 cp869) |
78 |
(coding-priority greek-iso-8bit) |
(coding-priority greek-iso-8bit) |
79 |
(nonascii-translation . greek-iso8859-7) |
(nonascii-translation . iso-8859-7) |
80 |
(input-method . "greek") |
(input-method . "greek") |
|
(unibyte-display . greek-iso-8bit) |
|
81 |
(documentation . t))) |
(documentation . t))) |
82 |
|
|
83 |
(provide 'greek) |
(provide 'greek) |