From e41c81a6aed87ccd0e9dba14736d6012579f920c Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Fri, 27 Apr 2018 16:39:40 +0200
Subject: [PATCH] fix #313 - F1 does not work, but DDoc and Jump to declaration
 work

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

diff --git a/src/ce_dcd.pas b/src/ce_dcd.pas
index d73aa493..c21e09b9 100644
--- a/src/ce_dcd.pas
+++ b/src/ce_dcd.pas
@@ -573,7 +573,7 @@ begin
   fClient.Parameters.Clear;
   fClient.Parameters.Add('-l');
   fClient.Parameters.Add('-c');
-  fClient.Parameters.Add(intToStr(fDoc.SelStart - 1));
+  fClient.Parameters.Add(intToStr(fDoc.SelStart));
   fClient.Execute;
   writeSourceToInput;
   //