Mercurial > emacs
comparison src/textprop.c @ 8686:c468db944aa2
(Fset_text_properties):
Return early if buffer has no intervals and PROPS is nil.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 02 Sep 1994 23:27:04 +0000 |
| parents | e8556db1b7f3 |
| children | 644919e8d067 |
comparison
equal
deleted
inserted
replaced
| 8685:5952e691b975 | 8686:c468db944aa2 |
|---|---|
| 885 props = validate_plist (props); | 885 props = validate_plist (props); |
| 886 | 886 |
| 887 if (NILP (object)) | 887 if (NILP (object)) |
| 888 XSET (object, Lisp_Buffer, current_buffer); | 888 XSET (object, Lisp_Buffer, current_buffer); |
| 889 | 889 |
| 890 i = validate_interval_range (object, &start, &end, hard); | 890 i = validate_interval_range (object, &start, &end, soft); |
| 891 if (NULL_INTERVAL_P (i)) | 891 if (NULL_INTERVAL_P (i)) |
| 892 return Qnil; | 892 { |
| 893 /* If buffer has no props, and we want none, return now. */ | |
| 894 if (NILP (props)) | |
| 895 return Qnil; | |
| 896 | |
| 897 i = validate_interval_range (object, &start, &end, hard); | |
| 898 /* This can return if start == end. */ | |
| 899 if (NULL_INTERVAL_P (i)) | |
| 900 return Qnil; | |
| 901 } | |
| 893 | 902 |
| 894 s = XINT (start); | 903 s = XINT (start); |
| 895 len = XINT (end) - s; | 904 len = XINT (end) - s; |
| 896 | 905 |
| 897 if (i->position != s) | 906 if (i->position != s) |