From e7a8b7911b45c73cab0c17130517c3d401c6b6d0 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 7 May 1994 08:38:28 +0000 Subject: [PATCH] (record_delete): Record the old point value only right after a boundary. (record_delete): Test last_point_position_buffer. --- src/undo.c | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/src/undo.c b/src/undo.c index e9ba53f8631..4733694ff31 100644 --- a/src/undo.c +++ b/src/undo.c @@ -89,6 +89,7 @@ record_delete (beg, length) int beg, length; { Lisp_Object lbeg, lend, sbeg; + int at_boundary; if (EQ (current_buffer->undo_list, Qt)) return; @@ -101,6 +102,9 @@ record_delete (beg, length) Fundo_boundary (); XSET (last_undo_buffer, Lisp_Buffer, current_buffer); + at_boundary = (CONSP (current_buffer->undo_list) + && NILP (XCONS (current_buffer->undo_list)->car)); + if (MODIFF <= current_buffer->save_modified) record_first_change (); @@ -111,8 +115,11 @@ record_delete (beg, length) XFASTINT (lbeg) = beg; XFASTINT (lend) = beg + length; - /* If point wasn't at start of deleted range, record where it was. */ - if (last_point_position != XFASTINT (sbeg)) + /* If we are just after an undo boundary, and + point wasn't at start of deleted range, record where it was. */ + if (at_boundary + && last_point_position != XFASTINT (sbeg) + && current_buffer == XBUFFER (last_point_position_buffer)) current_buffer->undo_list = Fcons (make_number (last_point_position), current_buffer->undo_list); -- 2.39.5