(Fdefine_coding_system_internal): Fix previous change.

diff --git a/src/coding.c b/src/coding.c
index 03c0b00cc05edec145269c96ccf20d6e324a4a9d..e32859aed147844b6ff7023f270bd012166cb35b 100644 (file)
--- a/src/coding.c
+++ b/src/coding.c
@@ -8472,10 +8472,13 @@ usage: (define-coding-system-internal ...)  */)
               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;