From d4225c08140da5c1d7a73de98245ad9fc49a1b81 Mon Sep 17 00:00:00 2001 From: Ken Raeburn Date: Tue, 8 Aug 2000 14:39:19 +0000 Subject: [PATCH] (Fprevious_single_char_property_change): Don't do arithmetic directly on lisp objects. --- src/textprop.c | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/textprop.c b/src/textprop.c index f96e6bb6e7..a14480bf29 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; -- 2.39.2