[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, 09 Feb 2005 16:49:12 -0500 |
Index: emacs/src/undo.c
diff -c emacs/src/undo.c:1.70 emacs/src/undo.c:1.71
*** emacs/src/undo.c:1.70 Tue Feb 8 20:49:16 2005
--- emacs/src/undo.c Wed Feb 9 21:49:12 2005
***************
*** 557,562 ****
--- 557,564 ----
else if (EQ (car, Qapply))
{
/* Element (apply FUN . ARGS) means call FUN to undo. */
+ struct buffer *save_buffer = current_buffer;
+
car = Fcar (cdr);
cdr = Fcdr (cdr);
if (INTEGERP (car))
***************
*** 582,587 ****
--- 584,592 ----
}
else
apply1 (car, cdr);
+
+ if (save_buffer != current_buffer)
+ error ("Undo function switched buffer");
did_apply = 1;
}
else if (STRINGP (car) && INTEGERP (cdr))