(Fprevious_property_change): Move back at least 1 char.

(Fprevious_single_property_change): Likewise.

(Fprevious_property_change): Move back at least 1 char.
(Fprevious_single_property_change): Likewise.
53b7feec · Richard M. Stallman · 3bf5f17a · 53b7feec
Commit 53b7feec authored Jan 20, 1994 by Richard M. Stallman
Show whitespace changes
Inline Side-by-side

Showing with 8 additions and 0 deletions

src/textprop.c src/textprop.c +8 -0

No files found.
--- 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)