diff options
| author | Richard M. Stallman | 1998-03-21 07:06:14 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-03-21 07:06:14 +0000 |
| commit | fc932ac6c7b54ac6f79222a2548707a97d3a44f4 (patch) | |
| tree | 88f9f2ff546b9d84c11515967b4bb5cc3c16d080 /src/data.c | |
| parent | e7654b4a743e7c54c08629ee336e10a5f1089da6 (diff) | |
| download | emacs-fc932ac6c7b54ac6f79222a2548707a97d3a44f4.tar.gz emacs-fc932ac6c7b54ac6f79222a2548707a97d3a44f4.zip | |
Use STRING_BYTES and SET_STRING_BYTES.
Diffstat (limited to 'src/data.c')
| -rw-r--r-- | src/data.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/data.c b/src/data.c index bf637585cd0..300782a5a56 100644 --- a/src/data.c +++ b/src/data.c | |||
| @@ -1648,7 +1648,7 @@ or a byte-code object. IDX starts at 0.") | |||
| 1648 | idxval_byte = string_char_to_byte (array, idxval); | 1648 | idxval_byte = string_char_to_byte (array, idxval); |
| 1649 | 1649 | ||
| 1650 | c = STRING_CHAR (&XSTRING (array)->data[idxval_byte], | 1650 | c = STRING_CHAR (&XSTRING (array)->data[idxval_byte], |
| 1651 | XSTRING (array)->size_byte - idxval_byte); | 1651 | STRING_BYTES (XSTRING (array)) - idxval_byte); |
| 1652 | return make_number (c); | 1652 | return make_number (c); |
| 1653 | } | 1653 | } |
| 1654 | else if (BOOL_VECTOR_P (array)) | 1654 | else if (BOOL_VECTOR_P (array)) |
| @@ -1847,7 +1847,7 @@ IDX starts at 0.") | |||
| 1847 | p = &XSTRING (array)->data[idxval_byte]; | 1847 | p = &XSTRING (array)->data[idxval_byte]; |
| 1848 | 1848 | ||
| 1849 | actual_len | 1849 | actual_len |
| 1850 | = MULTIBYTE_FORM_LENGTH (p, XSTRING (array)->size_byte - idxval_byte); | 1850 | = MULTIBYTE_FORM_LENGTH (p, STRING_BYTES (XSTRING (array)) - idxval_byte); |
| 1851 | new_len = Fchar_bytes (newelt); | 1851 | new_len = Fchar_bytes (newelt); |
| 1852 | if (actual_len != XINT (new_len)) | 1852 | if (actual_len != XINT (new_len)) |
| 1853 | error ("Attempt to change byte length of a string"); | 1853 | error ("Attempt to change byte length of a string"); |