Mercurial > emacs

comparison src/coding.c @ 89740:78c1fd14ed42

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 d11866e9fbf4
comparison
equal deleted inserted replaced
89739:293c9235be3f 89740:78c1fd14ed42
8470 if (CHARSET_DIMENSION (charset) != 2) 8470 if (CHARSET_DIMENSION (charset) != 2)
8471 error ("Dimension of charset %s is not two", 8471 error ("Dimension of charset %s is not two",
8472 SDATA (SYMBOL_NAME (CHARSET_NAME (charset)))); 8472 SDATA (SYMBOL_NAME (CHARSET_NAME (charset))));
8473 8473
8474 charset_list = XCDR (charset_list); 8474 charset_list = XCDR (charset_list);
8475 charset = CHARSET_FROM_ID (XINT (XCAR (charset_list))); 8475 if (! NILP (charset_list))
8476 if (CHARSET_DIMENSION (charset) != 2) 8476 {
8477 error ("Dimension of charset %s is not two", 8477 charset = CHARSET_FROM_ID (XINT (XCAR (charset_list)));
8478 SDATA (SYMBOL_NAME (CHARSET_NAME (charset)))); 8478 if (CHARSET_DIMENSION (charset) != 2)
8479 error ("Dimension of charset %s is not two",
8480 SDATA (SYMBOL_NAME (CHARSET_NAME (charset))));
8481 }
8479 8482
8480 category = coding_category_sjis; 8483 category = coding_category_sjis;
8481 Vsjis_coding_system = name; 8484 Vsjis_coding_system = name;
8482 } 8485 }
8483 else if (EQ (coding_type, Qbig5)) 8486 else if (EQ (coding_type, Qbig5))