1 ;;; greek.el --- Support for Greek
3 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
4 ;; Licensed to the Free Software Foundation.
5 ;; Copyright (C) 1997 MORIOKA Tomohiko
7 ;; Keywords: multilingual, Greek
9 ;; This file is part of SXEmacs.
11 ;; SXEmacs is free software: you can redistribute it and/or modify
12 ;; it under the terms of the GNU General Public License as published by
13 ;; the Free Software Foundation, either version 3 of the License, or
14 ;; (at your option) any later version.
16 ;; SXEmacs is distributed in the hope that it will be useful,
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19 ;; GNU General Public License for more details.
21 ;; You should have received a copy of the GNU General Public License
22 ;; along with this program. If not, see <http://www.gnu.org/licenses/>.
26 ;; For Greek, the character set ISO8859-7 is supported.
30 ;; For syntax of Greek
31 (loop for c from 54 to 126
32 do (modify-syntax-entry (make-char 'greek-iso8859-7 c) "w"))
33 (modify-syntax-entry (make-char 'greek-iso8859-7 32) "w") ; no-break space
34 (modify-syntax-entry ?
\e.F
\eN7 ".")
35 (modify-syntax-entry ?
\eN; ".")
36 (modify-syntax-entry ?
\eN= ".")
39 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
41 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
44 ;; (make-coding-system
45 ;; 'greek-iso-8bit 2 ?7
46 ;; "ISO 2022 based 8-bit encoding for Greek (MIME:ISO-8859-7)"
47 ;; '(ascii greek-iso8859-7 nil nil
48 ;; nil nil nil nil nil nil nil)
49 ;; '((safe-charsets ascii greek-iso8859-7)
50 ;; (mime-charset . iso-8859-7)))
52 ;; (define-coding-system-alias 'iso-8859-7 'greek-iso-8bit)
55 'iso-8859-7 'iso2022 "MIME ISO-8859-7"
57 charset-g1 greek-iso8859-7
63 (defun setup-greek-environment ()
64 "Setup multilingual environment (MULE) for Greek."
66 (set-language-environment "Greek"))
68 (set-language-info-alist
69 "Greek" '((charset greek-iso8859-7)
70 (coding-system iso-8859-7)
71 (coding-priority iso-8859-7)
72 (input-method . "greek")
73 (sample-text . "Greek (
\eNG
\eNk
\eNk
\eN]
\eNm
\eNi
\eNj
\eNa)
\eNC
\eNe
\eNi
\eN\
\eNs
\eNa
\eNr")
76 ;;; greek.el ends here