diff options
| -rw-r--r-- | src/gui/fpg_memo.pas | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/gui/fpg_memo.pas b/src/gui/fpg_memo.pas index acdf2f13..0cf0f469 100644 --- a/src/gui/fpg_memo.pas +++ b/src/gui/fpg_memo.pas @@ -1221,7 +1221,7 @@ begin keyDelete: begin ls := GetLineText(FCursorLine); - if FSelEndLine > -1 then + if SelectionText <> '' then DeleteSelection else if FCursorPos < UTF8Length(ls) then begin |