Commit 4dcb3ee3 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(set_point): Convert call2 arguments to Lisp_Integer.

parent c6a67acd
...@@ -1832,14 +1832,18 @@ set_point (position, buffer) ...@@ -1832,14 +1832,18 @@ set_point (position, buffer)
enter_before = Qnil; enter_before = Qnil;
if (! EQ (leave_before, enter_before) && !NILP (leave_before)) if (! EQ (leave_before, enter_before) && !NILP (leave_before))
call2 (leave_before, old_position, position); call2 (leave_before, make_number (old_position),
make_number (position));
if (! EQ (leave_after, enter_after) && !NILP (leave_after)) if (! EQ (leave_after, enter_after) && !NILP (leave_after))
call2 (leave_after, old_position, position); call2 (leave_after, make_number (old_position),
make_number (position));
if (! EQ (enter_before, leave_before) && !NILP (enter_before)) if (! EQ (enter_before, leave_before) && !NILP (enter_before))
call2 (enter_before, old_position, position); call2 (enter_before, make_number (old_position),
make_number (position));
if (! EQ (enter_after, leave_after) && !NILP (enter_after)) if (! EQ (enter_after, leave_after) && !NILP (enter_after))
call2 (enter_after, old_position, position); call2 (enter_after, make_number (old_position),
make_number (position));
} }
} }
......
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