Mercurial > emacs

diff src/textprop.c @ 5644:2abe67658895

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fprevious_property_change): Move back at least 1 char. (Fprevious_single_property_change): Likewise.
author Richard M. Stallman <rms@gnu.org>
date Thu, 20 Jan 1994 19:54:47 +0000
parents b37f62d72049
children 214263de8277
line wrap: on
line diff
--- 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)