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

fix, mess between options and custom commands

This commit is contained in:
Basile Burg 2016-02-03 20:55:56 +01:00
parent f234067fc3
commit 9bce6dad73
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/ce_synmemo.pas
View File

@ -771,6 +771,7 @@ var
beg: string;
i: integer = 1;
j: integer;
opts: TSynEditorOptions;
const
blk = [' ', #9];
begin
@ -785,19 +786,19 @@ begin
i += 1;
end;
i -= 1;
opts := editor.Options;
editor.BeginUndoBlock;
editor.CommandProcessor(ecInsertLine, '', nil);
editor.CommandProcessor(ecDown, '', nil);
editor.CommandProcessor(ecInsertLine, '', nil);
editor.CommandProcessor(ecDown, '', nil);
if not (eoAutoIndent in editor.Options) then
for j := 1 to i do editor.CommandProcessor(ecChar, beg[j], nil);
for j := 1 to i do editor.CommandProcessor(ecChar, beg[j], nil);
editor.CommandProcessor(ecChar, '}', nil);
editor.CommandProcessor(ecUp, '', nil);
for j := 1 to i do editor.CommandProcessor(ecChar, beg[j], nil);
if not (eoAutoIndent in editor.Options) then
editor.CommandProcessor(ecTab, '', nil);
editor.CommandProcessor(ecTab, '', nil);
editor.EndUndoBlock;
editor.Options := opts;
end;
procedure commentSelection(editor: TSynEdit);