From 53480e99d358bb1167a38cd13167ea55122cd754 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Tue, 6 Jun 1995 01:40:34 +0000 Subject: [PATCH] (record_insert): Change args to be ints, not Lisp_Objects. --- src/undo.c | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/src/undo.c b/src/undo.c index 86c30c5d22..2f37bae847 100644 --- a/src/undo.c +++ b/src/undo.c @@ -42,7 +42,7 @@ Lisp_Object pending_boundary; because we don't need to record the contents.) */ record_insert (beg, length) - Lisp_Object beg, length; + int beg, length; { Lisp_Object lbeg, lend; @@ -69,15 +69,15 @@ record_insert (beg, length) if (CONSP (elt) && INTEGERP (XCONS (elt)->car) && INTEGERP (XCONS (elt)->cdr) - && XINT (XCONS (elt)->cdr) == XINT (beg)) + && XINT (XCONS (elt)->cdr) == beg) { - XSETINT (XCONS (elt)->cdr, XINT (beg) + XINT (length)); + XSETINT (XCONS (elt)->cdr, beg + length); return; } } - lbeg = beg; - XSETINT (lend, XINT (beg) + XINT (length)); + XSETFASTINT (lbeg, beg); + XSETINT (lend, beg + length); current_buffer->undo_list = Fcons (Fcons (lbeg, lend), current_buffer->undo_list); } -- 2.20.1