/[emacs]/emacs/src/lread.c
ViewVC logotype

Diff of /emacs/src/lread.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.283 by monnier, Tue Apr 30 00:59:49 2002 UTC revision 1.284 by raeburn, Mon May 20 08:06:11 2002 UTC
# Line 3029  it defaults to the value of `obarray'. Line 3029  it defaults to the value of `obarray'.
3029        string = XSTRING (name);        string = XSTRING (name);
3030      }      }
3031    else    else
3032      string = XSYMBOL (name)->name;      string = XSTRING (SYMBOL_NAME (name));
3033    
3034    tem = oblookup (obarray, string->data, string->size, STRING_BYTES (string));    tem = oblookup (obarray, string->data, string->size, STRING_BYTES (string));
3035    if (INTEGERP (tem) || (SYMBOLP (name) && !EQ (name, tem)))    if (INTEGERP (tem) || (SYMBOLP (name) && !EQ (name, tem)))
# Line 3054  OBARRAY defaults to the value of the var Line 3054  OBARRAY defaults to the value of the var
3054    obarray = check_obarray (obarray);    obarray = check_obarray (obarray);
3055    
3056    if (SYMBOLP (name))    if (SYMBOLP (name))
3057      XSETSTRING (string, XSYMBOL (name)->name);      string = SYMBOL_NAME (name);
3058    else    else
3059      {      {
3060        CHECK_STRING (name);        CHECK_STRING (name);
# Line 3140  oblookup (obarray, ptr, size, size_byte) Line 3140  oblookup (obarray, ptr, size, size_byte)
3140    else    else
3141      for (tail = bucket; ; XSETSYMBOL (tail, XSYMBOL (tail)->next))      for (tail = bucket; ; XSETSYMBOL (tail, XSYMBOL (tail)->next))
3142        {        {
3143          if (STRING_BYTES (XSYMBOL (tail)->name) == size_byte          if (STRING_BYTES (XSTRING (SYMBOL_NAME (tail))) == size_byte
3144              && XSYMBOL (tail)->name->size == size              && XSTRING (SYMBOL_NAME (tail))->size == size
3145              && !bcmp (XSYMBOL (tail)->name->data, ptr, size_byte))              && !bcmp (XSTRING (SYMBOL_NAME (tail))->data, ptr, size_byte))
3146            return tail;            return tail;
3147          else if (XSYMBOL (tail)->next == 0)          else if (XSYMBOL (tail)->next == 0)
3148            break;            break;

Legend:
Removed from v.1.283  
changed lines
  Added in v.1.284

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26