From 318d94f51df56aaea517e7cb89ca956857685ee7 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Wed, 29 Aug 2018 10:47:49 +0200
Subject: [PATCH] kill D-Scanner if not yet returned

---
 src/ce_synmemo.pas | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/ce_synmemo.pas b/src/ce_synmemo.pas
index c570c1e9..243fe89d 100644
--- a/src/ce_synmemo.pas
+++ b/src/ce_synmemo.pas
@@ -2931,6 +2931,11 @@ begin
     or not fCanDscan then
       exit;
 
+  if fDscanner.Running then
+  begin
+    fDscanner.Terminate(0);
+    sleep(1);
+  end;
   removeDscannerWarnings;
   fCanDscan := false;
   fDScanner.execute;