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

   1 ;;; romanian.el --- support for Romanian -*- coding: iso-latin-2; no-byte-compile: t -*-
   2
   3 ;; Copyright (C) 1998, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011
   4 ;;   Free Software Foundation.
   5
   6 ;; Author:    Dan Nicolaescu <done@ece.arizona.edu>
   7 ;; Keywords: multilingual, Romanian, 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 ;; Romanian ISO 8859-2 environment plus 8859-16 coding system.
  27
  28 ;;; Code:
  29
  30 (set-language-info-alist
  31  "Romanian" '((charset iso-8859-2)
  32               (coding-system iso-8859-2 iso-latin-10)
  33               (coding-priority iso-8859-2)
  34               (nonascii-translation . iso-8859-2)
  35               (input-method . "latin-2-postfix")
  36               (unibyte-display . iso-8859-2)
  37               (tutorial . "TUTORIAL.ro")
  38               (sample-text . "Bunã ziua, bine aþi venit!")
  39               (documentation . "Rmoanian environment using Latin-2 encoding.
  40 An environment for generic Latin-10 encoding is also available."))
  41  '("European"))
  42
  43 (define-coding-system 'iso-latin-10
  44   "ISO 2022 based 8-bit encoding for Latin-10."
  45   :coding-type 'charset
  46   :mnemonic ?*
  47   :charset-list '(iso-8859-16)
  48   :mime-charset 'iso-8859-16)
  49
  50 (define-coding-system-alias 'iso-8859-16 'iso-latin-10)
  51 (define-coding-system-alias 'latin-10 'iso-latin-10)
  52
  53 (provide 'romanian)
  54
  55 ;; arch-tag: a0bf93ee-2f02-4678-a477-c08acc35366b
  56 ;;; romanian.el ends here