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

[Kim F . Storm]

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