Commit 1e4c5782 authored by Ken Raeburn's avatar Ken Raeburn
Browse files

* fns.c (concat): Use STRING_SET_CHARS.

parent 437fcd47
......@@ -714,7 +714,7 @@ concat (nargs, args, target_type, last_special)
}
toindex_byte += thislen_byte;
toindex += thisleni - combined;
SCHARS (val) -= combined;
STRING_SET_CHARS (val, SCHARS (val) - combined);
}
/* Copy a single-byte string to a multibyte string. */
else if (STRINGP (this) && STRINGP (val))
......@@ -804,7 +804,7 @@ concat (nargs, args, target_type, last_special)
&& toindex_byte > 0
&& count_combining (SDATA (val),
toindex_byte, toindex_byte - 1))
SCHARS (val)--;
STRING_SET_CHARS (val, SCHARS (val) - 1);
else
toindex++;
}
......
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