Mercurial > emacs
comparison src/undo.c @ 59864:385699a0ff01
(Fprimitive_undo): Fix dummy apply undo entry.
author | Kim F. Storm <storm@cua.dk> |
---|---|
date | Wed, 02 Feb 2005 15:43:18 +0000 |
parents | ff1b86883ff8 |
children | cf4b913c7074 72cf6261961e |
comparison
equal
deleted
inserted
replaced
59863:3ffcc76427cd | 59864:385699a0ff01 |
---|---|
558 cdr = Fcdr (Fcdr (Fcdr (cdr))); | 558 cdr = Fcdr (Fcdr (Fcdr (cdr))); |
559 car = Fcar (cdr); | 559 car = Fcar (cdr); |
560 } | 560 } |
561 cdr = Fcdr (cdr); | 561 cdr = Fcdr (cdr); |
562 apply1 (car, cdr); | 562 apply1 (car, cdr); |
563 | |
563 /* Make sure this produces at least one undo entry, | 564 /* Make sure this produces at least one undo entry, |
564 so the test in `undo' for continuing an undo series | 565 so the test in `undo' for continuing an undo series |
565 will work right. */ | 566 will work right. */ |
566 if (EQ (oldlist, current_buffer->undo_list)) | 567 if (EQ (oldlist, current_buffer->undo_list)) |
567 current_buffer->undo_list | 568 current_buffer->undo_list |
568 = Fcons (list2 (Qcdr, Qnil), current_buffer->undo_list); | 569 = Fcons (list3 (Qapply, Qcdr, Qnil), current_buffer->undo_list); |
569 } | 570 } |
570 else if (STRINGP (car) && INTEGERP (cdr)) | 571 else if (STRINGP (car) && INTEGERP (cdr)) |
571 { | 572 { |
572 /* Element (STRING . POS) means STRING was deleted. */ | 573 /* Element (STRING . POS) means STRING was deleted. */ |
573 Lisp_Object membuf; | 574 Lisp_Object membuf; |