From bac9fc068945cf76dd7cda8fa2dbe21831d1f878 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Wed, 30 Apr 2014 12:51:40 +0000
Subject: [PATCH] IDE: clean up

git-svn-id: trunk@44851 -
---
 ide/sourceeditor.pp | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/ide/sourceeditor.pp b/ide/sourceeditor.pp
index ec28e68fd7..469c02afb6 100644
--- a/ide/sourceeditor.pp
+++ b/ide/sourceeditor.pp
@@ -2693,17 +2693,21 @@ begin
     if SharedEditorCount=0 then exit;
     SrcEdit:=SharedEditors[0].EditorComponent;
     if SrcEdit=nil then exit;
-    if not (SrcEdit.Highlighter is TSynPasSyn) then begin
+    if not (SrcEdit.Highlighter is TSynPasSyn) then
+    begin
       if Filename<>FLastWarnedMainLinkFilename then
-        debugln(['TSourceEditorSharedValues.GetMainLinkScanner not pascal highlighted: ',Filename]);
-      FLastWarnedMainLinkFilename:=CodeBuffer.Filename;
+      begin
+        if FilenameIsPascalSource(Filename) then
+          debugln(['TSourceEditorSharedValues.GetMainLinkScanner not pascal highlighted: ',Filename]);
+      end;
+      FLastWarnedMainLinkFilename:=Filename;
       exit;
     end;
     if not CodeToolBoss.InitCurCodeTool(CodeBuffer) then
     begin
       if Filename<>FLastWarnedMainLinkFilename then
         debugln(['TSourceEditorSharedValues.GetMainLinkScanner failed to find the unit of ',Filename]);
-      FLastWarnedMainLinkFilename:=CodeBuffer.Filename;
+      FLastWarnedMainLinkFilename:=Filename;
       exit;
     end;
     Result:=CodeToolBoss.CurCodeTool.Scanner;