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

editor, local renaming, maintain caret pos

This commit is contained in:
Basile Burg 2016-12-21 00:28:52 +01:00
parent 3428a0f567
commit af5c39689f
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/ce_synmemo.pas
View File

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