diff options
Diffstat (limited to 'src/textprop.c')
| -rw-r--r-- | src/textprop.c | 32 |
1 files changed, 0 insertions, 32 deletions
diff --git a/src/textprop.c b/src/textprop.c index 5db6033670b..cd89efeb38d 100644 --- a/src/textprop.c +++ b/src/textprop.c @@ -974,37 +974,6 @@ past position LIMIT; return LIMIT if nothing is found before LIMIT. */) return make_number (next->position); } -/* Return 1 if there's a change in some property between BEG and END. */ - -int -property_change_between_p (EMACS_INT beg, EMACS_INT end) -{ - register INTERVAL i, next; - Lisp_Object object, pos; - - XSETBUFFER (object, current_buffer); - XSETFASTINT (pos, beg); - - i = validate_interval_range (object, &pos, &pos, soft); - if (NULL_INTERVAL_P (i)) - return 0; - - next = next_interval (i); - while (! NULL_INTERVAL_P (next) && intervals_equal (i, next)) - { - next = next_interval (next); - if (NULL_INTERVAL_P (next)) - return 0; - if (next->position >= end) - return 0; - } - - if (NULL_INTERVAL_P (next)) - return 0; - - return 1; -} - DEFUN ("next-single-property-change", Fnext_single_property_change, Snext_single_property_change, 2, 4, 0, doc: /* Return the position of next property change for a specific property. @@ -2331,4 +2300,3 @@ inherits it if NONSTICKINESS is nil. The `front-sticky' and /* defsubr (&Serase_text_properties); */ /* defsubr (&Scopy_text_properties); */ } - |