From b3e1fbdbdfe7bf750e1715ab658ae04c2c7cd4a7 Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Thu, 9 Feb 2012 00:20:21 +0000
Subject: [PATCH] DBG: ensure, existing "ignored exceptions" are re-enabled, if
 user requests

git-svn-id: trunk@35254 -
---
 ide/debugmanager.pas | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/ide/debugmanager.pas b/ide/debugmanager.pas
index 8f74d97313..3fde58d6b4 100644
--- a/ide/debugmanager.pas
+++ b/ide/debugmanager.pas
@@ -951,8 +951,10 @@ begin
 
   if (AExceptionType in [deInternal, deRunError]) then begin
     AContinue := ExecuteExceptionDialog(msg, Ignore, AExceptionType = deInternal) = mrCancel;
-    if Ignore then
+    if Ignore then begin
       Exceptions.AddIfNeeded(AExceptionClass);
+      Exceptions.Find(AExceptionClass).Enabled := True;
+    end;
   end
   else begin
     MessageDlg(lisCCOErrorCaption, msg, mtError, [mbOk], 0)