Commit 46e7e6b0 authored by Ken Raeburn's avatar Ken Raeburn
Browse files

* alloc.c (make_event_array): Use SSET for storing into a string.

parent 674537ea
......@@ -2701,10 +2701,10 @@ make_event_array (nargs, args)
result = Fmake_string (make_number (nargs), make_number (0));
for (i = 0; i < nargs; i++)
SREF (result, i) = XINT (args[i]);
SSET (result, i, XINT (args[i]));
/* Move the meta bit to the right place for a string char. */
if (XINT (args[i]) & CHAR_META)
SREF (result, i) |= 0x80;
SSET (result, i, SREF (result, i) | 0x80);
return result;
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment