From 23fb44a6e49abed1ff4551c147a54b0bcdc0455a Mon Sep 17 00:00:00 2001 From: Basile Burg Date: Sat, 14 Apr 2018 06:08:07 +0200 Subject: [PATCH] ctrl+x, trim leading whites, fix #287 --- src/ce_synmemo.pas | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/ce_synmemo.pas b/src/ce_synmemo.pas index 9af9224e..7d972487 100644 --- a/src/ce_synmemo.pas +++ b/src/ce_synmemo.pas @@ -1372,8 +1372,9 @@ begin case Command of ecCut: if not SelAvail then begin - SelectLine(false); + SelectLine(true); ExecuteCommand(ecCut, #0, nil); + Clipboard.AsText := TrimLeft(Clipboard.AsText); end; ecCopy: if not SelAvail then begin