From: Ken Raeburn <raeburn@raeburn.org>
Date: Tue, 8 Aug 2000 14:39:19 +0000 (+0000)
Subject: (Fprevious_single_char_property_change): Don't do arithmetic directly on lisp
X-Git-Tag: emacs-pretest-21.0.90~2417
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d4225c08140da5c1d7a73de98245ad9fc49a1b81;p=emacs.git

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

diff --git a/src/textprop.c b/src/textprop.c
index f96e6bb6e7d..a14480bf294 100644
--- 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;