Mercurial > emacs

changeset 18743:1c1a002339a5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(set_point): Convert call2 arguments to Lisp_Integer.
author Richard M. Stallman <rms@gnu.org>
date Sat, 12 Jul 1997 06:42:44 +0000
parents a56124aa2164
children 1718bdf566fd
files src/intervals.c
diffstat 1 files changed, 8 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/src/intervals.c	Sat Jul 12 06:42:03 1997 +0000
+++ b/src/intervals.c	Sat Jul 12 06:42:44 1997 +0000
@@ -1832,14 +1832,18 @@
 	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));
     }
 }