From d96e684f11239190a716007110b5f47f01c3a1bc Mon Sep 17 00:00:00 2001
From: kagamma <kagamma.km@gmail.com>
Date: Tue, 11 Jul 2023 02:01:31 +0700
Subject: [PATCH] Minor fix

---
 src/commands.pas | 3 ++-
 src/files.pas    | 4 ++--
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/src/commands.pas b/src/commands.pas
index ffbbd1f..4e84008 100644
--- 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
index 2ee1337..fea23dc 100644
--- 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