[Emacs-diffs] Changes to emacs/src/undo.c

[Kim F . Storm]

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))
                {