mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-08 04:30:45 -08:00
Code Issues Projects Releases Wiki Activity

(record_delete): Save last_point_position in the undo record, rather than the

Browse source 
current value of point.
This commit is contained in:
Karl Heuer 1994-03-03 20:12:01 +00:00
parent 01314b95fa
commit 4e665715b9
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/undo.c
View file

@ -22,6 +22,7 @@ and this notice must be preserved on all copies. */
#include <config.h>
#include "lisp.h"
#include "buffer.h"
#include "commands.h"
/* Last buffer for which undo information was recorded. */
Lisp_Object last_undo_buffer;
@ -95,10 +96,10 @@ record_delete (beg, length)
XFASTINT (lbeg) = beg;
XFASTINT (lend) = beg + length;
/* If point isn't at start of deleted range, record where it is. */
if (PT != XFASTINT (sbeg))
/* If point wasn't at start of deleted range, record where it was. */
if (last_point_position != XFASTINT (sbeg))
current_buffer->undo_list
= Fcons (make_number (PT), current_buffer->undo_list);
= Fcons (make_number (last_point_position), current_buffer->undo_list);
current_buffer->undo_list
= Fcons (Fcons (Fbuffer_substring (lbeg, lend), sbeg),