mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-03 08:30:09 +00:00
Code Issues Releases Activity

(set_text_properties_1): Allow args in either order.

Browse Source 
Do nothing if range is empty.
This commit is contained in:
Richard M. Stallman 2001-11-26 20:10:04 +00:00
parent bf17ab094e
commit 49f68fd22b
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/textprop.c
View File

@ -1304,7 +1304,7 @@ set_text_properties (start, end, properties, object, signal_after_change_p)
the text. This does not obey any hooks.
You can provide the interval that START is located in as I,
or pass NULL for I and this function will find it.
This function assumes that START < END. */
START and END can be in any order. */
void
set_text_properties_1 (start, end, properties, buffer, i)
@ -1317,7 +1317,14 @@ set_text_properties_1 (start, end, properties, buffer, i)
s = XINT (start);
len = XINT (end) - s;
eassert (len > 0);
if (len == 0)
return;
if (len < 0)
{
s = s + len;
len = - len;
}
if (i == 0)
i = find_interval (BUF_INTERVALS (XBUFFER (buffer)), s);