From: Dave Love <fx@gnu.org>
Date: Tue, 14 May 2002 15:37:13 +0000 (+0000)
Subject: Fix :mime-charset properties.
X-Git-Tag: emacs-pretest-23.0.90~8295^2~1864^2~878
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d21363d3e451805ff1e490df04ac86e1e33e9523;p=emacs.git

Fix :mime-charset properties.
---

diff --git a/lisp/language/chinese.el b/lisp/language/chinese.el
index 1ae93a4abba..2fb99d243ef 100644
--- 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)
 
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -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 5dfe2f186fa..469194893df 100644
--- 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 a56084686d4..1642ac259db 100644
--- 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 fa55cc2a47e..0da43a8bb8e 100644
--- 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 bd267437a17..b1f658efe80 100644
--- 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 aa523279b25..808596c34cb 100644
--- 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)