mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-27 07:30:59 -08:00
Code Issues Projects Releases Wiki Activity

(Fset_text_properties):

Browse source 
Return early if buffer has no intervals and PROPS is nil.
This commit is contained in:
Richard M. Stallman 1994-09-02 23:27:04 +00:00
parent 09d1d7e297
commit facc570e2b
1 changed files with 11 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

13
src/textprop.c
View file

@ -887,9 +887,18 @@ is the string or buffer containing the text.")
if (NILP (object))
XSET (object, Lisp_Buffer, current_buffer);
i = validate_interval_range (object, &start, &end, hard);
i = validate_interval_range (object, &start, &end, soft);
if (NULL_INTERVAL_P (i))
return Qnil;
{
/* If buffer has no props, and we want none, return now. */
if (NILP (props))
return Qnil;
i = validate_interval_range (object, &start, &end, hard);
/* This can return if start == end. */
if (NULL_INTERVAL_P (i))
return Qnil;
}
s = XINT (start);
len = XINT (end) - s;