# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1075017035 0
# Node ID 78c1fd14ed4230dc250b334c26384aadffead97c
# Parent  293c9235be3fd32177ed59179f4276ce50b33e6a
(Fdefine_coding_system_internal): Fix previous change.

diff -r 293c9235be3f -r 78c1fd14ed42 src/coding.c
--- a/src/coding.c	Sun Jan 25 07:44:22 2004 +0000
+++ b/src/coding.c	Sun Jan 25 07:50:35 2004 +0000
@@ -8472,10 +8472,13 @@
 	       SDATA (SYMBOL_NAME (CHARSET_NAME (charset))));
 
       charset_list = XCDR (charset_list);
-      charset = CHARSET_FROM_ID (XINT (XCAR (charset_list)));
-      if (CHARSET_DIMENSION (charset) != 2)
-	error ("Dimension of charset %s is not two",
-	       SDATA (SYMBOL_NAME (CHARSET_NAME (charset))));
+      if (! NILP (charset_list))
+	{
+	  charset = CHARSET_FROM_ID (XINT (XCAR (charset_list)));
+	  if (CHARSET_DIMENSION (charset) != 2)
+	    error ("Dimension of charset %s is not two",
+		   SDATA (SYMBOL_NAME (CHARSET_NAME (charset))));
+	}
 
       category = coding_category_sjis;
       Vsjis_coding_system = name;