Mercurial > emacs

changeset 46446:34f82dbd015b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fintern_soft): Use string macros instead of Lisp_String fields.
author Ken Raeburn <raeburn@raeburn.org>
date Tue, 16 Jul 2002 17:34:35 +0000
parents ee4f1940ebd5
children 8e01c92219ab
files src/lread.c
diffstat 1 files changed, 5 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/src/lread.c	Tue Jul 16 17:33:42 2002 +0000
+++ b/src/lread.c	Tue Jul 16 17:34:35 2002 +0000
@@ -3080,8 +3080,7 @@
      (name, obarray)
      Lisp_Object name, obarray;
 {
-  register Lisp_Object tem;
-  struct Lisp_String *string;
+  register Lisp_Object tem, string;
 
   if (NILP (obarray)) obarray = Vobarray;
   obarray = check_obarray (obarray);
@@ -3089,12 +3088,12 @@
   if (!SYMBOLP (name))
     {
       CHECK_STRING (name);
-      string = XSTRING (name);
+      string = name;
     }
   else
-    string = XSTRING (SYMBOL_NAME (name));
-
-  tem = oblookup (obarray, string->data, string->size, STRING_BYTES (string));
+    string = SYMBOL_NAME (name);
+
+  tem = oblookup (obarray, SDATA (string), SCHARS (string), SBYTES (string));
   if (INTEGERP (tem) || (SYMBOLP (name) && !EQ (name, tem)))
     return Qnil;
   else