X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=mcs-e20.el;h=94ad2ed9ab363255c79e2c6e0291c1f658eec0d8;hb=refs%2Fheads%2Fyamaoka-maybe;hp=9de5f5f4bda20e50bb5bc61af4f0b24530233294;hpb=e3088ca5758f55f4babb48d98722783827adabf1;p=elisp%2Fapel.git

diff --git a/mcs-e20.el b/mcs-e20.el
index 9de5f5f..94ad2ed 100644
--- a/mcs-e20.el
+++ b/mcs-e20.el
@@ -66,48 +66,50 @@
 
 
 (defvar charsets-mime-charset-alist
-  `(((ascii)						. us-ascii)
-    ((ascii latin-iso8859-1)				. iso-8859-1)
-    ((ascii latin-iso8859-2)				. iso-8859-2)
-    ((ascii latin-iso8859-3)				. iso-8859-3)
-    ((ascii latin-iso8859-4)				. iso-8859-4)
-;;; ((ascii cyrillic-iso8859-5)				. iso-8859-5)
-    ((ascii cyrillic-iso8859-5)				. koi8-r)
-    ((ascii arabic-iso8859-6)				. iso-8859-6)
-    ((ascii greek-iso8859-7)				. iso-8859-7)
-    ((ascii hebrew-iso8859-8)				. iso-8859-8)
-    ((ascii latin-iso8859-9)				. iso-8859-9)
-    ,(if (find-coding-system 'iso-8859-14)
-	 '((ascii latin-iso8859-14)			. iso-8859-14))
-    ,(if (find-coding-system 'iso-8859-15)
-	 '((ascii latin-iso8859-15)			. iso-8859-15))
-    ((ascii latin-jisx0201
-	    japanese-jisx0208-1978 japanese-jisx0208)	. iso-2022-jp)
-    ((ascii latin-jisx0201
-	    katakana-jisx0201 japanese-jisx0208)	. shift_jis)
-    ((ascii korean-ksc5601)				. euc-kr)
-    ((ascii chinese-gb2312)				. gb2312)
-    ((ascii chinese-big5-1 chinese-big5-2)		. big5)
-    ((ascii thai-tis620 composition)			. tis-620)
-    ((ascii latin-iso8859-1 greek-iso8859-7
-	    latin-jisx0201 japanese-jisx0208-1978
-	    chinese-gb2312 japanese-jisx0208
-	    korean-ksc5601 japanese-jisx0212)		. iso-2022-jp-2)
-;     ((ascii latin-iso8859-1 greek-iso8859-7
-; 	    latin-jisx0201 japanese-jisx0208-1978
-; 	    chinese-gb2312 japanese-jisx0208
-; 	    korean-ksc5601 japanese-jisx0212
-; 	    chinese-cns11643-1 chinese-cns11643-2)	. iso-2022-int-1)
-;     ((ascii latin-iso8859-1 latin-iso8859-2
-; 	    cyrillic-iso8859-5 greek-iso8859-7
-; 	    latin-jisx0201 japanese-jisx0208-1978
-; 	    chinese-gb2312 japanese-jisx0208
-; 	    korean-ksc5601 japanese-jisx0212
-; 	    chinese-cns11643-1 chinese-cns11643-2
-; 	    chinese-cns11643-3 chinese-cns11643-4
-; 	    chinese-cns11643-5 chinese-cns11643-6
-; 	    chinese-cns11643-7)				. iso-2022-int-1)
-    ))
+  (delq
+   nil
+   `(((ascii)						. us-ascii)
+     ((ascii latin-iso8859-1)				. iso-8859-1)
+     ((ascii latin-iso8859-2)				. iso-8859-2)
+     ((ascii latin-iso8859-3)				. iso-8859-3)
+     ((ascii latin-iso8859-4)				. iso-8859-4)
+     ;;((ascii cyrillic-iso8859-5)			. iso-8859-5)
+     ((ascii cyrillic-iso8859-5)			. koi8-r)
+     ((ascii arabic-iso8859-6)				. iso-8859-6)
+     ((ascii greek-iso8859-7)				. iso-8859-7)
+     ((ascii hebrew-iso8859-8)				. iso-8859-8)
+     ((ascii latin-iso8859-9)				. iso-8859-9)
+     ,(if (find-coding-system 'iso-8859-14)
+	  '((ascii latin-iso8859-14)			. iso-8859-14))
+     ,(if (find-coding-system 'iso-8859-15)
+	  '((ascii latin-iso8859-15)			. iso-8859-15))
+     ((ascii latin-jisx0201
+	     japanese-jisx0208-1978 japanese-jisx0208)	. iso-2022-jp)
+     ((ascii latin-jisx0201
+	     katakana-jisx0201 japanese-jisx0208)	. shift_jis)
+     ((ascii korean-ksc5601)				. euc-kr)
+     ((ascii chinese-gb2312)				. gb2312)
+     ((ascii chinese-big5-1 chinese-big5-2)		. big5)
+     ((ascii thai-tis620 composition)			. tis-620)
+     ((ascii latin-iso8859-1 greek-iso8859-7
+	     latin-jisx0201 japanese-jisx0208-1978
+	     chinese-gb2312 japanese-jisx0208
+	     korean-ksc5601 japanese-jisx0212)		. iso-2022-jp-2)
+     ;;((ascii latin-iso8859-1 greek-iso8859-7
+     ;;        latin-jisx0201 japanese-jisx0208-1978
+     ;;        chinese-gb2312 japanese-jisx0208
+     ;;        korean-ksc5601 japanese-jisx0212
+     ;;        chinese-cns11643-1 chinese-cns11643-2)	. iso-2022-int-1)
+     ;;((ascii latin-iso8859-1 latin-iso8859-2
+     ;;        cyrillic-iso8859-5 greek-iso8859-7
+     ;;        latin-jisx0201 japanese-jisx0208-1978
+     ;;        chinese-gb2312 japanese-jisx0208
+     ;;        korean-ksc5601 japanese-jisx0212
+     ;;        chinese-cns11643-1 chinese-cns11643-2
+     ;;        chinese-cns11643-3 chinese-cns11643-4
+     ;;        chinese-cns11643-5 chinese-cns11643-6
+     ;;        chinese-cns11643-7)			. iso-2022-int-1)
+     )))
 
 (defun-maybe coding-system-get (coding-system prop)
   "Extract a value from CODING-SYSTEM's property list for property PROP."