Search: make GoTo File function work properly inside non-local engine

1 files changed, 4 insertions, 1 deletions

diff --git a/USearch.pas b/USearch.pas
index eb609c3..4339f5e 100644
--- a/USearch.pas
+++ b/USearch.pas
@@ -81,6 +81,7 @@ type
   TSearchThread = class(TThread)
   private
     FEngine: TPanelEngine;
+    FRootEngine: TPanelEngine;
     Wilds: array of string;
     GUIMutex: TCriticalSection;
     procedure Rekurze(StartDir: string);
@@ -850,6 +851,7 @@ begin
   FSearchArchives := False;
 
   FEngine := Engine;
+  FRootEngine := Engine;
   FList := TList.Create; 
 end;
 
@@ -974,7 +976,8 @@ begin
               libc_free(PDataItem(LocalList[i])^.LnkPointTo);
               PDataItem(LocalList[i])^.LnkPointTo := nil;
             end;
-            if FEngine is TVFSEngine then PDataItem(LocalList[i])^.LnkPointTo := strdup(PChar((FEngine as TVFSEngine).SavePath));
+            if (FEngine is TVFSEngine) and (FRootEngine <> FEngine)
+              then PDataItem(LocalList[i])^.LnkPointTo := strdup(PChar((FEngine as TVFSEngine).SavePath));
             GUIMutex.Release;
           end;