560 |
} |
} |
561 |
cdr = Fcdr (cdr); |
cdr = Fcdr (cdr); |
562 |
apply1 (car, cdr); |
apply1 (car, cdr); |
563 |
|
|
564 |
/* Make sure this produces at least one undo entry, |
/* Make sure this produces at least one undo entry, |
565 |
so the test in `undo' for continuing an undo series |
so the test in `undo' for continuing an undo series |
566 |
will work right. */ |
will work right. */ |
567 |
if (EQ (oldlist, current_buffer->undo_list)) |
if (EQ (oldlist, current_buffer->undo_list)) |
568 |
current_buffer->undo_list |
current_buffer->undo_list |
569 |
= Fcons (list2 (Qcdr, Qnil), current_buffer->undo_list); |
= Fcons (list3 (Qapply, Qcdr, Qnil), current_buffer->undo_list); |
570 |
} |
} |
571 |
else if (STRINGP (car) && INTEGERP (cdr)) |
else if (STRINGP (car) && INTEGERP (cdr)) |
572 |
{ |
{ |