Minor fix

Kagamma · Jul 10, 2023 · d96e684 · d96e684
1 parent f70d6ea
commit d96e684
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 3 deletions.
diff --git a/src/commands.pas b/src/commands.pas
@@ -253,7 +253,8 @@ procedure CommandOpen;
     FinishCommand;
     Exit;
   end;
-  Files.Open(InputBuffer1);
+  if InputBuffer1 <> '' then
+    Files.Open(InputBuffer1);
 end;
 
 procedure CommandSave;

diff --git a/src/files.pas b/src/files.pas
@@ -43,14 +43,14 @@ procedure Open(const Path: String);
   S: String;
 begin
   Screen.RenderStatusBarBlank;
-  Memory.Init;
-  M := Memory.First;
   AssignFile(F, Path);
   {$I-}
   Reset(F);
   {$I+}
   if IOResult = 0 then
   begin
+    Memory.Init;
+    M := Memory.First;
     while not EOF(F) do
     begin
       if Total mod 100 = 0 then