# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 770616512 0
# Node ID 2226c7efb3dad3f09276b292edf76ed682c4ef16
# Parent  7821be0db0928521cc4d6d068cc1e1d0b19171c8
(Fprevious_single_property_change): Check for null interval after correcting
for edge effects.

diff -r 7821be0db092 -r 2226c7efb3da src/textprop.c
--- a/src/textprop.c	Fri Jun 03 03:26:11 1994 +0000
+++ b/src/textprop.c	Fri Jun 03 04:08:32 1994 +0000
@@ -763,13 +763,14 @@
     CHECK_NUMBER_COERCE_MARKER (limit, 0);
 
   i = validate_interval_range (object, &pos, &pos, soft);
+
+  /* Start with the interval containing the char before point.  */
+  if (! NULL_INTERVAL_P (i) && i->position == XFASTINT (pos))
+    i = previous_interval (i);
+
   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)