/[emacs]/emacs/lisp/language/romanian.el
ViewVC logotype

Diff of /emacs/lisp/language/romanian.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.9 by lektu, Tue Oct 1 16:59:43 2002 UTC revision 1.9.6.1 by handa, Mon Sep 8 12:53:41 2003 UTC
# Line 1  Line 1 
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    
# Line 24  Line 24 
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

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.9.6.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26