From ff08eb8560405630be43c0543aa5558ed0fe6cbf Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Fri, 18 Mar 2011 09:42:05 -0700 Subject: [PATCH] * textprop.c (property_change_between_p): Remove; unused. --- src/ChangeLog | 2 ++ src/textprop.c | 32 -------------------------------- 2 files changed, 2 insertions(+), 32 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index 21475dd6a6a..65b7bccd79e 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,5 +1,7 @@ 2011-03-18 Paul Eggert + * textprop.c (property_change_between_p): Remove; unused. + * intervals.c (interval_start_pos): Now static. * intervals.h (CHECK_TOTAL_LENGTH): Avoid empty "else". 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); */ } - -- 2.39.2