From fa3535fa07739f57b8a9ad581db5b984e4e8fc5e Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Tue, 8 Jan 2013 20:01:23 +0000
Subject: [PATCH] SynEdit: search/replace, use undo-group if replace all with
 no user prompt

git-svn-id: trunk@39809 -
---
 components/synedit/synedit.pp | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/components/synedit/synedit.pp b/components/synedit/synedit.pp
index d112c4f3eb..f2a75e353e 100644
--- a/components/synedit/synedit.pp
+++ b/components/synedit/synedit.pp
@@ -7150,6 +7150,7 @@ begin
   fTSearch.Backwards:=bBackward;
   // search while the current search position is inside of the search range
   IncPaintLock;
+  BeginUndoBlock;
   try
     ptFoundStartSel.y := -1;
     //DebugLn(['TCustomSynEdit.SearchReplace ptStart=',dbgs(ptStart),' ptEnd=',dbgs(ptEnd),' ASearch="',dbgstr(ASearch),'" AReplace="',dbgstr(AReplace),'"']);
@@ -7179,11 +7180,13 @@ begin
           SetFoundCaretAndSel;
           EnsureCursorPosVisible;
           try
+            EndUndoBlock;
             DecPaintLock;
             nAction := DoOnReplaceText(ASearch,CurReplace,
                                        ptFoundStart.Y,ptFoundStart.X);
           finally
             IncPaintLock;
+            BeginUndoBlock
           end;
           if nAction = raCancel then exit;
         end else
@@ -7227,6 +7230,7 @@ begin
     end;
   finally
     SetFoundCaretAndSel;
+    EndUndoBlock;
     DecPaintLock;
   end;
 end;