Mercurial > emacs

changeset 88513:bafe04d82c5d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix :mime-charset properties.
author Dave Love <fx@gnu.org>
date Tue, 14 May 2002 15:37:13 +0000
parents 1e2fb9a9f29c
children 18cd065b6b87
files lisp/language/chinese.el lisp/language/greek.el lisp/language/hebrew.el lisp/language/japanese.el lisp/language/korean.el lisp/language/vietnamese.el
diffstat 6 files changed, 15 insertions(+), 15 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/language/chinese.el	Tue May 14 15:36:38 2002 +0000
+++ b/lisp/language/chinese.el	Tue May 14 15:37:13 2002 +0000
@@ -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)
 
--- a/lisp/language/greek.el	Tue May 14 15:36:38 2002 +0000
+++ b/lisp/language/greek.el	Tue May 14 15:37:13 2002 +0000
@@ -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)
 
--- a/lisp/language/hebrew.el	Tue May 14 15:36:38 2002 +0000
+++ b/lisp/language/hebrew.el	Tue May 14 15:37:13 2002 +0000
@@ -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)
 
--- a/lisp/language/japanese.el	Tue May 14 15:36:38 2002 +0000
+++ b/lisp/language/japanese.el	Tue May 14 15:37:13 2002 +0000
@@ -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)
--- a/lisp/language/korean.el	Tue May 14 15:36:38 2002 +0000
+++ b/lisp/language/korean.el	Tue May 14 15:37:13 2002 +0000
@@ -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)
 
--- a/lisp/language/vietnamese.el	Tue May 14 15:36:38 2002 +0000
+++ b/lisp/language/vietnamese.el	Tue May 14 15:37:13 2002 +0000
@@ -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)