Mercurial > emacs
changeset 45406:6f19e244af49
* lread.c (Fintern_soft, oblookup): Use SYMBOL_NAME and XSTRING
instead of XSYMBOL and name field.
(Funintern): Use SYMBOL_NAME and assignment instead of XSYMBOL and
name field and XSETSTRING.
| author | Ken Raeburn <raeburn@raeburn.org> |
|---|---|
| date | Mon, 20 May 2002 08:06:11 +0000 |
| parents | 13e858104d3b |
| children | d68629e2728d |
| files | src/lread.c |
| diffstat | 1 files changed, 5 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/src/lread.c Mon May 20 08:06:06 2002 +0000 +++ b/src/lread.c Mon May 20 08:06:11 2002 +0000 @@ -3029,7 +3029,7 @@ string = XSTRING (name); } else - string = XSYMBOL (name)->name; + string = XSTRING (SYMBOL_NAME (name)); tem = oblookup (obarray, string->data, string->size, STRING_BYTES (string)); if (INTEGERP (tem) || (SYMBOLP (name) && !EQ (name, tem))) @@ -3054,7 +3054,7 @@ obarray = check_obarray (obarray); if (SYMBOLP (name)) - XSETSTRING (string, XSYMBOL (name)->name); + string = SYMBOL_NAME (name); else { CHECK_STRING (name); @@ -3140,9 +3140,9 @@ else for (tail = bucket; ; XSETSYMBOL (tail, XSYMBOL (tail)->next)) { - if (STRING_BYTES (XSYMBOL (tail)->name) == size_byte - && XSYMBOL (tail)->name->size == size - && !bcmp (XSYMBOL (tail)->name->data, ptr, size_byte)) + if (STRING_BYTES (XSTRING (SYMBOL_NAME (tail))) == size_byte + && XSTRING (SYMBOL_NAME (tail))->size == size + && !bcmp (XSTRING (SYMBOL_NAME (tail))->data, ptr, size_byte)) return tail; else if (XSYMBOL (tail)->next == 0) break;