cgit.sxemacs.org Git - sxemacs/blob - lisp/mule/greek.el

   1 ;;; greek.el --- Support for Greek
   2
   3 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
   4 ;; Licensed to the Free Software Foundation.
   5 ;; Copyright (C) 1997 MORIOKA Tomohiko
   6
   7 ;; Keywords: multilingual, Greek
   8
   9 ;; This file is part of SXEmacs.
  10
  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.
  15
  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.
  20
  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/>.
  23
  24 ;;; Commentary:
  25
  26 ;; For Greek, the character set ISO8859-7 is supported.
  27
  28 ;;; Code:
  29
  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= ".")
  37
  38
  39 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  40 ;;; GREEK
  41 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  42
  43 \f
  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)))
  51
  52 ;; (define-coding-system-alias 'iso-8859-7 'greek-iso-8bit)
  53
  54 (make-coding-system
  55  'iso-8859-7 'iso2022 "MIME ISO-8859-7"
  56  '(charset-g0 ascii
  57    charset-g1 greek-iso8859-7
  58    charset-g2 t
  59    charset-g3 t
  60    mnemonic "Grk"
  61    ))
  62
  63 (defun setup-greek-environment ()
  64   "Setup multilingual environment (MULE) for Greek."
  65   (interactive)
  66   (set-language-environment "Greek"))
  67
  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")
  74            (documentation . t)))
  75
  76 ;;; greek.el ends here