From 830f81b62716a9492b08c9574d09e2d6e97312c6 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Sun, 8 May 2016 12:30:06 +0200
Subject: [PATCH] fix #44, "Invert version all/none" does not work when tabs
 are not converted to spaces

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

diff --git a/src/ce_synmemo.pas b/src/ce_synmemo.pas
index b7e9b37c..bccef1ba 100644
--- a/src/ce_synmemo.pas
+++ b/src/ce_synmemo.pas
@@ -956,7 +956,7 @@ var
   i: integer;
   c: char;
   tok, tok1, tok2: PLexToken;
-  pt, cp, st, nd: TPoint;
+  cp, st, nd: TPoint;
   sel: boolean;
 begin
   fLexToks.Clear;
@@ -990,10 +990,9 @@ begin
     if  ((tok1^.kind = ltkKeyword) and (tok1^.data = 'version')
       and (tok2^.kind = ltkSymbol) and (tok2^.data = '(')) then
     begin
-      pt := tok^.position;
-      pt.X += 1;
       BeginUndoBlock;
-      ExecuteCommand(ecGotoXY, '', @pt);
+      LogicalCaretXY := tok^.position;
+      CaretX:=CaretX+1;
       case tok^.Data of
         'all':
         begin