procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(Faset): Check newelt by CHECK_CHARACTER. Don't change

Browse source 
multibyteness of the result when newelt is an 8-bit character.
This commit is contained in:
Kenichi Handa 2003-09-26 11:20:13 +00:00
parent bc9cf3a13a
commit d9130605c6
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/data.c
View file

@ -1929,7 +1929,7 @@ bool-vector. IDX starts at 0. */)
if (idxval < 0 || idxval >= SCHARS (array))
args_out_of_range (array, idx);
CHECK_NUMBER (newelt);
CHECK_CHARACTER (newelt);
nbytes = SBYTES (array);
@ -1966,7 +1966,8 @@ bool-vector. IDX starts at 0. */)
args_out_of_range (array, idx);
CHECK_NUMBER (newelt);
if (XINT (newelt) < 0 || ASCII_CHAR_P (XINT (newelt)))
if (XINT (newelt) < 0 || ASCII_CHAR_P (XINT (newelt))
|| CHAR_BYTE8_P (XINT (newelt)))
SSET (array, idxval, XINT (newelt));
else
{