# HG changeset patch
# User Ken Raeburn <raeburn@raeburn.org>
# Date 965745845 0
# Node ID 5583737fcf8520d4ea4bbf4835d6f2fdca4d0584
# Parent  eed7b9be8ad336f921db6a551ebd7b70177bfca3
(record_delete): Make sure last_point_position_buffer is a buffer before
comparing pointers.

diff -r eed7b9be8ad3 -r 5583737fcf85 src/undo.c
--- a/src/undo.c	Tue Aug 08 14:43:28 2000 +0000
+++ b/src/undo.c	Tue Aug 08 14:44:05 2000 +0000
@@ -140,6 +140,8 @@
      point wasn't at start of deleted range, record where it was.  */
   if (at_boundary
       && last_point_position != XFASTINT (sbeg)
+      /* If we're called from batch mode, this could be nil.  */
+      && BUFFERP (last_point_position_buffer)
       && current_buffer == XBUFFER (last_point_position_buffer))
     current_buffer->undo_list
       = Fcons (make_number (last_point_position), current_buffer->undo_list);