From 1ddae5765a0481046245bd12e726c1b6b39f56b4 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Fri, 27 Apr 2018 09:21:10 +0200
Subject: [PATCH] tweak the fix #307 to prevent AV

---
 src/ce_synmemo.pas | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/ce_synmemo.pas b/src/ce_synmemo.pas
index 028c56b4..5556bb1a 100644
--- a/src/ce_synmemo.pas
+++ b/src/ce_synmemo.pas
@@ -1136,7 +1136,9 @@ end;
 
 procedure TCESynMemo.handleModalBeginning(sender: TObject);
 begin
-  cursor := crDefault;
+  // AV can happens in TCustomSynEdit.UpdateCursor
+  if assigned(FTextArea) then
+    cursor := crDefault;
 end;
 
 procedure TCESynMemo.setFocus;