From af5c39689f7f7e276ab8bed9fbe70dbf497a9eab Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Wed, 21 Dec 2016 00:28:52 +0100
Subject: [PATCH] editor, local renaming, maintain caret pos

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

diff --git a/src/ce_synmemo.pas b/src/ce_synmemo.pas
index d7347c34..d7980006 100644
--- a/src/ce_synmemo.pas
+++ b/src/ce_synmemo.pas
@@ -1373,10 +1373,12 @@ var
   locs: TIntOpenArray = nil;
   old, idt, line: string;
   i, j, loc: integer;
+  p: TPoint;
   c: char;
 begin
   if not DcdWrapper.available then
     exit;
+  p := CaretXY;
   line := lineText;
   if (CaretX = 1) or not (line[LogicalCaretXY.X] in IdentChars) or
     not (line[LogicalCaretXY.X-1] in IdentChars)  then exit;
@@ -1405,6 +1407,7 @@ begin
     for c in idt do
       ExecuteCommand(ecChar, c, nil);
     EndUndoBlock;
+    CaretXY := p;
   end;
 end;