paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 09:09:47 +01:00
Code Issues Packages Projects Releases Wiki Activity

* avoid considering grouped action if StoreUnfo is false

Browse Source
This commit is contained in:
pierre 2002-04-20 20:27:44 +00:00
parent 1825ca25de
commit a42b826a06
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/wcedit.pas
View File

@ -726,6 +726,7 @@ end;
procedure TCodeEditorCore.AddGroupedAction(AAction : byte);
begin
if (UndoList=nil) or (not StoreUndo) then Exit;
if Assigned(UndoList^.CurrentGroupedAction) then
inc(UndoList^.GroupLevel)
else
@ -737,6 +738,7 @@ end;
procedure TCodeEditorCore.CloseGroupedAction(AAction : byte);
begin
if (UndoList=nil) or (not StoreUndo) then Exit;
dec(UndoList^.GroupLevel);
if UndoList^.GroupLevel=0 then
begin
@ -2044,7 +2046,10 @@ end;
END.
{
$Log$
Revision 1.8 2002-04-16 08:27:01 pierre
Revision 1.9 2002-04-20 20:27:44 pierre
* avoid considering grouped action if StoreUnfo is false
Revision 1.8 2002/04/16 08:27:01 pierre
* fix for bug report 1869
Revision 1.7 2002/01/25 14:15:35 pierre