From 8bd2898b75176ba469f2dbef69560eceaccb71d3 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Wed, 11 Mar 2015 01:06:31 +0100
Subject: [PATCH] external mod. tracking, undo is possible after reloading

---
 src/ce_synmemo.pas | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/src/ce_synmemo.pas b/src/ce_synmemo.pas
index 8506cba5..3d8f5fa9 100644
--- a/src/ce_synmemo.pas
+++ b/src/ce_synmemo.pas
@@ -546,6 +546,7 @@ end;
 procedure TCESynMemo.checkFileDate;
 var
   newDate: double;
+  str: TStringList;
 begin
   if fFilename = fTempFileName then exit;
   if not FileAge(fFilename, newDate) then exit;
@@ -555,8 +556,16 @@ begin
     if dlgOkCancel(format('"%s" has been modified by another program, load the new version ?',
       [shortenPath(fFilename, 25)])) = mrOk then
     begin
-      Lines.LoadFromFile(fFilename);
-      fModified := false;
+      str := TStringList.Create;
+      try
+        str.LoadFromFile(fFilename);
+        DoCopyToClipboard(str.Text);
+        ClearAll;
+        PasteFromClipboard;
+        fModified := true;
+      finally
+        str.Free;
+      end;
     end;
   end;
   fFileDate := newDate;