(Fstring_to_char): Use string macros instead of Lisp_String fields.

diff --git a/src/editfns.c b/src/editfns.c
index 9c88d963eb3ea8ed2d8e1041f7c6b6b0df959f10..800aef9f7c8538225dfe8e43113867d523afe78b 100644 (file)
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -194,15 +194,13 @@ A multibyte character is handled correctly.  */)
      register Lisp_Object string;
 {
   register Lisp_Object val;
-  register struct Lisp_String *p;
   CHECK_STRING (string);
-  p = XSTRING (string);
-  if (p->size)
+  if (SCHARS (string))
     {
       if (STRING_MULTIBYTE (string))
-       XSETFASTINT (val, STRING_CHAR (p->data, STRING_BYTES (p)));
+       XSETFASTINT (val, STRING_CHAR (SDATA (string), SBYTES (string)));
       else
-       XSETFASTINT (val, p->data[0]);
+       XSETFASTINT (val, SREF (string, 0));
     }
   else
     XSETFASTINT (val, 0);