# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 759095687 0
# Node ID 2abe676588950e9d0f6d7ef896d35c220dc9bebb
# Parent  860d91d720635896bda23b33e2d6dbed15331463
(Fprevious_property_change): Move back at least 1 char.
(Fprevious_single_property_change): Likewise.

diff -r 860d91d72063 -r 2abe67658895 src/textprop.c
--- a/src/textprop.c	Thu Jan 20 15:12:30 1994 +0000
+++ b/src/textprop.c	Thu Jan 20 19:54:47 1994 +0000
@@ -647,6 +647,10 @@
   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 @@
   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)