From 3b3bdf5c7b2cdeb2a82eabcbdd15407ca2d52cc2 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Thu, 12 Mar 2015 23:06:07 +0100
Subject: [PATCH] fix, cesyms disabled for non-D docs

---
 src/ce_symlist.lfm | 2 +-
 src/ce_symlist.pas | 1 +
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/ce_symlist.lfm b/src/ce_symlist.lfm
index abfd201c..31938bd9 100644
--- a/src/ce_symlist.lfm
+++ b/src/ce_symlist.lfm
@@ -24,7 +24,7 @@ inherited CESymbolListWidget: TCESymbolListWidget
         Width = 302
         Align = alClient
         BorderSpacing.Around = 4
-        DefaultItemHeight = 18
+        DefaultItemHeight = 16
         HideSelection = False
         Images = imgList
         ReadOnly = True
diff --git a/src/ce_symlist.pas b/src/ce_symlist.pas
index de668b4b..9dbf9e41 100644
--- a/src/ce_symlist.pas
+++ b/src/ce_symlist.pas
@@ -632,6 +632,7 @@ var
 begin
   if fDoc = nil then exit;
   if fDoc.Lines.Count = 0 then exit;
+  if not fDoc.isDSource then exit;
 
   // standard process options
   killProcess(fToolProc);