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

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

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

revision 1.69.2.1 by handa, Fri Mar 1 02:28:29 2002 UTC revision 1.69.2.2 by fx, Tue May 14 10:20:49 2002 UTC
# Line 2  Line 2 
2    
3  ;; Copyright (C) 1995, 1997, 2001 Electrotechnical Laboratory, JAPAN.  ;; Copyright (C) 1995, 1997, 2001 Electrotechnical Laboratory, JAPAN.
4  ;; Licensed to the Free Software Foundation.  ;; Licensed to the Free Software Foundation.
5  ;; Copyright (C) 2001 Free Software Foundation, Inc.  ;; Copyright (C) 2001, 2002 Free Software Foundation, Inc.
6    
7  ;; Keywords: multilingual, European  ;; Keywords: multilingual, European
8    
# Line 68  Indonesian/Malay, Tagalog (Philippines), Line 68  Indonesian/Malay, Tagalog (Philippines),
68    :coding-type 'charset    :coding-type 'charset
69    :mnemonic ?2    :mnemonic ?2
70    :charset-list '(iso-8859-2)    :charset-list '(iso-8859-2)
71    :plist '(mime-charset iso-8859-2))    :mime-charset 'iso-8859-2)
72    
73  (define-coding-system-alias 'iso-8859-2 'iso-latin-2)  (define-coding-system-alias 'iso-8859-2 'iso-latin-2)
74  (define-coding-system-alias 'latin-2 'iso-latin-2)  (define-coding-system-alias 'latin-2 'iso-latin-2)
# Line 101  We also have specific language environme Line 101  We also have specific language environme
101    :coding-type 'charset    :coding-type 'charset
102    :mnemonic ?3    :mnemonic ?3
103    :charset-list '(iso-8859-3)    :charset-list '(iso-8859-3)
104    :plist '(mime-charset iso-8859-3))    :mime-charset 'iso-8859-3)
105    
106  (define-coding-system-alias 'iso-8859-3 'iso-latin-3)  (define-coding-system-alias 'iso-8859-3 'iso-latin-3)
107  (define-coding-system-alias 'latin-3 'iso-latin-3)  (define-coding-system-alias 'latin-3 'iso-latin-3)
# Line 128  These languages are supported with the L Line 128  These languages are supported with the L
128    :coding-type 'charset    :coding-type 'charset
129    :mnemonic ?4    :mnemonic ?4
130    :charset-list '(iso-8859-4)    :charset-list '(iso-8859-4)
131    :plist '(mime-charset iso-8859-4))    :mime-charset 'iso-8859-4)
132    
133  (define-coding-system-alias 'iso-8859-4 'iso-latin-4)  (define-coding-system-alias 'iso-8859-4 'iso-latin-4)
134  (define-coding-system-alias 'latin-4 'iso-latin-4)  (define-coding-system-alias 'latin-4 'iso-latin-4)
# Line 155  These languages are supported with the L Line 155  These languages are supported with the L
155    :coding-type 'charset    :coding-type 'charset
156    :mnemonic ?9    :mnemonic ?9
157    :charset-list '(iso-8859-9)    :charset-list '(iso-8859-9)
158    :plist '(mime-charset iso-8859-9))    :mime-charset 'iso-8859-9)
159    
160  (define-coding-system-alias 'iso-8859-9 'iso-latin-5)  (define-coding-system-alias 'iso-8859-9 'iso-latin-5)
161  (define-coding-system-alias 'latin-5 'iso-latin-5)  (define-coding-system-alias 'latin-5 'iso-latin-5)
# Line 180  These languages are supported with the L Line 180  These languages are supported with the L
180    ;; `W' for `Welsh', since `C' for `Celtic' is taken.    ;; `W' for `Welsh', since `C' for `Celtic' is taken.
181    :mnemonic ?W                              :mnemonic ?W                          
182    :charset-list '(iso-8859-14)    :charset-list '(iso-8859-14)
183    :plist '(mime-charset iso-8859-14))    :mime-charset 'iso-8859-14)
184    
185  (define-coding-system-alias 'iso-8859-14 'iso-latin-8)  (define-coding-system-alias 'iso-8859-14 'iso-latin-8)
186  (define-coding-system-alias 'latin-8 'iso-latin-8)  (define-coding-system-alias 'latin-8 'iso-latin-8)
# Line 210  covered by other ISO-8859 character sets Line 210  covered by other ISO-8859 character sets
210    ;; `0' for `Latin-0'    ;; `0' for `Latin-0'
211    :mnemonic ?0    :mnemonic ?0
212    :charset-list '(iso-8859-15)    :charset-list '(iso-8859-15)
213    :plist '(mime-charset iso-8859-15))    :mime-charset 'iso-8859-15)
214    
215  (define-coding-system-alias 'iso-8859-15 'iso-latin-9)  (define-coding-system-alias 'iso-8859-15 'iso-latin-9)
216  (define-coding-system-alias 'latin-9 'iso-latin-9)  (define-coding-system-alias 'latin-9 'iso-latin-9)
# Line 225  covered by other ISO-8859 character sets Line 225  covered by other ISO-8859 character sets
225               (unibyte-display . iso-latin-9)               (unibyte-display . iso-latin-9)
226               (input-method . "latin-9-prefix")               (input-method . "latin-9-prefix")
227               (sample-text               (sample-text
228                . "AVE. ,b&(48<=>(B ,b$(B")                . "AVE. ,B)9.>,b<=,_/(B ,b$(B")
229               (documentation . "\               (documentation . "\
230  This language environment is a generic one for the Latin-9 (ISO-8859-15)  This language environment is a generic one for the Latin-9 (ISO-8859-15)
231  character set which supports the same languages as Latin-1 with the  character set which supports the same languages as Latin-1 with the
# Line 322  but it selects the Dutch tutorial.")) Line 322  but it selects the Dutch tutorial."))
322               (unibyte-syntax . "latin-5")               (unibyte-syntax . "latin-5")
323               (unibyte-display . iso-latin-5)               (unibyte-display . iso-latin-5)
324               (input-method . "turkish-postfix")               (input-method . "turkish-postfix")
325               (sample-text . "Turkish (T,M|(Brk,Mg(Be)       Merhaba")               (sample-text . "Turkish (T,A|(Brk,Ag(Be)       Merhaba")
326               (documentation . t)))               (documentation . t)))
327    
328  ;; Polish ISO 8859-2 environment.  ;; Polish ISO 8859-2 environment.
# Line 338  but it selects the Dutch tutorial.")) Line 338  but it selects the Dutch tutorial."))
338             (unibyte-syntax . "latin-2")             (unibyte-syntax . "latin-2")
339             (unibyte-display . iso-8859-2)             (unibyte-display . iso-8859-2)
340             (tutorial . "TUTORIAL.pl")             (tutorial . "TUTORIAL.pl")
341             (sample-text . "P,Bs(Bjd,B<(B, ki,Bq(B-,B?(Be t,Bj(B chmurno,B6f(B w g,B31(Bb flaszy")             (sample-text . "P,As(Bjd,B<(B, ki,Bq(B-,B?(Be t,Bj(B chmurno,B6f(B w g,B31(Bb flaszy")
342             (documentation . t))             (documentation . t))
343   '("European"))   '("European"))
344    

Legend:
Removed from v.1.69.2.1  
changed lines
  Added in v.1.69.2.2

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