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.") ...@@ -790,7 +790,8 @@ back past position LIMIT; return LIMIT if nothing is found before LIMIT.")
else else
{ {
Lisp_Object initial_value = Lisp_Object initial_value =
Fget_char_property (position - 1, prop, object); Fget_char_property (make_number (XFASTINT (position) - 1),
prop, object);
for (;;) for (;;)
{ {
...@@ -804,7 +805,8 @@ back past position LIMIT; return LIMIT if nothing is found before LIMIT.") ...@@ -804,7 +805,8 @@ back past position LIMIT; return LIMIT if nothing is found before LIMIT.")
else else
{ {
Lisp_Object value = 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)) if (!EQ (value, initial_value))
break; 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