From 23652be83bf30cf1d0a899542a1aae3dc88d998b Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Wed, 25 Oct 2017 05:07:39 +0200
Subject: [PATCH] fix #194 - search, problem with consecutive matches

---
 src/ce_search.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/ce_search.pas b/src/ce_search.pas
index b1d8e50a..e08b51a4 100644
--- a/src/ce_search.pas
+++ b/src/ce_search.pas
@@ -376,7 +376,7 @@ procedure TCESearchWidget.actFindNextExecute(sender: TObject);
 begin
   if fDoc.isNil then exit;
   //
-  fSearchMru.Insert(0,fToFind);
+  fSearchMru.Insert(0, fToFind);
   cbToFind.Items.Assign(fSearchMru);
   //
   if not chkFromCur.Checked then
@@ -386,7 +386,7 @@ begin
     else
     begin
       if not fHasRestarted then
-        fDoc.CaretXY := Point(0,0);
+        fDoc.CaretXY := Point(1,1);
       fHasRestarted := true;
     end;
   end
@@ -395,7 +395,7 @@ begin
     if chkBack.Checked then
       fDoc.CaretX := fDoc.CaretX - 1
     else
-      fDoc.CaretX := fDoc.CaretX + fToFind.length;
+      fDoc.CaretX := fDoc.CaretX + 1;
   end;
   if fDoc.SearchReplace(fToFind, '', getOptions) = 0 then
     dlgOkInfo('the expression cannot be found')