Mercurial > emacs
changeset 89740:78c1fd14ed42
(Fdefine_coding_system_internal): Fix previous change.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Sun, 25 Jan 2004 07:50:35 +0000 |
| parents | 293c9235be3f |
| children | fb91cfc5ed37 |
| files | src/coding.c |
| diffstat | 1 files changed, 7 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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;