From 7e63af8b51de85f4026ddb577f67bf6b867e2eaa Mon Sep 17 00:00:00 2001
From: Ansgar Becker <anse@heidisql.com>
Date: Tue, 27 Dec 2022 19:44:23 +0100
Subject: [PATCH] Issue #1568: fix ineffective temporary disabling of OnChange
 handler

---
 source/main.pas | 1 +
 1 file changed, 1 insertion(+)

diff --git a/source/main.pas b/source/main.pas
index 813ebc6e..2bfcc989 100644
--- a/source/main.pas
+++ b/source/main.pas
@@ -7453,6 +7453,7 @@ begin
 
     EndOfTokenRowCol := Editor.WordEndEx(StartOfTokenRowCol);
     OldOnChange := Editor.OnChange;
+    Editor.OnChange := nil;
     Editor.InsertBlock(StartOfTokenRowCol, EndOfTokenRowCol, PWideChar(Replacement), True);
     Editor.OnChange := OldOnChange;