[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/src/undo.c
From: |
Kim F . Storm |
Subject: |
[Emacs-diffs] Changes to emacs/src/undo.c |
Date: |
Wed, 02 Feb 2005 10:43:18 -0500 |
Index: emacs/src/undo.c
diff -c emacs/src/undo.c:1.67 emacs/src/undo.c:1.68
*** emacs/src/undo.c:1.67 Mon Jan 31 22:44:27 2005
--- emacs/src/undo.c Wed Feb 2 15:43:18 2005
***************
*** 560,571 ****
}
cdr = Fcdr (cdr);
apply1 (car, cdr);
/* Make sure this produces at least one undo entry,
so the test in `undo' for continuing an undo series
will work right. */
if (EQ (oldlist, current_buffer->undo_list))
current_buffer->undo_list
! = Fcons (list2 (Qcdr, Qnil), current_buffer->undo_list);
}
else if (STRINGP (car) && INTEGERP (cdr))
{
--- 560,572 ----
}
cdr = Fcdr (cdr);
apply1 (car, cdr);
+
/* Make sure this produces at least one undo entry,
so the test in `undo' for continuing an undo series
will work right. */
if (EQ (oldlist, current_buffer->undo_list))
current_buffer->undo_list
! = Fcons (list3 (Qapply, Qcdr, Qnil),
current_buffer->undo_list);
}
else if (STRINGP (car) && INTEGERP (cdr))
{
- [Emacs-diffs] Changes to emacs/src/undo.c,
Kim F . Storm <=