forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix #44, "Invert version all/none" does not work when tabs are not converted to spaces

This commit is contained in:
Basile Burg 2016-05-08 12:30:06 +02:00
parent 3dde7af9d4
commit 830f81b627
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/ce_synmemo.pas
View File

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