# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 760304361 0
# Node ID 099857a46901fe2e3493c22211b8684b2de414d9
# Parent  7bea55d86ff6929569b57c7cea06142e9307b987
(record_first_change): Check for buffer-undo-list = t.
Make an undo boundary if appropriate.  Set last_undo_buffer.
(record_property_change): Use BUFFER, not current_buffer,
when testing undo_list.

diff -r 7bea55d86ff6 -r 099857a46901 src/undo.c
--- a/src/undo.c	Thu Feb 03 19:18:21 1994 +0000
+++ b/src/undo.c	Thu Feb 03 19:39:21 1994 +0000
@@ -123,6 +123,14 @@
 record_first_change ()
 {
   Lisp_Object high, low;
+
+  if (EQ (current_buffer->undo_list, Qt))
+    return;
+
+  if (current_buffer != XBUFFER (last_undo_buffer))
+    Fundo_boundary ();
+  XSET (last_undo_buffer, Lisp_Buffer, current_buffer);
+
   XFASTINT (high) = (current_buffer->modtime >> 16) & 0xffff;
   XFASTINT (low) = current_buffer->modtime & 0xffff;
   current_buffer->undo_list = Fcons (Fcons (Qt, Fcons (high, low)), current_buffer->undo_list);
@@ -139,7 +147,7 @@
   struct buffer *obuf = current_buffer;
   int boundary = 0;
 
-  if (EQ (current_buffer->undo_list, Qt))
+  if (EQ (XBUFFER (buffer)->undo_list, Qt))
     return;
 
   if (!EQ (buffer, last_undo_buffer))