Commit d4225c08 authored by Ken Raeburn's avatar Ken Raeburn

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

objects.
parent cba7d658
......@@ -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;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment