From 2e17f1a0e534a415050b4135ed95742b15dbd0c0 Mon Sep 17 00:00:00 2001
From: Devine Lu Linvega <aliceffekt@gmail.com>
Date: Wed, 28 Aug 2024 20:03:43 -0700
Subject: [PATCH] (m291) Temporarily disabled follow on move

---
 gui/m291/src/m291.tal | 13 ++-----------
 1 file changed, 2 insertions(+), 11 deletions(-)

diff --git a/gui/m291/src/m291.tal b/gui/m291/src/m291.tal
index e112d9e..3c56728 100644
--- a/gui/m291/src/m291.tal
+++ b/gui/m291/src/m291.tal
@@ -213,17 +213,8 @@
 
 @<move> ( mod -- )
 	.selection LDZ ADD
-	( | follow )
-	DUP .lines/folders LDZ SUB
-	( up ) DUP #80 LTH ?{
-		.selection/scroll LDZ ADD #80 LTH ?{ POP !<redraw-dir> }
-		.selection/scroll LDZk #01 SUB SWP STZ
-		POP !<redraw-dir> }
-	( down ) DUP #18 LTH ?{
-		.selection/scroll LDZ ADD .lines/tracks LDZ NEQ ?{ POP !<redraw-dir> }
-		.selection/scroll LDZk INC SWP STZ
-		POP !<redraw-dir> }
-	POP
+	( top ) DUP .selection/scroll LDZ #ff00 NEQ2 ?{ POP JMP2r }
+	( bottom ) DUP .lines/folders LDZ .lines/tracks LDZ ADD NEQ ?{ POP JMP2r }
 	( >> )
 
 @<select> ( id -- )