1 |
;;; romanian.el --- support for Romanian -*- coding: iso-latin-2; no-byte-compile: t -*- |
;;; romanian.el --- support for Romanian -*- coding: iso-latin-2; no-byte-compile: t -*- |
2 |
|
|
3 |
;; Copyright (C) 1998 Free Software Foundation. |
;; Copyright (C) 1998, 2002 Free Software Foundation. |
4 |
|
|
5 |
;; Author: Dan Nicolaescu <done@ece.arizona.edu> |
;; Author: Dan Nicolaescu <done@ece.arizona.edu> |
6 |
;; Keywords: multilingual, Romanian |
;; Keywords: multilingual, Romanian, i18n |
7 |
|
|
8 |
;; This file is part of GNU Emacs. |
;; This file is part of GNU Emacs. |
9 |
|
|
24 |
|
|
25 |
;;; Commentary: |
;;; Commentary: |
26 |
|
|
27 |
;; Romanian ISO 8859-2 environment. |
;; Romanian ISO 8859-2 environment plus 8859-16 coding system. |
28 |
|
|
29 |
;;; Code: |
;;; Code: |
30 |
|
|
31 |
(set-language-info-alist |
(set-language-info-alist |
32 |
"Romanian" '((charset . (ascii latin-iso8859-2)) |
"Romanian" '((charset iso-8859-2) |
33 |
(coding-system . (iso-8859-2)) |
(coding-system iso-8859-2 iso-latin-10) |
34 |
(coding-priority . (iso-8859-2)) |
(coding-priority iso-8859-2) |
35 |
(nonascii-translation . latin-iso8859-2) |
(nonascii-translation . iso-8859-2) |
36 |
(input-method . "latin-2-postfix") |
(input-method . "latin-2-postfix") |
|
(unibyte-syntax . "latin-2") |
|
37 |
(unibyte-display . iso-8859-2) |
(unibyte-display . iso-8859-2) |
38 |
(tutorial . "TUTORIAL.ro") |
(tutorial . "TUTORIAL.ro") |
39 |
(sample-text . "Bună ziua, bine ați venit!") |
(sample-text . "Bună ziua, bine ați venit!") |
40 |
(documentation . t)) |
(documentation . "Rmoanian environment using Latin-2 encoding. |
41 |
|
An environment for generic Latin-10 encoding is also available.")) |
42 |
'("European")) |
'("European")) |
43 |
|
|
44 |
|
(define-coding-system 'iso-latin-10 |
45 |
|
"ISO 2022 based 8-bit encoding for Latin-10." |
46 |
|
:coding-type 'charset |
47 |
|
:mnemonic ?* |
48 |
|
:charset-list '(iso-8859-16) |
49 |
|
:mime-charset 'iso-8859-16) |
50 |
|
|
51 |
|
(define-coding-system-alias 'iso-8859-16 'iso-latin-10) |
52 |
|
(define-coding-system-alias 'latin-10 'iso-latin-10) |
53 |
|
|
54 |
(provide 'romanian) |
(provide 'romanian) |
55 |
|
|
56 |
;;; romanian.el ends here |
;;; romanian.el ends here |