(Faset): Check NEWELT by ASCII_CHAR_P, not by

SINGLE_BYTE_CHAR_P.

diff --git a/src/data.c b/src/data.c
index c35efe3067e287c1cfb174898ea0f2e9fa62ca67..2d7ca8e20378f1941837ec56b56ecb6e9c69590e 100644 (file)
--- a/src/data.c
+++ b/src/data.c
@@ -1955,7 +1955,7 @@ IDX starts at 0.  */)
        args_out_of_range (array, idx);
       CHECK_NUMBER (newelt);
 
-      if (XINT (newelt) < 0 || SINGLE_BYTE_CHAR_P (XINT (newelt)))
+      if (XINT (newelt) < 0 || ASCII_CHAR_P (XINT (newelt)))
        XSTRING (array)->data[idxval] = XINT (newelt);
       else
        {