diff --git a/src/ce_synmemo.pas b/src/ce_synmemo.pas
index 5556bb1a..55b3716d 100644
--- a/src/ce_synmemo.pas
+++ b/src/ce_synmemo.pas
@@ -1137,8 +1137,9 @@ end;
 procedure TCESynMemo.handleModalBeginning(sender: TObject);
 begin
   // AV can happens in TCustomSynEdit.UpdateCursor
-  if assigned(FTextArea) then
-    cursor := crDefault;
+  if assigned(FTextArea) and
+    (cursor = crNone) and (eoAutoHideCursor in Options2) then
+      cursor := crDefault;
 end;
 
 procedure TCESynMemo.setFocus;