# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1064983683 0
# Node ID b1aa1cb0e3f649c17d33013fe976fa5dbae26d5a
# Parent  d193de460ec1da94f69b0bc590cc2856f60faf38
(iso-2022-jp, iso-2022-jp-2, japanese-iso-8bit): Fix the order of
charsets in :charset-list.

diff -r d193de460ec1 -r b1aa1cb0e3f6 lisp/language/japanese.el
--- a/lisp/language/japanese.el	Wed Oct 01 04:43:53 2003 +0000
+++ b/lisp/language/japanese.el	Wed Oct 01 04:48:03 2003 +0000
@@ -40,8 +40,8 @@
 		       latin-jisx0201 japanese-jisx0212)
 		nil nil nil]
   :flags '(short ascii-at-eol ascii-at-cntl 7-bit designation)
-  :charset-list '(ascii japanese-jisx0208-1978 japanese-jisx0208
-			   latin-jisx0201 japanese-jisx0212)
+  :charset-list '(ascii japanese-jisx0208 japanese-jisx0212
+			japanese-jisx0208-1978 latin-jisx0201)
   :mime-charset 'iso-2022-jp)
 
 (define-coding-system-alias 'junet 'iso-2022-jp)
@@ -58,8 +58,8 @@
 		nil]
   :flags '(short ascii-at-eol ascii-at-cntl 7-bit designation single-shift
 		 init-at-bol)
-  :charset-list '(ascii japanese-jisx0208-1978 japanese-jisx0208
-			latin-jisx0201 japanese-jisx0212
+  :charset-list '(ascii japanese-jisx0208 japanese-jisx0212
+			latin-jisx0201 japanese-jisx0208-1978
 			chinese-gb2312 korean-ksc5601
 			latin-iso8859-1 greek-iso8859-7)
   :mime-charset 'iso-2022-jp-2)
@@ -100,8 +100,8 @@
   :designation [ascii japanese-jisx0208 katakana-jisx0201 japanese-jisx0212]
   :flags '(short ascii-at-eol ascii-at-cntl single-shift)
   :charset-list '(ascii latin-jisx0201 japanese-jisx0208
-			   japanese-jisx0208-1978
-			   katakana-jisx0201 japanese-jisx0212)
+			japanese-jisx0208-1978
+			katakana-jisx0201 japanese-jisx0212)
   :mime-charset 'euc-jp)
 
 (define-coding-system-alias 'euc-japan-1990 'japanese-iso-8bit)