changeset 88504:3ef048e3d781

Fix mime-charset properties.
author Dave Love <fx@gnu.org>
date Tue, 14 May 2002 10:20:49 +0000
parents d864d6412004
children 0ade1e5f89e2
files lisp/language/european.el
diffstat 1 files changed, 10 insertions(+), 10 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/language/european.el	Tue May 14 10:17:56 2002 +0000
+++ b/lisp/language/european.el	Tue May 14 10:20:49 2002 +0000
@@ -2,7 +2,7 @@
 
 ;; Copyright (C) 1995, 1997, 2001 Electrotechnical Laboratory, JAPAN.
 ;; Licensed to the Free Software Foundation.
-;; Copyright (C) 2001 Free Software Foundation, Inc.
+;; Copyright (C) 2001, 2002 Free Software Foundation, Inc.
 
 ;; Keywords: multilingual, European
 
@@ -68,7 +68,7 @@
   :coding-type 'charset
   :mnemonic ?2
   :charset-list '(iso-8859-2)
-  :plist '(mime-charset iso-8859-2))
+  :mime-charset 'iso-8859-2)
 
 (define-coding-system-alias 'iso-8859-2 'iso-latin-2)
 (define-coding-system-alias 'latin-2 'iso-latin-2)
@@ -101,7 +101,7 @@
   :coding-type 'charset
   :mnemonic ?3
   :charset-list '(iso-8859-3)
-  :plist '(mime-charset iso-8859-3))
+  :mime-charset 'iso-8859-3)
 
 (define-coding-system-alias 'iso-8859-3 'iso-latin-3)
 (define-coding-system-alias 'latin-3 'iso-latin-3)
@@ -128,7 +128,7 @@
   :coding-type 'charset
   :mnemonic ?4
   :charset-list '(iso-8859-4)
-  :plist '(mime-charset iso-8859-4))
+  :mime-charset 'iso-8859-4)
 
 (define-coding-system-alias 'iso-8859-4 'iso-latin-4)
 (define-coding-system-alias 'latin-4 'iso-latin-4)
@@ -155,7 +155,7 @@
   :coding-type 'charset
   :mnemonic ?9
   :charset-list '(iso-8859-9)
-  :plist '(mime-charset iso-8859-9))
+  :mime-charset 'iso-8859-9)
 
 (define-coding-system-alias 'iso-8859-9 'iso-latin-5)
 (define-coding-system-alias 'latin-5 'iso-latin-5)
@@ -180,7 +180,7 @@
   ;; `W' for `Welsh', since `C' for `Celtic' is taken.
   :mnemonic ?W				
   :charset-list '(iso-8859-14)
-  :plist '(mime-charset iso-8859-14))
+  :mime-charset 'iso-8859-14)
 
 (define-coding-system-alias 'iso-8859-14 'iso-latin-8)
 (define-coding-system-alias 'latin-8 'iso-latin-8)
@@ -210,7 +210,7 @@
   ;; `0' for `Latin-0'
   :mnemonic ?0
   :charset-list '(iso-8859-15)
-  :plist '(mime-charset iso-8859-15))
+  :mime-charset 'iso-8859-15)
 
 (define-coding-system-alias 'iso-8859-15 'iso-latin-9)
 (define-coding-system-alias 'latin-9 'iso-latin-9)
@@ -225,7 +225,7 @@
 	     (unibyte-display . iso-latin-9)
 	     (input-method . "latin-9-prefix")
 	     (sample-text
-	      . "AVE. ,b&(48<=>(B ,b$(B")
+	      . "AVE. ,B)9.>,b<=,_/(B ,b$(B")
 	     (documentation . "\
 This language environment is a generic one for the Latin-9 (ISO-8859-15)
 character set which supports the same languages as Latin-1 with the
@@ -322,7 +322,7 @@
 	     (unibyte-syntax . "latin-5")
 	     (unibyte-display . iso-latin-5)
 	     (input-method . "turkish-postfix")
-	     (sample-text . "Turkish (T,M|(Brk,Mg(Be)	Merhaba")
+	     (sample-text . "Turkish (T,A|(Brk,Ag(Be)	Merhaba")
 	     (documentation . t)))
 
 ;; Polish ISO 8859-2 environment.
@@ -338,7 +338,7 @@
 	   (unibyte-syntax . "latin-2")
 	   (unibyte-display . iso-8859-2)
 	   (tutorial . "TUTORIAL.pl")
-	   (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")
 	   (documentation . t))
  '("European"))