Fix copying properties in 'format' when it produces padding

* src/textprop.c (extend_property_ranges): Correct range extension
when the new end is beyond the old end.  (Bug#23859)
This commit is contained in:
Eli Zaretskii 2016-06-28 19:03:43 +03:00
parent cfb3c61f1f
commit 0644e6f56d

View file

@ -2065,9 +2065,14 @@ extend_property_ranges (Lisp_Object list, Lisp_Object new_end)
else
XSETCDR (prev, XCDR (list));
}
else if (XINT (end) > max)
/* The end-point is past the end of the new string. */
XSETCAR (XCDR (item), new_end);
else if (XINT (end) != max)
{
/* Either the end-point is past the end of the new string,
and we need to discard the properties past the new end,
or the caller is extending the property range, and we
should update the end-point to reflect that. */
XSETCAR (XCDR (item), new_end);
}
}
return head;