(Faset): Allow setting a multibyte character in an

ASCII-only unibyte string.

1 files changed, 11 insertions, 1 deletions

diff --git a/src/data.c b/src/data.c
index 6b1a9fc8860..cb9d210c628 100644
--- a/src/data.c
+++ b/src/data.c
@@ -2093,7 +2093,17 @@ bool-vector.  IDX starts at 0.  */)
       CHECK_NUMBER (newelt);
 
       if (XINT (newelt) >= 0 && ! SINGLE_BYTE_CHAR_P (XINT (newelt)))
-        args_out_of_range (array, newelt);
+        {
+          int i;
+
+          for (i = SBYTES (array) - 1; i >= 0; i--)
+            if (SREF (array, i) >= 0x80)
+              args_out_of_range (array, newelt);
+          /* ARRAY is an ASCII string.  Convert it to a multibyte
+             string, and try `aset' again.  */
+          STRING_SET_MULTIBYTE (array);
+          return Faset (array, idx, newelt);
+        }
       SSET (array, idxval, XINT (newelt));
     }