diff options
author | Kenichi Handa <[email protected]> | 2003-09-26 11:20:13 +0000 |
---|---|---|
committer | Kenichi Handa <[email protected]> | 2003-09-26 11:20:13 +0000 |
commit | d9130605c62bf2f147d30a960671858d3e1ef86c (patch) | |
tree | 6daf7e550065d49eac76c0934193c76dc1597538 /src/data.c | |
parent | bc9cf3a13ade13159c1f0026611130d2c11c5ed5 (diff) |
(Faset): Check newelt by CHECK_CHARACTER. Don't change
multibyteness of the result when newelt is an 8-bit character.
Diffstat (limited to 'src/data.c')
-rw-r--r-- | src/data.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/data.c b/src/data.c index 8ee564db82..0e2a704f52 100644 --- a/src/data.c +++ b/src/data.c @@ -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 { |