diff --git a/ide/text/weditor.pas b/ide/text/weditor.pas
index 74ae740925..0038de4ccc 100644
--- a/ide/text/weditor.pas
+++ b/ide/text/weditor.pas
@@ -51,7 +51,7 @@ const
 
       EditorTextBufSize = {$ifdef FPC}32768{$else} 4096{$endif};
       MaxLineLength     = {$ifdef FPC}  255{$else}  255{$endif};
-      MaxLineCount      = {$ifdef FPC}16380{$else}16380{$endif};
+      MaxLineCount      = {$ifdef FPC}2000000{$else}16380{$endif};
 
       CodeCompleteMinLen = 4; { minimum length of text to try to complete }
 
@@ -4955,6 +4955,8 @@ begin
   LimitsChanged;
   if not AllLinesComplete then
     SetModified(true);
+  if (GetLineCount=MaxLineCount) and not eofstream(stream) then
+    EditorDialog(edTooManyLines,nil);
   if IsFlagSet(efSyntaxHighlight) then
     UpdateAttrsRange(0,Min(Delta.Y+Size.Y,GetLineCount-1),
       attrAll
@@ -5614,7 +5616,10 @@ end;
 END.
 {
   $Log$
-  Revision 1.82  2000-03-02 22:33:36  pierre
+  Revision 1.83  2000-03-14 13:38:03  pierre
+   * max number of line changed and warning added
+
+  Revision 1.82  2000/03/02 22:33:36  pierre
    * Grep improoved
 
   Revision 1.81  2000/02/09 12:56:54  pierre