Mercurial > emacs

diff src/data.c @ 46422:50a2414d96b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* data.c (Faref): Use SDATA. (Faset): Use SDATA, SSET.
author Ken Raeburn <raeburn@raeburn.org>
date Tue, 16 Jul 2002 15:49:07 +0000
parents 40db0673e6f0
children 84a08db3c1e6
line wrap: on
line diff
--- a/src/data.c	Tue Jul 16 15:49:03 2002 +0000
+++ b/src/data.c	Tue Jul 16 15:49:07 2002 +0000
@@ -1833,7 +1833,7 @@
 	return make_number ((unsigned char) SREF (array, idxval));
       idxval_byte = string_char_to_byte (array, idxval);
 
-      c = STRING_CHAR (&SREF (array, idxval_byte),
+      c = STRING_CHAR (SDATA (array) + idxval_byte,
 		       SBYTES (array) - idxval_byte);
       return make_number (c);
     }
@@ -2031,7 +2031,7 @@
       CHECK_NUMBER (newelt);
 
       idxval_byte = string_char_to_byte (array, idxval);
-      p1 = &SREF (array, idxval_byte);
+      p1 = SDATA (array) + idxval_byte;
       PARSE_MULTIBYTE_SEQ (p1, nbytes - idxval_byte, prev_bytes);
       new_bytes = CHAR_STRING (XINT (newelt), p0);
       if (prev_bytes != new_bytes)
@@ -2065,7 +2065,7 @@
       CHECK_NUMBER (newelt);
 
       if (XINT (newelt) < 0 || SINGLE_BYTE_CHAR_P (XINT (newelt)))
-	SREF (array, idxval) = XINT (newelt);
+	SSET (array, idxval, XINT (newelt));
       else
 	{
 	  /* We must relocate the string data while converting it to