mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-07 06:22:32 -08:00
Code Issues Projects Releases Wiki Activity

(Fdeclare_equiv_charset): Fix handing of CHARS.

Browse source 
(Fiso_charset): Likewise.
This commit is contained in:
Kenichi Handa 2004-08-17 11:49:18 +00:00
parent 1322bdcbf4
commit 82215ce9f3
1 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/charset.c
View file

@ -1319,11 +1319,12 @@ if CHARSET is designated instead. */)
Lisp_Object dimension, chars, final_char, charset;
{
int id;
int chars_flag;
CHECK_CHARSET_GET_ID (charset, id);
check_iso_charset_parameter (dimension, chars, final_char);
ISO_CHARSET_TABLE (XINT (dimension), XINT (chars), XINT (final_char)) = id;
chars_flag = XINT (chars) == 96;
ISO_CHARSET_TABLE (XINT (dimension), chars_flag, XINT (final_char)) = id;
return Qnil;
}
@ -1917,9 +1918,11 @@ DIMENSION, CHARS, and FINAL-CHAR. */)
Lisp_Object dimension, chars, final_char;
{
int id;
int chars_flag;
check_iso_charset_parameter (dimension, chars, final_char);
id = ISO_CHARSET_TABLE (XFASTINT (dimension), XFASTINT (chars),
chars_flag = XFASTINT (chars) == 96;
id = ISO_CHARSET_TABLE (XFASTINT (dimension), chars_flag,
XFASTINT (final_char));
return (id >= 0 ? CHARSET_NAME (CHARSET_FROM_ID (id)) : Qnil);
}