mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-20 12:40:56 -08:00
Code Issues Projects Releases Wiki Activity

(Fdefine_coding_system_internal): Fix previous change.

Browse source
This commit is contained in:
Kenichi Handa 2004-01-25 07:50:35 +00:00
parent 6e07c25f90
commit 2b917a06a6
1 changed files with 7 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/coding.c
View file

@ -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;