diff options
| author | Ken Raeburn <raeburn@raeburn.org> | 2002-07-16 15:49:07 +0000 |
|---|---|---|
| committer | Ken Raeburn <raeburn@raeburn.org> | 2002-07-16 15:49:07 +0000 |
| commit | 29f44a37663e4209fcb681528f3cc44652e91d2c (patch) | |
| tree | 21d9ccee5cddc97dff8e5c8c5e9fab67c60692f1 | |
| parent | 5e9538829322119c0530ab69ed2f58eda2d51722 (diff) | |
| download | emacs-29f44a37663e4209fcb681528f3cc44652e91d2c.tar.gz | |
* data.c (Faref): Use SDATA.
(Faset): Use SDATA, SSET.
| -rw-r--r-- | src/data.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/data.c b/src/data.c index 700395808cc..0bd50ef4a3d 100644 --- a/src/data.c +++ b/src/data.c @@ -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 |