From 4dcb3ee353fda3654ee0350875938573632943cb Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 12 Jul 1997 06:42:44 +0000 Subject: [PATCH] (set_point): Convert call2 arguments to Lisp_Integer. --- src/intervals.c | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/src/intervals.c b/src/intervals.c index 995b1cfb2eb..33cef35c654 100644 --- a/src/intervals.c +++ b/src/intervals.c @@ -1832,14 +1832,18 @@ set_point (position, buffer) enter_before = Qnil; 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)) - 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)) - 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)) - call2 (enter_after, old_position, position); + call2 (enter_after, make_number (old_position), + make_number (position)); } } -- 2.39.5