[Emacs-diffs] Changes to emacs/src/lread.c

[Ken Raeburn]

Index: emacs/src/lread.c
diff -c emacs/src/lread.c:1.283 emacs/src/lread.c:1.284
*** emacs/src/lread.c:1.283     Mon Apr 29 20:59:49 2002
--- emacs/src/lread.c   Mon May 20 04:06:11 2002
***************
*** 3029,3035 ****
        string = XSTRING (name);
      }
    else
!     string = XSYMBOL (name)->name;
  
    tem = oblookup (obarray, string->data, string->size, STRING_BYTES (string));
    if (INTEGERP (tem) || (SYMBOLP (name) && !EQ (name, tem)))
--- 3029,3035 ----
        string = XSTRING (name);
      }
    else
!     string = XSTRING (SYMBOL_NAME (name));
  
    tem = oblookup (obarray, string->data, string->size, STRING_BYTES (string));
    if (INTEGERP (tem) || (SYMBOLP (name) && !EQ (name, tem)))
***************
*** 3054,3060 ****
    obarray = check_obarray (obarray);
  
    if (SYMBOLP (name))
!     XSETSTRING (string, XSYMBOL (name)->name);
    else
      {
        CHECK_STRING (name);
--- 3054,3060 ----
    obarray = check_obarray (obarray);
  
    if (SYMBOLP (name))
!     string = SYMBOL_NAME (name);
    else
      {
        CHECK_STRING (name);
***************
*** 3140,3148 ****
    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))
          return tail;
        else if (XSYMBOL (tail)->next == 0)
          break;
--- 3140,3148 ----
    else
      for (tail = bucket; ; XSETSYMBOL (tail, XSYMBOL (tail)->next))
        {
!       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;