Mercurial > emacs
comparison src/textprop.c @ 9541:449e024f13be
(Fset_text_properties): Special case for getting
rid of all properties of a string.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sat, 15 Oct 1994 21:29:19 +0000 |
parents | bbf226780027 |
children | 9b2ecbd894e4 |
comparison
equal
deleted
inserted
replaced
9540:cde03222210e | 9541:449e024f13be |
---|---|
900 props = validate_plist (props); | 900 props = validate_plist (props); |
901 | 901 |
902 if (NILP (object)) | 902 if (NILP (object)) |
903 XSETBUFFER (object, current_buffer); | 903 XSETBUFFER (object, current_buffer); |
904 | 904 |
905 /* If we want no properties for a whole string, | |
906 get rid of its intervals. */ | |
907 if (NILP (props) && STRINGP (object) | |
908 && XFASTINT (start) == 0 | |
909 && XFASTINT (end) == XSTRING (object)->size) | |
910 { | |
911 XSTRING (object)->intervals = 0; | |
912 return Qt; | |
913 } | |
914 | |
905 i = validate_interval_range (object, &start, &end, soft); | 915 i = validate_interval_range (object, &start, &end, soft); |
916 | |
906 if (NULL_INTERVAL_P (i)) | 917 if (NULL_INTERVAL_P (i)) |
907 { | 918 { |
908 /* If buffer has no props, and we want none, return now. */ | 919 /* If buffer has no props, and we want none, return now. */ |
909 if (NILP (props)) | 920 if (NILP (props)) |
910 return Qnil; | 921 return Qnil; |