mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-04 02:51:31 -08:00
Code Issues Projects Releases Wiki Activity

(record_insert): Change args to be ints, not Lisp_Objects.

Browse source
This commit is contained in:
Karl Heuer 1995-06-06 01:40:34 +00:00
parent 6de34814d6
commit 53480e99d3
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/undo.c
View file

@ -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);
}