code.delx.au - gnu-emacs/blob - lisp/language/georgian.el

   1 ;;; georgian.el --- language support for Georgian -*- no-byte-compile: t -*-
   2
   3 ;; Copyright (C) 2001-2011
   4 ;;   Free Software Foundation, Inc.
   5
   6 ;; Author: Dave Love <fx@gnu.org>
   7 ;; Keywords: i18n
   8
   9 ;; This file is part of GNU Emacs.
  10
  11 ;; GNU Emacs 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 ;; GNU Emacs 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 GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
  23
  24 ;;; Commentary:
  25
  26 ;;; Code:
  27
  28 (define-coding-system 'georgian-ps
  29   "Georgian PS encoding"
  30   :coding-type 'charset
  31   :mnemonic ?G
  32   :charset-list '(georgian-ps))
  33
  34 (define-coding-system 'georgian-academy
  35   "Georgian Academy encoding"
  36   :coding-type 'charset
  37   :mnemonic ?G
  38   :charset-list '(georgian-academy))
  39
  40 (set-language-info-alist
  41  "Georgian" `((coding-system georgian-ps)
  42               (coding-priority georgian-ps)
  43               (input-method . "georgian")
  44               (nonascii-translation . georgian-ps)
  45               (documentation . "Support for georgian-ps character set."))
  46  '("European"))                         ; fixme: is this appropriate for
  47                                         ; a non-Latin script?
  48
  49 (provide 'georgian)
  50
  51 ;;; georgian.el ends here