From 178f138099ed2f49f5a84c4c9888f1032647bf63 Mon Sep 17 00:00:00 2001
From: Kagamma <kagamma.km@gmail.com>
Date: Mon, 1 Apr 2024 10:45:47 +0700
Subject: [PATCH] Minor navigation fix for pattern editor

---
 src/edpattern.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/edpattern.pas b/src/edpattern.pas
index 494d1d8..031b81e 100644
--- a/src/edpattern.pas
+++ b/src/edpattern.pas
@@ -732,13 +732,14 @@ procedure LoopEditPattern;
               Inc(CurChannel);
               RenderInstrument;
               DisableMark;
+              Screen.SetCursorPosition(PATTERN_SCREEN_START_X + (CurChannel * PATTERN_CHANNEL_WIDE) + (CurCellPart * 5), PATTERN_SCREEN_START_Y + CurCell - Anchor);
             end;
           end else
           begin
             CurCellPart := 1;
             DisableMark;
+            Screen.SetCursorPosition(PATTERN_SCREEN_START_X + (CurChannel * PATTERN_CHANNEL_WIDE) + (CurCellPart * 5), PATTERN_SCREEN_START_Y + CurCell - Anchor);
           end;
-          Screen.SetCursorPosition(PATTERN_SCREEN_START_X + (CurChannel * PATTERN_CHANNEL_WIDE) + (CurCellPart * 5), PATTERN_SCREEN_START_Y + CurCell - Anchor);
         end;
       SCAN_DOWN:
         begin