From 324322ff27666422d3d5bc35e98f5af02f82440f Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Fri, 27 Apr 2018 09:11:30 +0200
Subject: [PATCH] cleanup

---
 src/ce_observer.pas | 3 ---
 src/ce_synmemo.pas  | 1 -
 src/ce_term.pas     | 1 -
 3 files changed, 5 deletions(-)

diff --git a/src/ce_observer.pas b/src/ce_observer.pas
index 78643e31..d7a083e9 100644
--- a/src/ce_observer.pas
+++ b/src/ce_observer.pas
@@ -208,9 +208,6 @@ begin
 end;
 
 function TCEEntitiesConnector.getSingleService(const serviceName: string): TObject;
-var
-  i: Integer;
-  serv: ICESingleService;
 begin
   Result := nil;
   if not fServices.GetValue(serviceName, result) then
diff --git a/src/ce_synmemo.pas b/src/ce_synmemo.pas
index c4561908..028c56b4 100644
--- a/src/ce_synmemo.pas
+++ b/src/ce_synmemo.pas
@@ -3229,7 +3229,6 @@ var
   curMd5: TMDDigest;
   str: TStringList;
   txt: string;
-  i: integer;
 begin
   if fDiffDialogWillClose or fDisableFileDateCheck then
     exit;
diff --git a/src/ce_term.pas b/src/ce_term.pas
index 3047aec5..4c6df23a 100644
--- a/src/ce_term.pas
+++ b/src/ce_term.pas
@@ -57,7 +57,6 @@ type
   private
     fTerm: TTerminal;
     fOpts: TCETerminalOptions;
-    fFirst: boolean;
     fLastCd: string;
 
     procedure docNew(document: TCESynMemo);