From 5e06daf09e16748e00c57b0e336d5685d85bedf4 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Sat, 20 Jun 2015 02:53:38 +0200
Subject: [PATCH] fix, dd files highlighter, used D HL but this not d code.

+ avoid content to be lexed to retrieve module name
---
 src/ce_synmemo.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/ce_synmemo.pas b/src/ce_synmemo.pas
index b52ce717..5ae349cd 100644
--- a/src/ce_synmemo.pas
+++ b/src/ce_synmemo.pas
@@ -722,9 +722,9 @@ end;
 procedure TCESynMemo.identifierToD2Syn;
 begin
   fIdentifier := GetWordAtRowCol(LogicalCaretXY);
-  if fIsDSource then
+  if Highlighter = D2Syn then
     D2Syn.CurrentIdentifier := fIdentifier
-  else if fIsTxtFile then
+  else if Highlighter = TxtSyn then
     TxtSyn.CurrIdent := fIdentifier;
 end;
 
@@ -741,7 +741,7 @@ var
   ext: string;
 begin
   ext := extractFileExt(aFilename);
-  if dExtList.IndexOf(ext) = -1 then
+  if (dExtList.IndexOf(ext) = -1) or (ext = '.dd') then
     Highlighter := TxtSyn;
   Lines.LoadFromFile(aFilename);
   fFilename := aFilename;