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

SynEdit: Simplify TSynEditUndoItem.IsEqual.

Browse Source 
git-svn-id: trunk@56820 -
This commit is contained in:
juha 2017-12-22 23:43:23 +00:00
parent c8f3c37159
commit fdcf607d17
2 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/synedit/synedit.pp
View File

@ -5472,7 +5472,7 @@ var
Group: TSynEditUndoGroup;
begin
Group := fUndoList.PopItem;
if Group <> nil then begin;
if Group <> nil then begin
{$IFDEF SynUndoDebugCalls}
DebugLnEnter(['>> TCustomSynEdit.Undo ',DbgSName(self), ' ', dbgs(Self), ' Group', dbgs(Group), ' cnt=', Group.Count]);
{$ENDIF}

3
components/synedit/synedittextbase.pas
View File

@ -585,8 +585,7 @@ end;
function TSynEditUndoItem.IsEqual(AnItem: TSynEditUndoItem): Boolean;
begin
Result := (ClassType = AnItem.ClassType);
if Result then Result := Result and IsEqualContent(AnItem);
Result := (ClassType = AnItem.ClassType) and IsEqualContent(AnItem);
end;
function TSynEditUndoItem.DebugString: String;