From 95bb7e406697970f875ea03c99eafec3731a717d Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Mon, 26 Aug 2002 13:40:15 +0000
Subject: [PATCH]  * fix for bug report 2000

---
 ide/wcedit.pas | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/ide/wcedit.pas b/ide/wcedit.pas
index cfb9b9330a..ab84900d2b 100644
--- a/ide/wcedit.pas
+++ b/ide/wcedit.pas
@@ -1334,9 +1334,12 @@ begin
               begin
                 { reinsert deleted text }
                 SetCurPtr(EndPos.X,EndPos.Y);
+                WasInserting:=GetInsertMode;
+                SetInsertMode(true);
                 if assigned(text) then
                   for Temp := 1 to length(Text^) do
                     AddChar(Text^[Temp]);
+                SetInsertMode(WasInserting);
                 SetMinMax(EndPos.Y);
                 SetCurPtr(StartPos.X,StartPos.Y);
               end;
@@ -2047,7 +2050,10 @@ end;
 END.
 {
  $Log$
- Revision 1.10  2002-08-26 13:01:39  pierre
+ Revision 1.11  2002-08-26 13:40:15  pierre
+  * fix for bug report 2000
+
+ Revision 1.10  2002/08/26 13:01:39  pierre
   + fill the Now field for Editor actions
 
  Revision 1.9  2002/04/20 20:27:44  pierre