paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-25 17:19:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

synedit: fixed undo delete space at end of line, bug #8722

Browse Source 
git-svn-id: trunk@14212 -
This commit is contained in:
mattias 2008-02-20 14:39:41 +00:00
parent b2affc1ca1
commit e91dacd68b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/synedit/synedit.pp
View File

@ -7927,7 +7927,7 @@ begin
if {$IFDEF SYN_LAZARUS}LogCaretXY.X{$ELSE}CaretX{$ENDIF} > Len +1 if {$IFDEF SYN_LAZARUS}LogCaretXY.X{$ELSE}CaretX{$ENDIF} > Len +1
then begin then begin
// only move caret one column // only move caret one column
Helper := ''; Helper := ' ';
CaretX := CaretX - 1; CaretX := CaretX - 1;
end else if CaretX = 1 then begin end else if CaretX = 1 then begin
// join this line with the last line if possible // join this line with the last line if possible