mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-10 13:40:36 -08:00
Code Issues Projects Releases Wiki Activity

(Faset): Use macro CHAR_BYTES instead of Fchar_bytes.

Browse source
This commit is contained in:
Kenichi Handa 1998-08-28 12:22:39 +00:00
parent cc531c4441
commit 6d0b4facd2
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/data.c
View file

@ -1847,8 +1847,7 @@ IDX starts at 0.")
}
else if (STRING_MULTIBYTE (array))
{
Lisp_Object new_len;
int c, idxval_byte, actual_len;
int c, idxval_byte, new_len, actual_len;
unsigned char *p, *str;
if (idxval < 0 || idxval >= XSTRING (array)->size)
@ -1859,8 +1858,9 @@ IDX starts at 0.")
actual_len
= MULTIBYTE_FORM_LENGTH (p, STRING_BYTES (XSTRING (array)) - idxval_byte);
new_len = Fchar_bytes (newelt);
if (actual_len != XINT (new_len))
CHECK_NUMBER (newelt, 2);
new_len = CHAR_BYTES (XINT (newelt));
if (actual_len != new_len)
error ("Attempt to change byte length of a string");
CHAR_STRING (XINT (newelt), p, str);