Fix :mime-charset properties.

diff --git a/lisp/language/chinese.el b/lisp/language/chinese.el
index 1ae93a4abba4c280390d1f350807aef1fab35946..2fb99d243efd2758f2038760bee4cb3379969671 100644 (file)
--- a/lisp/language/chinese.el
+++ b/lisp/language/chinese.el
@@ -44,7 +44,7 @@
               nil]
  :flags '(ascii-at-eol ascii-at-cntl 7-bit
                       designation locking-shift single-shift init-at-bol)
- :plist '(mime-charset . iso-2022-cn))
+ :mime-charset 'iso-2022-cn)
 
 (define-coding-system-alias 'chinese-iso-7bit 'iso-2022-cn)
 
@@ -63,7 +63,7 @@
                      chinese-cns11643-6 chinese-cns11643-7)]
   :flags '(ascii-at-eol ascii-at-cntl 7-bit
                        designation locking-shift single-shift init-at-bol)
-  :plist '(mime-charset iso-2022-cn-ext))
+  :mime-charset 'iso-2022-cn-ext)
 
 \f
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -76,7 +76,7 @@
   :mnemonic ?c
   :charset-list '(ascii chinese-gb2312)
   :designation [ascii chinese-gb2312 nil nil]
-  :plist '(mime-charset cn-gb))
+  :mime-charset 'cn-gb)
 
 (define-coding-system-alias 'cn-gb-2312 'chinese-iso-8bit)
 (define-coding-system-alias 'euc-china 'chinese-iso-8bit)
@@ -89,7 +89,7 @@
  :coding-type 'utf-8
  :mnemonic ?z
  :charset-list '(ascii chinese-gb2312)
- :plist '(mime-charset hz-gb-2312)
+ :mime-charset 'hz-gb-2312
  :post-read-conversion 'post-read-decode-hz
  :pre-write-conversion 'pre-write-encode-hz)
 
@@ -133,7 +133,7 @@
   :coding-type 'charset
   :mnemonic ?B 
   :charset-list '(ascii big5)
-  :plist '(mime-charset big5))
+  :mime-charset 'big5)
 
 (define-coding-system-alias 'big5 'chinese-big5)
 (define-coding-system-alias 'cn-big5 'chinese-big5)
@@ -171,7 +171,7 @@
                                          chinese-cns11643-5
                                          chinese-cns11643-6
                                          chinese-cns11643-7) nil]
-  :plist '(mime-charset euc-tw))
+  :mime-charset 'euc-tw)
 
 (define-coding-system-alias 'euc-taiwan 'euc-tw)
 

diff --git a/lisp/language/greek.el b/lisp/language/greek.el
index 5dfe2f186fa3c8e064c07bbe914082664abfedf6..469194893dff5937f166872c696c260992c279dc 100644 (file)
--- a/lisp/language/greek.el
+++ b/lisp/language/greek.el
@@ -33,7 +33,7 @@
   :coding-type 'charset
   :mnemonic ?7
   :charset-list '(iso-8859-7)
-  :plist '(mime-charset iso-8859-7))
+  :mime-charset 'iso-8859-7)
 
 (define-coding-system-alias 'iso-8859-7 'greek-iso-8bit)
 

diff --git a/lisp/language/hebrew.el b/lisp/language/hebrew.el
index a56084686d47588bf584011b3500ca17c0f8a9c4..1642ac259dbd896975e80cc6aafcf4a36d285c75 100644 (file)
--- a/lisp/language/hebrew.el
+++ b/lisp/language/hebrew.el
@@ -36,7 +36,7 @@
   :coding-type 'charset
   :mnemonic ?8
   :charset-list '(iso-8859-8)
-  :plist '(mime-charset iso-8859-8))
+  :mime-charset 'iso-8859-8)
 
 (define-coding-system-alias 'iso-8859-8 'hebrew-iso-8bit)
 

diff --git a/lisp/language/japanese.el b/lisp/language/japanese.el
index fa55cc2a47ebd469a2d89fb81fa164637929c11b..0da43a8bb8e117194761692f67398d70c8cf92d6 100644 (file)
--- a/lisp/language/japanese.el
+++ b/lisp/language/japanese.el
@@ -39,7 +39,7 @@
   :flags '(short ascii-at-eol ascii-at-cntl 7-bit designation)
   :charset-list '(ascii japanese-jisx0208-1978 japanese-jisx0208
                           latin-jisx0201 japanese-jisx0212)
-  :plist '(mime-charset iso-2022-jp))
+  :mime-charset 'iso-2022-jp)
 
 (define-coding-system-alias 'junet 'iso-2022-jp)
 
@@ -59,14 +59,14 @@
                        latin-jisx0201 japanese-jisx0212
                        chinese-gb2312 korean-ksc5601
                        latin-iso8859-1 greek-iso8859-7)
-  :plist '(mime-charset iso-2022-jp-2))
+  :mime-charset 'iso-2022-jp-2)
 
 (define-coding-system 'japanese-shift-jis
   "Shift-JIS 8-bit encoding for Japanese (MIME:SHIFT_JIS)"
   :coding-type 'shift-jis
   :mnemonic ?S
   :charset-list '(ascii katakana-jisx0201 japanese-jisx0208)
-  :plist '(mime-charset shift_jis))
+  :mime-charset 'shift_jis)
 
 (define-coding-system-alias 'shift_jis 'japanese-shift-jis)
 (define-coding-system-alias 'sjis 'japanese-shift-jis)
@@ -94,7 +94,7 @@
   :charset-list '(ascii latin-jisx0201 japanese-jisx0208
                           japanese-jisx0208-1978
                           katakana-jisx0201 japanese-jisx0212)
-  :plist '(mime-charset euc-jp))
+  :mime-charset 'euc-jp)
 
 (define-coding-system-alias 'euc-japan-1990 'japanese-iso-8bit)
 (define-coding-system-alias 'euc-japan 'japanese-iso-8bit)

diff --git a/lisp/language/korean.el b/lisp/language/korean.el
index bd267437a1736208f12ea388519236c798402830..b1f658efe80888816836ef9a4f9aff2289f45126 100644 (file)
--- a/lisp/language/korean.el
+++ b/lisp/language/korean.el
@@ -34,7 +34,7 @@
   :mnemonic ?K
   :designation [ascii korean-ksc5601 nil nil]
   :charset-list '(ascii korean-ksc5601)
-  :plist '(mime-charset euc-kr))
+  :mime-charset 'euc-kr)
 
 (define-coding-system-alias 'euc-kr 'korean-iso-8bit)
 (define-coding-system-alias 'euc-korea 'korean-iso-8bit)
@@ -47,7 +47,7 @@
   :flags '(ascii-at-eol ascii-at-cntl 7-bit designation locking-shift
                        designation-bol)
   :charset-list '(ascii korean-ksc5601)
-  :plist '(mime-charset iso-2022-kr))
+  :mime-charset 'iso-2022-kr)
 
 (define-coding-system-alias 'korean-iso-7bit-lock 'iso-2022-kr)
 

diff --git a/lisp/language/vietnamese.el b/lisp/language/vietnamese.el
index aa523279b252a52bac1406159354324f6611e305..808596c34cb08e7d093b1805179bba79448c8480 100644 (file)
--- a/lisp/language/vietnamese.el
+++ b/lisp/language/vietnamese.el
@@ -33,7 +33,7 @@
   :coding-type 'charset
   :mnemonic ?V
   :charset-list '(viscii)
-  :plist '(mime-charset viscii))
+  :mime-charset 'viscii)
 
 (define-coding-system-alias 'viscii 'vietnamese-viscii)