(Fprevious_single_char_property_change): Don't do arithmetic directly on lisp

objects.

(Fprevious_single_char_property_change): Don't do arithmetic directly on lisp
objects.
d4225c08 · Ken Raeburn · cba7d658 · d4225c08
Commit d4225c08 authored Aug 08, 2000 by Ken Raeburn
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 2 deletions

src/textprop.c src/textprop.c +4 -2

No files found.
--- a/src/textprop.c
+++ b/src/textprop.c
@@ -790,7 +790,8 @@ back past position LIMIT; return LIMIT if nothing is found before LIMIT.")
      else
 	{
 	  Lisp_Object initial_value =
-	    Fget_char_property (position - 1, prop, object);
+	    Fget_char_property (make_number (XFASTINT (position) - 1),
+				prop, object);
      
 	  for (;;)
 	    {
@@ -804,7 +805,8 @@ back past position LIMIT; return LIMIT if nothing is found before LIMIT.")
 	      else
 		{
 		  Lisp_Object value =
-		    Fget_char_property (position - 1, prop, object);
+		    Fget_char_property (make_number (XFASTINT (position) - 1),
+					prop, object);

 		  if (!EQ (value, initial_value))
 		    break;