Mercurial > emacs

changeset 30678:1137a24ee515

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fprevious_single_char_property_change): Don't do arithmetic directly on lisp objects.
author Ken Raeburn <raeburn@raeburn.org>
date Tue, 08 Aug 2000 14:39:19 +0000
parents 9193f208ef24
children 4b6b1069c0ff
files src/textprop.c
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/src/textprop.c	Tue Aug 08 14:38:09 2000 +0000
+++ b/src/textprop.c	Tue Aug 08 14:39:19 2000 +0000
@@ -790,7 +790,8 @@
       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 @@
 	      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;