mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-06 11:55:48 +00:00
Code Issues Releases Activity

* data.c (Faref): Use SDATA.

Browse Source 
(Faset): Use SDATA, SSET.
This commit is contained in:
Ken Raeburn 2002-07-16 15:49:07 +00:00
parent 5e95388293
commit 29f44a3766
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/data.c
View File

@ -1833,7 +1833,7 @@ or a byte-code object. IDX starts at 0. */)
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 @@ IDX starts at 0. */)
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 @@ IDX starts at 0. */)
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