Mercurial > emacs

comparison lisp/language/romanian.el @ 89483:2f877ed80fa6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Kenichi Handa <handa@m17n.org>
date Mon, 08 Sep 2003 12:53:41 +0000
parents 375f2633d815 a7bf29fe1e61
children 68c22ea6027c
comparison
equal deleted inserted replaced
88123:375f2633d815 89483:2f877ed80fa6
1 ;;; romanian.el --- support for Romanian -*- coding: iso-latin-2; no-byte-compile: t -*- 1 ;;; romanian.el --- support for Romanian -*- coding: iso-latin-2; no-byte-compile: t -*-
2 2
3 ;; Copyright (C) 1998 Free Software Foundation. 3 ;; Copyright (C) 1998, 2002 Free Software Foundation.
4 4
5 ;; Author: Dan Nicolaescu <done@ece.arizona.edu> 5 ;; Author: Dan Nicolaescu <done@ece.arizona.edu>
6 ;; Keywords: multilingual, Romanian 6 ;; Keywords: multilingual, Romanian, i18n
7 7
8 ;; This file is part of GNU Emacs. 8 ;; This file is part of GNU Emacs.
9 9
10 ;; GNU Emacs is free software; you can redistribute it and/or modify 10 ;; GNU Emacs is free software; you can redistribute it and/or modify
11 ;; it under the terms of the GNU General Public License as published by 11 ;; it under the terms of the GNU General Public License as published by
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
23 ;; Boston, MA 02111-1307, USA. 23 ;; Boston, MA 02111-1307, USA.
24 24
25 ;;; Commentary: 25 ;;; Commentary:
26 26
27 ;; Romanian ISO 8859-2 environment. 27 ;; Romanian ISO 8859-2 environment plus 8859-16 coding system.
28 28
29 ;;; Code: 29 ;;; Code:
30 30
31 (set-language-info-alist 31 (set-language-info-alist
32 "Romanian" '((charset . (ascii latin-iso8859-2)) 32 "Romanian" '((charset iso-8859-2)
33 (coding-system . (iso-8859-2)) 33 (coding-system iso-8859-2 iso-latin-10)
34 (coding-priority . (iso-8859-2)) 34 (coding-priority iso-8859-2)
35 (nonascii-translation . latin-iso8859-2) 35 (nonascii-translation . iso-8859-2)
36 (input-method . "latin-2-postfix") 36 (input-method . "latin-2-postfix")
37 (unibyte-syntax . "latin-2")
38 (unibyte-display . iso-8859-2) 37 (unibyte-display . iso-8859-2)
39 (tutorial . "TUTORIAL.ro") 38 (tutorial . "TUTORIAL.ro")
40 (sample-text . "Bună ziua, bine ați venit!") 39 (sample-text . "Bună ziua, bine ați venit!")
41 (documentation . t)) 40 (documentation . "Rmoanian environment using Latin-2 encoding.
41 An environment for generic Latin-10 encoding is also available."))
42 '("European")) 42 '("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)
43 53
44 (provide 'romanian) 54 (provide 'romanian)
45 55
46 ;;; romanian.el ends here 56 ;;; romanian.el ends here