Commit 53b7feec authored by Richard M. Stallman's avatar Richard M. Stallman

(Fprevious_property_change): Move back at least 1 char.

(Fprevious_single_property_change): Likewise.
parent 3bf5f17a
......@@ -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)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment