From c509e34be4e6a9cd9de257dadcfedbeef67645ac Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Wed, 15 Jun 2016 08:36:58 +0200
Subject: [PATCH] disable symlist with non d files

---
 src/ce_symlist.pas | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/src/ce_symlist.pas b/src/ce_symlist.pas
index dfc438d6..626a8e80 100644
--- a/src/ce_symlist.pas
+++ b/src/ce_symlist.pas
@@ -561,7 +561,7 @@ end;
 
 procedure TCESymbolListWidget.updateVisibleCat;
 begin
-  if fDoc.isNotNil then
+  if fDoc.isNotNil and fDoc.isDSource then
   begin
     ndAlias.Visible := ndAlias.Count > 0;
     ndClass.Visible := ndClass.Count > 0;
@@ -672,8 +672,12 @@ var
 begin
   if not fHasToolExe then exit;
   if fDoc.isNil then exit;
-  if fDoc.Lines.Count = 0 then exit;
-  if not fDoc.isDSource then exit;
+  if (fDoc.Lines.Count = 0) or not fDoc.isDSource then
+  begin
+    clearTree;
+    updateVisibleCat;
+    exit;
+  end;
   //
   killProcess(fToolProc);
   fToolProc := TCEProcess.Create(nil);