Merge from emacs--devo--0

[gnu-emacs] / lisp / language / romanian.el

diff --git a/lisp/language/romanian.el b/lisp/language/romanian.el
index 9776fe23464a8a24e2b24c4a699b6af86565109c..6bc7154ef467192ce4c782419675671c38e3cb64 100644 (file)
--- a/lisp/language/romanian.el
+++ b/lisp/language/romanian.el
@@ -4,7 +4,7 @@
 ;;   Free Software Foundation.
 
 ;; Author:    Dan Nicolaescu <done@ece.arizona.edu>
-;; Keywords: multilingual, Romanian
+;; Keywords: multilingual, Romanian, i18n
 
 ;; This file is part of GNU Emacs.
 
@@ -25,23 +25,33 @@
 
 ;;; Commentary:
 
-;; Romanian ISO 8859-2 environment.
+;; Romanian ISO 8859-2 environment plus 8859-16 coding system.
 
 ;;; Code:
 
 (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"))
 
+(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)
+
+(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