From 6c52701a10e85dc4d430a25cc306fa380039e098 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Sun, 6 Jul 2014 21:05:37 +0200
Subject: [PATCH] bugfix:  empty source side effects

---
 src/ce_editor.pas | 22 +++++++++++++---------
 1 file changed, 13 insertions(+), 9 deletions(-)

diff --git a/src/ce_editor.pas b/src/ce_editor.pas
index 9f1ec424..64e57e8b 100644
--- a/src/ce_editor.pas
+++ b/src/ce_editor.pas
@@ -228,17 +228,21 @@ begin
   begin
     mainForm.docChangeNotify(Self, editorIndex);
 
-    mainForm.MessageWidget.Clear;
-    lex( ed.Lines.Text, tokLst );
 
-    checkSyntacticErrors( tokLst, errLst);
-    for err in errLst do
-      mainForm.MessageWidget.addMessage(format(
-      '%s  (@line:%4.d @char:%.4d)',[err.msg, err.position.y, err.position.x]));
+    if ed.Lines.Count > 0 then
+    begin
+      mainForm.MessageWidget.Clear;
+      lex( ed.Lines.Text, tokLst );
 
-    md := getModuleName(tokLst);
-    if md = '' then md := extractFileName(ed.fileName);
-    pageControl.ActivePage.Caption := md;
+      checkSyntacticErrors( tokLst, errLst);
+      for err in errLst do
+        mainForm.MessageWidget.addMessage(format(
+        '%s  (@line:%4.d @char:%.4d)',[err.msg, err.position.y, err.position.x]));
+
+      md := getModuleName(tokLst);
+      if md = '' then md := extractFileName(ed.fileName);
+      pageControl.ActivePage.Caption := md;
+    end;
 
     mainForm.MessageWidget.scrollToBack;
     tokLst.Clear;