From c0f405ad9318cb18aa60f830f92ad2d8051a26cb Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Mon, 10 Jan 2000 23:20:04 +0000
Subject: [PATCH]  * problem with Paste solved

---
 ide/text/weditor.pas | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/ide/text/weditor.pas b/ide/text/weditor.pas
index a5ff776b64..5dbd398a00 100644
--- a/ide/text/weditor.pas
+++ b/ide/text/weditor.pas
@@ -4473,8 +4473,7 @@ begin
 
     while OK and (LineDelta<LineCount) do
     begin
-      if (LineDelta<LineCount-1) and (VerticalBlock=false) then
-      if (LineDelta<>0) or (Editor^.SelEnd.X=0) then
+      if (LineDelta>0) and (VerticalBlock=false) then
         begin
           Lines^.AtInsert(DestPos.Y,NewLine(''));
           BPos.X:=0;BPos.Y:=DestPos.Y;
@@ -5518,7 +5517,10 @@ end;
 END.
 {
   $Log$
-  Revision 1.73  2000-01-10 13:25:46  pierre
+  Revision 1.74  2000-01-10 23:20:04  pierre
+   * problem with Paste solved
+
+  Revision 1.73  2000/01/10 13:25:46  pierre
    + first partial syntax test
 
   Revision 1.72  2000/01/07 00:19:30  pierre