Mercurial > emacs
changeset 45395:89c5ebcbb7fd
* charset.c (Fdefine_charset, Fdeclare_equiv_charset): Use XSTRING
and SYMBOL_NAME instead of XSYMBOL and name field.
| author | Ken Raeburn <raeburn@raeburn.org> |
|---|---|
| date | Mon, 20 May 2002 08:05:09 +0000 |
| parents | 08d6b23b2513 |
| children | cab845213388 |
| files | src/charset.c |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/src/charset.c Mon May 20 08:05:03 2002 +0000 +++ b/src/charset.c Mon May 20 08:05:09 2002 +0000 @@ -700,14 +700,14 @@ || !STRINGP (vec[7]) || !STRINGP (vec[8])) error ("Invalid info-vector argument for defining charset %s", - XSYMBOL (charset_symbol)->name->data); + XSTRING (SYMBOL_NAME (charset_symbol))->data); if (NILP (charset_id)) { charset_id = get_new_private_charset_id (XINT (vec[0]), XINT (vec[2])); if (XINT (charset_id) == 0) error ("There's no room for a new private charset %s", - XSYMBOL (charset_symbol)->name->data); + XSTRING (SYMBOL_NAME (charset_symbol))->data); } update_charset_table (charset_id, vec[0], vec[1], vec[2], vec[3], @@ -779,7 +779,7 @@ if (XINT (final_char) < '0' || XFASTINT (final_char) > '~') error ("Invalid FINAL-CHAR %c, it should be `0'..`~'", XINT (chars)); if ((charset = get_charset_id (charset_symbol)) < 0) - error ("Invalid charset %s", XSYMBOL (charset_symbol)->name->data); + error ("Invalid charset %s", XSTRING (SYMBOL_NAME (charset_symbol))->data); ISO_CHARSET_TABLE (dimension, chars, final_char) = charset; return Qnil;