From 53b7feeccbe950ff9fdd37d2fbc321def817c922 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 20 Jan 1994 19:54:47 +0000 Subject: [PATCH] (Fprevious_property_change): Move back at least 1 char. (Fprevious_single_property_change): Likewise. --- src/textprop.c | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/src/textprop.c b/src/textprop.c index 6c317063d6d..189dd4726e8 100644 --- a/src/textprop.c +++ b/src/textprop.c @@ -647,6 +647,10 @@ back past position LIMIT; fail if nothing is found before LIMIT.") if (NULL_INTERVAL_P (i)) return limit; + /* Start with the interval containing the char before point. */ + if (i->position == XFASTINT (pos)) + i = previous_interval (i); + previous = previous_interval (i); while (! NULL_INTERVAL_P (previous) && intervals_equal (previous, i) && (NILP (limit) @@ -686,6 +690,10 @@ back past position LIMIT; fail if nothing is found before LIMIT.") if (NULL_INTERVAL_P (i)) return limit; + /* Start with the interval containing the char before point. */ + if (i->position == XFASTINT (pos)) + i = previous_interval (i); + here_val = textget (i->plist, prop); previous = previous_interval (i); while (! NULL_INTERVAL_P (previous)