From d04fd37b2ef62eefe28dec04bfec88237d8fbb79 Mon Sep 17 00:00:00 2001 From: Basile Burg Date: Wed, 3 Feb 2016 21:33:17 +0100 Subject: [PATCH] fix, mess between options and custom commands --- src/ce_synmemo.pas | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/src/ce_synmemo.pas b/src/ce_synmemo.pas index c2bdd1f3..23d54c4d 100644 --- a/src/ce_synmemo.pas +++ b/src/ce_synmemo.pas @@ -771,7 +771,6 @@ var beg: string; i: integer = 1; j: integer; - opts: TSynEditorOptions; const blk = [' ', #9]; begin @@ -786,20 +785,19 @@ begin i += 1; end; i -= 1; - opts := editor.Options; - editor.Options := opts - [eoAutoIndent, eoTrimTrailingSpaces]; editor.BeginUndoBlock; editor.CommandProcessor(ecInsertLine, '', nil); editor.CommandProcessor(ecDown, '', nil); editor.CommandProcessor(ecInsertLine, '', nil); editor.CommandProcessor(ecDown, '', nil); + editor.CommandProcessor(ecLineStart, '', nil); for j := 1 to i do editor.CommandProcessor(ecChar, beg[j], nil); editor.CommandProcessor(ecChar, '}', nil); editor.CommandProcessor(ecUp, '', nil); + editor.CommandProcessor(ecLineStart, '', nil); for j := 1 to i do editor.CommandProcessor(ecChar, beg[j], nil); editor.CommandProcessor(ecTab, '', nil); editor.EndUndoBlock; - editor.Options := opts; end; procedure commentSelection(editor: TSynEdit);