From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 20 Jan 1994 19:54:47 +0000 (+0000)
Subject: (Fprevious_property_change): Move back at least 1 char.
X-Git-Tag: emacs-19.34~10207
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=53b7feeccbe950ff9fdd37d2fbc321def817c922;p=emacs.git

(Fprevious_property_change): Move back at least 1 char.
(Fprevious_single_property_change): Likewise.
---

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)