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

[Ken Raeburn]

Index: emacs/src/lread.c
diff -c emacs/src/lread.c:1.293 emacs/src/lread.c:1.294
*** emacs/src/lread.c:1.293     Tue Jul 16 11:49:38 2002
--- emacs/src/lread.c   Tue Jul 16 13:34:35 2002
***************
*** 3080,3087 ****
       (name, obarray)
       Lisp_Object name, obarray;
  {
!   register Lisp_Object tem;
!   struct Lisp_String *string;
  
    if (NILP (obarray)) obarray = Vobarray;
    obarray = check_obarray (obarray);
--- 3080,3086 ----
       (name, obarray)
       Lisp_Object name, obarray;
  {
!   register Lisp_Object tem, string;
  
    if (NILP (obarray)) obarray = Vobarray;
    obarray = check_obarray (obarray);
***************
*** 3089,3100 ****
    if (!SYMBOLP (name))
      {
        CHECK_STRING (name);
!       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)))
      return Qnil;
    else
--- 3088,3099 ----
    if (!SYMBOLP (name))
      {
        CHECK_STRING (name);
!       string = name;
      }
    else
!     string = SYMBOL_NAME (name);
  
!   tem = oblookup (obarray, SDATA (string), SCHARS (string), SBYTES (string));
    if (INTEGERP (tem) || (SYMBOLP (name) && !EQ (name, tem)))
      return Qnil;
    else