From 804dff87d1f0a54bf50b43f4925eca8903bdc4e0 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Mon, 16 Feb 2015 02:42:28 +0100
Subject: [PATCH] fix, DCD get doc only called for D sources

---
 src/ce_main.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/ce_main.pas b/src/ce_main.pas
index c80b9324..51518985 100644
--- a/src/ce_main.pas
+++ b/src/ce_main.pas
@@ -854,7 +854,7 @@ procedure TCEMainForm.ApplicationProperties1ShowHint(var HintStr: string;
 begin
   // TODO-crefactor: move this to TCESynMemo or TCEEditorWidget.
   // TODO-cbugfix: first DDoc hint, window rect is wrong.
-  if fDoc <> nil then if fDoc.Focused then
+  if (fDoc <> nil) and fDoc.Focused and fDoc.isDSource then
   begin
     TCEEditorHintWindow.FontSize := fDoc.Font.Size;
     HintInfo.HintWindowClass := TCEEditorHintWindow;