Sync to HEAD

[bpt/emacs.git] / lisp / language / romanian.el

diff --git a/lisp/language/romanian.el b/lisp/language/romanian.el
index 939643a..ef7e4cf 100644 (file)
--- a/lisp/language/romanian.el
+++ b/lisp/language/romanian.el
@@ -1,9 +1,9 @@
-;;; romanian.el --- Support for Romanian -*- coding: iso-latin-2; -*-
+;;; romanian.el --- support for Romanian -*- coding: iso-latin-2; no-byte-compile: t -*-
 
-;; Copyright (C) 1998 Free Software Foundation.
+;; Copyright (C) 1998, 2002 Free Software Foundation.
 
 ;; Author:    Dan Nicolaescu <done@ece.arizona.edu>
-;; Keywords: multilingual, Romanian
+;; Keywords: multilingual, Romanian, i18n
 
 ;; This file is part of GNU Emacs.
 
@@ -24,28 +24,34 @@
 
 ;;; Commentary:
 
-;; Romanian ISO 8859-2 environment.
+;; Romanian ISO 8859-2 environment plus 8859-16 coding system.
 
 ;;; Code:
 
-(defun setup-romanian-environment ()
-  "Setup multilingual environment (MULE) for Romanian."
-  (interactive)
-  (set-language-environment "Romanian"))
-
 (set-language-info-alist
- "Romanian" '((charset . (ascii latin-iso8859-2))
-             (coding-system . (iso-8859-2))
-             (coding-priority . (iso-8859-2))
-             (nonascii-translation . latin-iso8859-2)
+ "Romanian" '((charset iso-8859-2)
+             (coding-system iso-8859-2 iso-latin-10)
+             (coding-priority iso-8859-2)
+             (nonascii-translation . iso-8859-2)
              (input-method . "latin-2-postfix")
-             (unibyte-syntax . "latin-2")
              (unibyte-display . iso-8859-2)
+             (tutorial . "TUTORIAL.ro")
              (sample-text . "Bunã ziua, bine aþi venit!")
-             (documentation . t))
+             (documentation . "Rmoanian environment using Latin-2 encoding.
+An environment for generic Latin-10 encoding is also available."))
  '("European"))
 
-(provide 'romanian)
+(define-coding-system 'iso-latin-10
+  "ISO 2022 based 8-bit encoding for Latin-10."
+  :coding-type 'charset
+  :mnemonic ?*
+  :charset-list '(iso-8859-16)
+  :mime-charset 'iso-8859-16)
 
-;; romanian.el ends here
+(define-coding-system-alias 'iso-8859-16 'iso-latin-10)
+(define-coding-system-alias 'latin-10 'iso-latin-10)
+
+(provide 'romanian)
 
+;;; arch-tag: a0bf93ee-2f02-4678-a477-c08acc35366b
+;;; romanian.el ends here