/[emacs]/emacs/src/undo.c
ViewVC logotype

Diff of /emacs/src/undo.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.67 by kfstorm, Mon Jan 31 22:44:27 2005 UTC revision 1.68 by kfstorm, Wed Feb 2 15:43:18 2005 UTC
# Line 560  Return what remains of the list.  */) Line 560  Return what remains of the list.  */)
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                  {                  {

Legend:
Removed from v.1.67  
changed lines
  Added in v.1.68

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26