From eb3fa653566d6bf130804d7d800f960d72819597 Mon Sep 17 00:00:00 2001
From: fvogel <fvogelnew1@free.fr>
Date: Tue, 7 Jun 2016 21:04:51 +0000
Subject: Possible solution for [1217222] - [.text edit undo/redo] return
 ranges of modified characters

---
 generic/tkText.c | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/generic/tkText.c b/generic/tkText.c
index b610844..d101364 100644
--- a/generic/tkText.c
+++ b/generic/tkText.c
@@ -2781,6 +2781,7 @@ TextPushUndoAction(
     Tcl_Obj *markSet2InsertObj = NULL;
     Tcl_Obj *insertCmdObj = Tcl_NewObj();
     Tcl_Obj *deleteCmdObj = Tcl_NewObj();
+    Tcl_Obj *returnCmdObj = Tcl_NewObj();
 
     /*
      * Get the index positions.
@@ -2830,6 +2831,11 @@ TextPushUndoAction(
     Tcl_ListObjAppendElement(NULL, deleteCmdObj, index1Obj);
     Tcl_ListObjAppendElement(NULL, deleteCmdObj, index2Obj);
 
+    Tcl_ListObjAppendElement(NULL, returnCmdObj,
+	    Tcl_NewStringObj("list", 4));
+    Tcl_ListObjAppendElement(NULL, returnCmdObj, index1Obj);
+    Tcl_ListObjAppendElement(NULL, returnCmdObj, index2Obj);
+
     /*
      * Note: we don't wish to use textPtr->widgetCmd in these callbacks
      * because if we delete the textPtr, but peers still exist, we will then
@@ -2847,11 +2853,13 @@ TextPushUndoAction(
 	    insertCmdObj, NULL);
     TkUndoMakeCmdSubAtom(NULL, markSet2InsertObj, iAtom);
     TkUndoMakeCmdSubAtom(NULL, seeInsertObj, iAtom);
+    TkUndoMakeCmdSubAtom(NULL, returnCmdObj, iAtom);
 
     dAtom = TkUndoMakeSubAtom(&TextUndoRedoCallback, textPtr->sharedTextPtr,
 	    deleteCmdObj, NULL);
     TkUndoMakeCmdSubAtom(NULL, markSet1InsertObj, dAtom);
     TkUndoMakeCmdSubAtom(NULL, seeInsertObj, dAtom);
+    TkUndoMakeCmdSubAtom(NULL, returnCmdObj, dAtom);
 
     Tcl_DecrRefCount(seeInsertObj);
     Tcl_DecrRefCount(index1Obj);
-- 
cgit v0.12