From 9bce6dad73c733998fef4cf09e0b0dccf2dc8b9b Mon Sep 17 00:00:00 2001 From: Basile Burg Date: Wed, 3 Feb 2016 20:55:56 +0100 Subject: [PATCH] fix, mess between options and custom commands --- src/ce_synmemo.pas | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/src/ce_synmemo.pas b/src/ce_synmemo.pas index bb97efea..b9b22efe 100644 --- a/src/ce_synmemo.pas +++ b/src/ce_synmemo.pas @@ -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);