From 2b917a06a6bdb0e64a59de47d6597db3f99421f5 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Sun, 25 Jan 2004 07:50:35 +0000 Subject: [PATCH] (Fdefine_coding_system_internal): Fix previous change. --- src/coding.c | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/src/coding.c b/src/coding.c index 03c0b00cc05..e32859aed14 100644 --- 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; -- 2.39.2