1 ;;; greek.el --- support for Greek
3 ;; Copyright (C) 2002, 2013-2014 Free Software Foundation, Inc.
4 ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
5 ;; 2005, 2006, 2007, 2008, 2009, 2010, 2011
6 ;; National Institute of Advanced Industrial Science and Technology (AIST)
7 ;; Registration Number H14PRO021
10 ;; National Institute of Advanced Industrial Science and Technology (AIST)
11 ;; Registration Number H13PRO009
13 ;; Keywords: multilingual, Greek
15 ;; This file is part of GNU Emacs.
17 ;; GNU Emacs is free software: you can redistribute it and/or modify
18 ;; it under the terms of the GNU General Public License as published by
19 ;; the Free Software Foundation, either version 3 of the License, or
20 ;; (at your option) any later version.
22 ;; GNU Emacs is distributed in the hope that it will be useful,
23 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
24 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
25 ;; GNU General Public License for more details.
27 ;; You should have received a copy of the GNU General Public License
28 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
32 ;; For Greek, the character set ISO8859-7 is supported.
36 (define-coding-system 'greek-iso-8bit
37 "ISO 2022 based 8-bit encoding for Greek (MIME:ISO-8859-7)."
40 :charset-list
'(iso-8859-7)
41 :mime-charset
'iso-8859-7
)
43 (define-coding-system-alias 'iso-8859-7
'greek-iso-8bit
)
45 (define-coding-system 'windows-1253
46 "windows-1253 encoding for Greek"
49 :charset-list
'(windows-1253)
50 :mime-charset
'windows-1253
)
51 (define-coding-system-alias 'cp1253
'windows-1253
)
53 (define-coding-system 'cp737
54 "Codepage 737 (PC Greek)"
57 :charset-list
'(cp737)
60 (define-coding-system 'cp851
61 "DOS codepage 851 (Greek)"
64 :charset-list
'(cp851)
66 (define-coding-system-alias 'ibm851
'cp851
)
68 (define-coding-system 'cp869
69 "DOS codepage 869 (Greek)"
72 :charset-list
'(cp869)
74 (define-coding-system-alias 'ibm869
'cp869
)
76 (set-language-info-alist
77 "Greek" '((charset iso-8859-7
)
78 (coding-system greek-iso-8bit windows-1253 cp851 cp869
)
79 (coding-priority greek-iso-8bit
)
80 (nonascii-translation . iso-8859-7
)
81 (input-method .
"greek")
86 ;;; greek.el ends here